Remotely restart your Print Spooler

'****************************************
strComputer = "."
intSleep = 15000


strService = " 'SPOOLER' "
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" _
& strComputer & "\root\cimv2")
Set colListOfServices = objWMIService.ExecQuery _
("Select * from Win32_Service Where Name ="_
& strService & " ")
For Each objService in colListOfServices
objService.StopService()
WSCript.Sleep intSleep

Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colFolders = _
    objWMIService.ExecQuery("Select * From Win32_Directory Where Name = 'c:\\windows\\system32\\spool\\printers'")

For Each objFolder in colFolders
    objFolder.Delete
Next

objService.StartService()
Next
WScript.Echo strService & " service has restarted"
WScript.Quit
'***********************************