Dim vbOK,Inf,intDo, Cancel
Dim Message, Title
vbOK = 1
Inf = 64
Cancel = 2
Message = "Компьютер будет выключен через 5 минут. Выполнить?"
Title = "Подтвердите действие"
Set WSHShell = WScript.CreateObject("WScript.Shell")
WSHShell.Run("shutdown /s /f /t 300")
intDo = WSHShell.Popup(Message,0,Title,vbOK + Inf)
if intDo = Cancel Then
WSHShell.Run("shutdown /a")
WScript.Quit()
End if