[Fighter]

2ayaks
почти ;-)
параметры Win32Shutdown:
0 --- Log Off
0 + 4 --- Forced Log Off
1 --- Shutdown
1 + 4 --- Forced Shutdown
2 --- Reboot
2 + 4 --- Forced Reboot
8 --- Power Off
8 + 4 --- Forced Power Off

а reboot удобнее здесь ;-)

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

хотя никто не мешает поставить и другие знач. ;-)