|
Ну что, всем спасибо!
Я вот тоже раскопал кое-что, может кому поможет
вот этот текст:
dim OpSysSet, obj
Set OpSysSet = GetObject("winmgmts:{impersonationLevel=impersonate," & _
"(Shutdown)}//./root/cimv2").ExecQuery _
("SELECT * FROM Win32_OperatingSystem" &_
" WHERE Primary=true")
For Each obj In OpSysSet
obj.Win32Shutdown(8)
Next
вставляете в блокнот, потом сохраняете его с расширением vbs например poweroff.vbs и все!
Нажимаете на этот файл. Можно этот файл указать в назначении задания на определенное время.
win2к вырубает без проблем.
|