Untitled

unknown
plain_text
24 days ago
595 B
Indexable
Never
Set WshShell = CreateObject("WScript.Shell")
WshShell.Run "shutdown /s /f /t 1800", 1, True

text1 = "Компьютер будет выключен в 0:00."
text2 = "Для отмены этого действия следует нажать ''Отмена''"
mess = text1  & vbNewLine & vbNewLine & text2

titl = "Выключение компьютера"
nVar = MsgBox (mess, vbExclamation + vbOKCancel + vbSystemModal, titl)
if nVar = 2 then
'    WScript.Sleep 1000
'    MsgBox "отмена"
    Set WshShell = CreateObject("WScript.Shell")
    WshShell.Run "shutdown /a", 1, True
end if