Проверка наличия файла в папке в случае отсутствия перезагружать компьютер

[NickCom]

Цель проверка наличия файла в папке в случае отсутствия перезагружать компьютер. Желательно чтобы все выглядело как ошибка. Система 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

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

[Iska]

Желательно чтобы все выглядело как ошибка. »
Это называется вирус: Общие правила конференции OSZone.net, п.3.2 (http://forum.oszone.net/rules.html#3.2).

Что делаю не так? »
Option Explicit

Dim strFile
Dim objSWbemObjectEx


strFile = "c:\1.txt"

If Not WScript.CreateObject("Scripting.FileSystemObject").FileExists(strFile) Then
With WScript.CreateObject("WbemScripting.SWbemLocator")
.Security_.Privileges.AddAsString "SeShutdownPrivilege"

For Each objSWbemObjectEx In .ConnectServer(".", "root\cimv2").ExecQuery("SELECT * FROM Win32_OperatingSystem")
objSWbemObjectEx.Reboot
Next
End With
End If

WScript.Quit 0

[NickCom]

Это называется вирус: Общие правила конференции OSZone.net, п.3.2. »
Это наоборот для защиты. За помощь СПС все работает

еще вопрос а по сети получится strFile = "c:\1.txt" так strFile = "\\user\c\1.txt" ?

[Iska]

Это наоборот для защиты. »
Не вижу разницы, если в виде «чтобы все выглядело как ошибка». Какой-нибудь StarForce, по отзывам, много хуже многих вирусов.

а по сети получится strFile = "c:\1.txt" так strFile = "\\user\c\1.txt" ? »
Будет доступ — получится. Проверьте, не вывалится ли ошибка а) при отсутствии прав, б) при отсутствии физического доступа к удалённой машине.

[Delirium]

А почему нельзя еще проще?
if not exists C:\temp\1.txt "shutdown /i /s /d"
"