save automaticly X-eventlogs to

[melnib00ne]

Hello,

anyone to has or help me to scripting an batch or vb-script to export the windows eventlogs to year-month-date.log file or an csv ?

thanks,

/kr

Melnib00ne

[melnib00ne]

done. i've found an solution by this way:

dtmThisDay = Day(Date)

dtmThisMonth = Month(Date)

dtmThisYear = Year(Date)

strBackupName = dtmThisYear & "_" & dtmThisMonth & "_" & dtmThisDay

strComputer = "."

Set objWMIService = GetObject("winmgmts:" _

& "{impersonationLevel=impersonate,(Backup)}!\\" & _

strComputer & "\root\cimv2")

Set colLogFiles = objWMIService.ExecQuery _

("Select * from Win32_NTEventLogFile where LogFileName='Application'")

For Each objLogfile in colLogFiles

objLogFile.BackupEventLog("c:\scripts\" & strBackupName & _

"_application.evt")

objLogFile.ClearEventLog()

Next