Reboot Computer This script will restart your workstation. Rate this script:0 Stars - Lowest1 Star2 Stars3 Stars4 Stars5 Stars - Highest Added 338 days ago by Emnico		Download
		Review
		Back
	202	Views

This script has been successfully tested by Emnico and is verified to be working.

Source code

on error resume next
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate,(Shutdown)}!\\" & strComputer & "\root\cimv2")
Set colOperatingSystems = objWMIService.ExecQuery _
("Select * from Win32_OperatingSystem")
For Each objOperatingSystem in colOperatingSystems
ObjOperatingSystem.Reboot()
Next