Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Показать сообщение отдельно

Новый участник


Сообщения: 46
Благодарности: 1

Профиль | Отправить PM | Цитировать


На .vbs


Dim StationName
Dim OpSysSet
Dim Flags
Dim Reserved
StationName = (".")
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 = 2

Reserved = 0

For Each OpSys In OpSysSet
OpSys.Win32Shutdown Flags,Reserved
Next

Отправлено: 15:21, 23-06-2009 | #6