strComputer = "172.30.23.202"
UserName = ""
Password = ""
strInformations = "(Type='Informations' and EventCode='500')"
strdatetime = "TimeWritten >= '20100101000000.000000-300' and TimeWritten < '20100121000000.000000-300'"
strcritere = "(Logfile = 'Application')"
Set SWBemlocator = CreateObject("WbemScripting.SWbemLocator")
Set objWMIService = SWBemlocator.ConnectServer(strComputer,"root\CIMV2",UserName,Password)
Set colItems = objWMIService.ExecQuery("Select * from Win32_NTLogEvent Where " & strcritere,,48)
WScript.Echo "Services Started: " & colItems.Count