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.
  • Posts

  • Recent Achievements

    • One Year In
      Console General earned a badge
      One Year In
    • One Year In
      Twozo Technologies earned a badge
      One Year In
    • One Month Later
      Twozo Technologies earned a badge
      One Month Later
    • Week One Done
      Twozo Technologies earned a badge
      Week One Done
    • Veteran
      branfont went up a rank
      Veteran
  • Popular Contributors

    1. 1
      +primortal
      512
    2. 2
      +Edouard
      200
    3. 3
      PsYcHoKiLLa
      131
    4. 4
      Steven P.
      89
    5. 5
      neufuse
      76
  • Tell a friend

    Love Neowin? Tell a friend!