Finally got it working! Here's what i did. strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate,(Backup, Security)}!\\" & _ strComputer & "\root\cimv2") ' 'Set variables ' dateNow = Now strCurrentDate = Year(dateNow) & "-" & Right(100 + Month(dateNow), 2) _ & "-" & Right(100 + Day(dateNow), 2) strCurrentTime = Right(100 + Hour(dateNow), 2) & "." _ & Right(100 + Minute(dateNow), 2) & "." & Right(100 + Second(dateNow), 2) ' 'Start Backup/Clear of event log ' Set colLogFiles = objWMIService.ExecQuery _ ("Select * from Win32_NTEventLogFile where LogFileName='Security'") For Each objLogfile in colLogFiles errBackupLog = objLogFile.BackupEventLog("C:\Logs\"& strCurrentDate & "_" & strCurrentTime & _ "_Security.evt") If errBackupLog <> 0 Then Wscript.Echo "The Security event log could not be backed up." Else objLogFile.ClearEventLog() End If Next