Цитата Black_Raven_:
|
1. C:\Program Files\Zona\Zona.exe »
|
На WSH:
Код:
Option Explicit
Dim strFile
Dim collSWbemObjectSet
strFile = "C:\Program Files\Zona\Zona.exe"
With WScript.CreateObject("Scripting.FileSystemObject")
If .FileExists(strFile) Then
Set collSWbemObjectSet = WScript.CreateObject("WbemScripting.SWbemLocator").ConnectServer(".", "root\cimv2").ExecNotificationQuery( _
"SELECT * FROM __InstanceDeletionEvent WITHIN 1 " & _
"WHERE TargetInstance ISA 'Win32_Process' " & _
"AND TargetInstance.ExecutablePath = '" & Replace(strFile, "\", "\\") & "'" _
)
Do
collSWbemObjectSet.NextEvent
WScript.CreateObject("WScript.Shell").Run """" & strFile & """"
Loop
Set collSWbemObjectSet = Nothing
Else
WScript.Echo "Can't find file [" & strFile & "]."
WScript.Quit 1
End If
End With
WScript.Quit 0
Цитата Black_Raven_:
|
2. она сама закрывается по неизвестным причинам »
|
Крайне рекомендуется вместо использования скрипта исследовать, найти и ликвидировать эти причины.
