[ОТВЕТИТЬ]
Опции темы
13.03.2007 23:44  
OlegON
Код:
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)
 
 
Опции темы



Часовой пояс GMT +3, время: 07:43.

Все в прочитанное - Календарь - RSS - - Карта - Вверх 👫 Яндекс.Метрика
Форум сделан на основе vBulletin®
Copyright ©2000 - 2016, Jelsoft Enterprises Ltd. Перевод: zCarot и OlegON
В случае заимствования информации гипертекстовая индексируемая ссылка на Форум обязательна.