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 2=====
<code vb>
'RestartServices.vbs
'Voor het stoppen en starten van services.
'Win32_Service: http://msdn.microsoft.com/en-us/library/aa394418(VS.85).aspx
'20100720, v1.
'20100721, v2:
'Functie voorzien van intWaitTime parameter om de wachttijd na het stoppen in te kunnen stellen.

On Error Resume Next

strComputer = "."

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

'Functie: RestartService
'Parameter1: display name van de service (string).
'Parameter2: de wachttijd in miliseconde voor het opnieuw starten van de service.
Function RestartService(strServiceDisplayName, intWaitTime)

	Set colServices = objWMIService.ExecQuery("SELECT * FROM Win32_Service WHERE DisplayName = '" & strServiceDisplayName & "'")

	For Each objService In colServices

		objService.StopService()
		
		WScript.Sleep intWaitTime
		
		objService.StartService()
		
	Next

	Set colServices = Nothing

End Function

RestartService "Print Spooler", 5 * 60 * 1000

Set objWMIService = Nothing

</code>

=====Versie 1=====
<code vb>
'RestartServices.vbs
'Voor het stoppen en starten van één of meerdere services.
'Win32_Service: http://msdn.microsoft.com/en-us/library/aa394418(VS.85).aspx
'20100720, v1.

On Error Resume Next

strComputer = "."

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

Function RestartService(strServiceDisplayName)

	Set colServices = objWMIService.ExecQuery("SELECT * FROM Win32_Service WHERE DisplayName = '" & strServiceDisplayName & "'")

	For Each objService In colServices

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

	Next

	Set colServices = Nothing

End Function

RestartService("Print Spooler")

Set objWMIService = Nothing

</code>