Сообщество Чайников

Вопрос

Нужен скрипт для выключения компьютера под WinXP.

Ответ

Этот исходник поместите в «блокнот» и документу присвойте расширение vbs. Этот скрипт выключает ваш компьютер.

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

Бульба Сергей Александрович

Для XP можно воспользоваться shutdown. Набрав «shutdown /?» можно ознакомиться со справкой со этой утилитке.

covex