Notes

This page is read only. You can view the source, but not change it. Ask your administrator if you think this is wrong.

=====Versie 1=====
Stopt de Print Spooler service, wacht 60 seconden en start 'm weer. Wacht vervolgens nog 30 seconden en start 'm weer, voor het geval de service problemen heeft met opstarten.
<code>
'RestartPrintSpooler.vbs
'Voor het stoppen en starten van de Print Spooler service.
'20091202, v1

On Error Resume Next

strComputer = "."

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

'Win32_Service: http://msdn.microsoft.com/en-us/library/aa394418(VS.85).aspx
Set colServices = objWMIService.ExecQuery("SELECT * FROM Win32_Service")

For Each objService In colServices

	If Instr(objService.DisplayName, "Print Spooler") > 0 Then

		objService.StopService()
		
		WScript.Sleep 60000
		
		objService.StartService()
		
		WScript.Sleep 30000
		
		objService.StartService()

	End If

Next

Set colServices = Nothing
Set objWMIService = Nothing
</code>