Alex_Piggy
Advanced Member | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Код:
const cProcName = "'1.exe'"
const cFullPath = "D:\Programs\test\1.exe"
const cBadProcName = "'chrome.exe'"
const cCheckTimer = 1
function func_checkproc
Set objProcessList = objWMIService.ExecQuery ("Select * from Win32_Process WHERE Name = " & cProcName)
if (objProcessList.Count = 0) then
func_checkproc=WshShell.Exec(cFullPath).ProcessID
else
for each x in objProcessList
func_checkproc=x.ProcessID
next
end if
end function
Set WshShell = CreateObject("WScript.Shell")
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
func_checkproc
Set objEvent = objWMIService.ExecNotificationQuery("select * from __instancecreationevent within " & cCheckTimer & " where TargetInstance isa 'Win32_Process' AND TargetInstance.Name=" &cBadProcName)
do while true
set BadProc=objEvent.NextEvent
BadProc.TargetInstance.Terminate
WshShell.AppActivate(func_checkproc)
loop
|
|
