Set objSpoolerSvc =GetObject("WinMgmts:Win32_Service.name='Spooler'")
Set objOutParm = objSpoolerSvc.ExecMethod_("stopService")
If objOutParm.returnValue = 0 Then
WScript.Echo " The Spooler Service has been stopped"
Else
wscript.Echo "Error: " & objOutParm.returnValue
End If