[Iska]

Код:

for /?

Конкретно — Вас будет интересовать «for /f».
Update: Не та категория, не доглядел.

Вот Вам болванка, без каких-либо проверок:

Скрытый текст

Код:

Option Explicit

Dim objFSO
Dim objTS
Dim objWshShell

Set objFSO      = WScript.CreateObject("Scripting.FileSystemObject")
Set objTS       = objFSO.OpenTextFile("Путь к файлу")
Set objWshShell = WScript.CreateObject("WScript.Shell")

Do Until objTS.AtEndOfStream
	strLine = objTS.ReadLine()
	objWshShell.Run "shutdown.exe " & strLine, 1, True
Loop

objTS.Close

Set objWshShell = Nothing
Set objTS       = Nothing
Set objFSO      = Nothing

WScript.Quit 1