strComputer = "."
strService = "Name = 'Alerter' OR Name = 'DCOMLaunch' OR Name = 'DevManBE' "
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colListOfServices = objWMIService.ExecQuery ("Select * from Win32_Service WHERE " & strService)
For Each objService in colListOfServices
return = objService.StopService()
'A return of 0 = success
'A return of 5 = failed to stop or is already stopped
Next
wscript.echo "Done."
|