Помогите
 

Цель проверка наличия файла в папке в случае отсутствия перезагружать компьютер. Желательно чтобы все выглядело как ошибка. Система windows xp

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 "Проверка прошла"
Else
ObjOperatingSystem . Reboot ( )
End If

WScript.Quit 0

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