Paste what's on your clipboard thread


Recommended Posts

dtmThisDay = Day(Now)

dtmThisMonth = Month(Now)

dtmThisYear = Year(Now)

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:\EVENT_LOGS\BDER\" & strBackupName & _

"_application.evt")

objLogFile.ClearEventLog()

Next

This topic is now closed to further replies.
  • Recently Browsing   0 members

    • No registered users viewing this page.