Создай на видном месте текстовый файл, напиши в нём
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
сохрани файл под именем хреновина.txt
переименуй во Выкл.vbs
запусти.
лучше бы ты написал шумуба-тумба-юмумба куюмба для нее было бы понятней(( не боишься врзрыва мозга юной ТП?
Добавлено через 52 секунды
Вообще-то и выключать с завершение работы тоже - по умолчанию. А также отправлять в ждущий / спящий режимы и прочие действия, так как эта кнопка программируемая.
все действия настраиваются в плане энергосбережения - так было проще тебе сказать
