## Description
# Restarts a computer.  
# VB code sample courtesy of MS Corp.    

{
	-name test VBScript
	-start 
	-stop

	main()
	Print("Returned value is: '%TG.COMMAND_RETURN%'")
}


Function main()

	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

	main = 0
	
End Function