Jump to content

save automaticly X-eventlogs to


Recommended Posts


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

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...