Бывает так, что нужно выключить компьютер в определенное время без участия человека. Например, оставили качаться объемный файл и ушли на работу. Или мой случай - включаю перед сном кино онлайн и на середине благополучно засыпаю. Что же делать?

Можно воспользоваться планировщиком задач. Но это неудобно, если выключение нужно производить нерегулярно или каждый раз в разное время.

Можно скачать программу для этих целей. Но этот случай не для нас.

Я предлагаю нацарапать программку своими силами в блокноте.

В этот раз будем использовать язык VBScript. Что это такое? В Windows есть встроенный компонент Windows Scripting Host, предназначеный для запуска программ на скриптовых языках VBScript и JScript. Эти языки являются интерпретируемыми и не требуют каких-либо дополнительных программ для компиляции, т.е. хранятся в том виде, в котором написаны. 

Открываем блокнот и пишем (красным цветом выделены комментарии, их набирать не обязательно):

Dim v, m, c 'объявляем переменные 
Set c = WScript.CreateObject("WScript.Shell") 'создаем объект
v=inputbox ("Через сколько минут отключить компьютер?","Время") 'Просим пользователя ввести время 
if IsNumeric(v) then 'Проверяем числовое ли значение введено
If v>0 Then 'Проверяем больше ли нуля введенное значение
m=v*60000 ' переводим минуты в миллисекунды
msgbox "Через "& v & " мин. компьютер будет отключен",0,"" 'Выводим сообщение
WScript.sleep m 'Ждем заданное время
c.run("shutdown.exe -s -t 2") ' Запускаем shutdown.exe
else msgbox "меньше 1 мин" , 0 , "Ошибка" 'Выводим сообщение об ошибке
End If
else msgbox "Введена не цифра", 0, "Ошибка" 'Выводим сообщение об ошибке
end if
set c = nothing 'уничтожаем объект

Сохраняем файл с расширением *.vbs и запускаем. Теперь мы можем выключить компьютер через заданное количество минут.

А тут можно взять готовый файл.