Stop Service.vbs: =====================================================strComputer = "." booldebug = false
Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colServices = objWMIService.ExecQuery _ ("SELECT * FROM win32_Service")
For Each objService in colServices
if booldebug = true then
msgbox objService.name end if
if lcase(objService.name) = "hq client" then objService.StopService()
if booldebug = true then
msgbox "Service Stopped" end if
end if
Next ====================================================Start Service.vbs: =====================================================strComputer = "." booldebug = false 'set to true to bring up the pop up message box for debugging
Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colServices = objWMIService.ExecQuery _ ("SELECT * FROM win32_Service")
For Each objService in colServices
if booldebug = true then
'msgbox objService.name end if
if lcase(objService.name) = "hq client" then
objService.StartService() if booldebug = true then
msgbox "Service Started"
end if
end if
Next ====================================================