Вопрос
Нужен скрипт для выключения компьютера под 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
Copyright 2000-2004 Сообщество Чайников
Контактная информация