Dr. Piligrim
Сообщения: 2443
Благодарности: 519
|
Профиль
|
Отправить PM
| Цитировать
e v g e n, пример скрипта
Цитата:
' Скрипт используется для удаленного выключения/перезагрузки/прочее. Пдключаться надо с соотв. правами.
Dim StationName
Dim OpSysSet
Dim Flags
Dim Reserved
StationName = InputBox("Insert the Name of the Station to be Shutdown.")
Set OpSysSet = GetObject("winmgmts:{impersonationLevel=impersonate,(RemoteShutdown)}//" & StationName).ExecQuery("select * from Win32_OperatingSystem where Primary=true")
' Flags Action
' 0 Logoff
' 1 Shutdown
' 2 Reboot
' 4 Force
' 8 Power Off
' 16 Force If Hung
Flags = 1
Reserved = 0
For Each OpSys In OpSysSet
OpSys.Win32Shutdown Flags,Reserved
Next
|
|
|
-------
Virus? Malware? - Начните отсюда
Проблема в вашей теме решена? - Отметьте её решенной в настройках темы
Free Antivirus Software......Полиморфный AVZ
Отправлено: 15:34, 26-12-2007
| #10
|
