' ------ KONFIGURACJA SKRYPTU ------
strProcess = "calc.exe"
strComputer = "."
' ------ KONIEC KONFIGURACJI ---------

set objWMI = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
set colProcesses = objWMI.ExecNotificationQuery(_ 
                     "select * from __instanceCreationEvent " _ 
                   & " within 1 where TargetInstance isa 'Win32_Process' " _
                   & " and TargetInstance.Name = '" & strProcess & "'")
do 
   set objProcess = colProcesses.NextEvent
   WScript.Echo "Koczenie procesu " & strProcess & _
                " (" & objProcess.TargetInstance.ProcessID & ")"
   objProcess.TargetInstance.Terminate
loop
