VBScript to check for service

[adminguy]

I am looking for a VBScript to check for a specific service running on the PC (Cisco Security Agent) The result (True/False) would be added to a text file on a network drive along with the computer's name. I have about 600 PCs to check and wanted to save some shoe leather.
Thanks

 

[SaMaLaKo]

try this to start with:

function checkservice (strComputer, strService)
	Dim objWMIService, ColServiceList, objService
	Set objWMIService = GetObject("winmgmts:" _
	    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
	Set colServiceList = objWMIService.ExecQuery _
	        ("Select * from Win32_Service where Name='" & strService & "'")
	checkservice = False
	For each objService in colServiceList
	    if objservice.status = "started" Then checkservice = True
	Next
End Function

You can use the FileSystemObject to do the writing to a textfile...

Please tell me if I'm wrong I like to learn from my mistakes...
_____________________________________
Feed a man a fish and feed him for a day.
Teach a man to fish and feed him for a lifetime...