Код:
vPC = "name"
Set objWMI = GetObject_
("winmgmts:{impersonationLevel=impersonate,(Shutdown)}\\" & _
vPC & "\root\cimv2")
Set colOS = objWMIService.ExecQuery _
("Select * from Win32_OperatingSystem")
For Each objOS in colOS
objOS.Win32Shutdown(8+4)
Next vPC - имя машины, которую нужно потушить. Для локальной ставишь точку, т.е. vPC="."
objOS.Win32Shutdown(8+4) - циферки в скобках обозначают действие. Список ниже:
Код:
0
0x0Log Off4
0x4Forced Log Off (0 + 4)1
0x1Shutdown5
0x5Forced Shutdown (1 + 4)2
0x2Reboot6
0x6Forced Reboot (2 + 4)8
0x8Power Off12
0xCForced Power Off (8 + 4)