[NickCom]

Option Explicit
On Error Resume Next

'Объявляем переменные
Dim objFSO, strFlagFile

'Создаём объект файловой системы
Set objFSO = CreateObject("Scripting.FileSystemObject")

'Задаём путь к файлу-флагу
strFlagFile = "c:\1.txt"

'Проверка наличия файла
If objFSO.FileExists(strFlagFile) Then
WScript.Echo "File Exist!"
Else
ObjOperatingSystem . Reboot ( )
End If

WScript.Quit 0

Что делаю не так