Проверка наличия файла в папке в случае отсутствия перезагружать компьютер
Цель проверка наличия файла в папке в случае отсутствия перезагружать компьютер. Желательно чтобы все выглядело как ошибка. Система 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
Что делаю не так?
|
Цитата:
Цитата NickCom
Желательно чтобы все выглядело как ошибка. »
|
Это называется вирус: Общие правила конференции OSZone.net, п.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
|
Цитата:
Цитата Iska
Это называется вирус: Общие правила конференции OSZone.net, п.3.2. »
|
Это наоборот для защиты. За помощь СПС все работает
еще вопрос а по сети получится strFile = "c:\1.txt" так strFile = "\\user\c\1.txt" ? |
Цитата:
Цитата NickCom
Это наоборот для защиты. »
|
Не вижу разницы, если в виде «чтобы все выглядело как ошибка». Какой-нибудь StarForce, по отзывам, много хуже многих вирусов.
Цитата:
Цитата NickCom
а по сети получится strFile = "c:\1.txt" так strFile = "\\user\c\1.txt" ? »
|
Будет доступ — получится. Проверьте, не вывалится ли ошибка а) при отсутствии прав, б) при отсутствии физического доступа к удалённой машине. |
А почему нельзя еще проще?
Код:
if not exists C:\temp\1.txt "shutdown /i /s /d"
" |
Время: 21:57.
© OSzone.net 2001-
