Clearing Event Logs

[irkey]

Can anyone tell me how to clear all the event logs on a W2K machine?

I found the following script, but it doesn't clear the Security log. Help!

set LogFileSet1 = GetObject("winmgmts:{impersonationLevel=impersonate,(Backup)}&quot.ExecQuery("select * from Win32_NTEventLogFile where LogfileName='Application'&quot

For each Logfile in LogFileSet1
RetVal = LogFile.ClearEventlog()
if RetVal = 0 then WScript.Echo "The Application Log Has Been Cleared"
Next

set LogFileSet2 = GetObject("winmgmts:{impersonationLevel=impersonate,(Backup)}&quot.ExecQuery("select * from Win32_NTEventLogFile where LogfileName='System'&quot

For each Logfile in LogFileSet2
RetVal = LogFile.ClearEventlog()
if RetVal = 0 then WScript.Echo "The System Log Has Been Cleared"
Next

set LogFileSet3 = GetObject("winmgmts:{impersonationLevel=impersonate,(Backup)}&quot.ExecQuery("select * from Win32_NTEventLogFile where LogfileName='Security'&quot

For each Logfile in LogFileSet3
RetVal = LogFile.ClearEventlog()
if RetVal = 0 then WScript.Echo "The Security Log Has Been Cleared"
Next

 

[sfriday]

You need to add , Security after Backup as shown below

set LogFileSet3 = GetObject("winmgmts:{impersonationLevel=impersonate,(Backup, Security)}&quot.ExecQuery("select * from Win32_NTEventLogFile where LogfileName='Security'&quot


Regards
Steve Friday