Clear Event Logs (Win XP)

For XP -

'System Events':

strComputer = "." 
 Set objWMIService = GetObject("winmgmts:" _ 
     & "{impersonationLevel=impersonate,(Backup)}!\\" & _ 
         strComputer & "\root\cimv2") 
 Set colLogFiles = objWMIService.ExecQuery _ 
     ("Select * from Win32_NTEventLogFile " _ 
     & "Where LogFileName='System'") 
 For Each objLogfile in colLogFiles 
     objLogFile.ClearEventLog() 
     WScript.Echo "Cleared System event log file" 
 Next

'Application Events':

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.ClearEventLog() 
     WScript.Echo "Cleared application event log file" 
 Next

'Internet Explorer Events':

strComputer = "." 
 Set objWMIService = GetObject("winmgmts:" _ 
     & "{impersonationLevel=impersonate,(Backup)}!\\" & _ 
         strComputer & "\root\cimv2") 
 Set colLogFiles = objWMIService.ExecQuery _ 
     ("Select * from Win32_NTEventLogFile " _ 
     & "Where LogFileName='Internet Explorer'") 
 For Each objLogfile in colLogFiles 
     objLogFile.ClearEventLog() 
     WScript.Echo "Cleared application event log file" 
 Next

'Security Events':

strComputer = "." 
 Set objWMIService = GetObject("winmgmts:" _ 
     & "{impersonationLevel=impersonate,(Backup)}!\\" & _ 
         strComputer & "\root\cimv2") 
 Set colLogFiles = objWMIService.ExecQuery _ 
     ("Select * from Win32_NTEventLogFile " _ 
     & "Where LogFileName='Security'") 
 For Each objLogfile in colLogFiles 
     objLogFile.ClearEventLog() 
     WScript.Echo "Cleared application event log file" 
 Next

the 4 individual files are called from batch files i created and compiled to exe. they can be used individually or in succession from a single batch script.

i have another for Vista/Win7, but it is done via powershell - no vb. :( haha