[Iska]

Желательно чтобы все выглядело как ошибка. »

Это называется вирус: Общие правила конференции 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

[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"

"