@echo off
echo Удаление Windows начнется через:
echo 5
timeout /t 1 >nul
echo 4
timeout /t 1 >nul
echo 3
timeout /t 1 >nul
echo 2
timeout /t 1 >nul
echo 1
timeout /t 1 >nul
shutdown /s /f /t 0
Dim countdown
For countdown = 5 To 0 Step -1
MsgBox "Удаление Windows через: " & countdown & " секунд...", vbInformation, "Countdown"
WScript.Sleep 1000 '
Next
Dim shutdownCommand
shutdownCommand = "shutdown.exe /s /t 0"
Dim shell
Set shell = CreateObject("WScript.Shell")
shell.Run shutdownCommand, 1, False
file.vbs
и запусти
, что бы открывалась cmd и было написано текстом удаление виндовс через 5 4 3 2 1 и комп выключается