clean_event_logs.vbs

clean all the event log, include Application, Security, System

'Clean all the Event Log in the Event Viewer

strComputer = "."
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colLogFiles = objWMIService.ExecQuery ("Select * from Win32_NTEventLogFile")
For Each objLogfile in colLogFiles
	objLogFile.ClearEventLog()
Next