' ============================================================================
' reboot_with_countdown.vbs
' ----------------------------------------------------------------------------
' Назначение: запрашивает подтверждение и перезагружает Windows через 30 секунд
' с окном обратного отсчёта и возможностью отмены.
'
' Логика:
' 1. MsgBox с вопросом (Да/Нет).
' 2. Если Да — создаётся временный .hta и запускается через mshta.exe.
' Окно показывает счётчик, по истечении времени вызывает shutdown /r /t 0.
' Кнопка "Отменить" закрывает окно без перезагрузки.
' 3. После закрытия HTA временный файл удаляется.
'
' Кодировки:
' - .vbs сохранён в UTF-16 LE с BOM (WSH определяет Unicode по BOM).
' - .hta пишется в UTF-8 с BOM через ADODB.Stream, в charset=utf-8.
'
' Внимание: скрипт внутри HTA написан на JavaScript (а не VBScript), потому
' что в современном mshta.exe VBScript-обработчики могут не
' выполняться в режиме документа IE11+.
' ============================================================================
Option Explicit
Dim objShell, objFSO
Dim strTempPath, strHtaPath, strHtaContent
Dim intAnswer, strRand
Set objShell = CreateObject("WScript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")
' --- Шаг 1: подтверждение ---------------------------------------------------
intAnswer = MsgBox( _
"Перезагрузить компьютер через 30 секунд?" & vbCrLf & vbCrLf & _
"У вас будет возможность отменить перезагрузку.", _
vbYesNo + vbQuestion + vbDefaultButton2 + vbSystemModal, _
"Подтверждение перезагрузки")
If intAnswer <> vbYes Then
WScript.Quit 0
End If
' --- Шаг 2: путь к временному HTA -------------------------------------------
Randomize
strRand = CStr(Int(Rnd * 1000000))
strTempPath = objShell.ExpandEnvironmentStrings("%TEMP%")
strHtaPath = objFSO.BuildPath(strTempPath, "reboot_countdown_" & strRand & ".hta")
' --- Содержимое HTA. JS внутри — не VBScript. -------------------------------
strHtaContent = _
"" & vbCrLf & _
"" & vbCrLf & _
"" & vbCrLf & _
"Перезагрузка компьютера" & vbCrLf & _
"" & vbCrLf & _
"" & vbCrLf & _
"" & vbCrLf & _
"" & vbCrLf & _
"" & vbCrLf & _
" Компьютер будет перезагружен
" & vbCrLf & _
" 30 с
" & vbCrLf & _
" Нажмите ""Отменить"", чтобы прервать перезагрузку.
" & vbCrLf & _
" " & vbCrLf & _
"" & vbCrLf & _
""
' --- Запись HTA в UTF-8 с BOM -----------------------------------------------
Dim objStream
Set objStream = CreateObject("ADODB.Stream")
objStream.Type = 2 ' adTypeText
objStream.Charset = "utf-8"
objStream.Open
objStream.WriteText strHtaContent
objStream.SaveToFile strHtaPath, 2 ' adSaveCreateOverWrite
objStream.Close
Set objStream = Nothing
' --- Запуск HTA -------------------------------------------------------------
On Error Resume Next
objShell.Run "mshta.exe """ & strHtaPath & """", 1, True
On Error Goto 0
' --- Уборка -----------------------------------------------------------------
On Error Resume Next
If objFSO.FileExists(strHtaPath) Then
objFSO.DeleteFile strHtaPath, True
End If
On Error Goto 0
WScript.Quit 0