' Monitor Process Creation
Dim Proceso
Proceso = "Proceso.exe"
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colMonitoredProcesses = objWMIService. _
ExecNotificationQuery("select * from __instancecreationevent " _
& " within 1 where TargetInstance isa 'Win32_Process'")
i = 0
Do While i = 0
Set objLatestProcess = colMonitoredProcesses.NextEvent
If objLatestProcess.TargetInstance.Name = Proceso Then
set WshShell = CreateObject("wscript.Shell")
WshShell.Run "taskkill /F /IM "&objLatestProcess.TargetInstance.Name&"", 0, true
End if
Loop