strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colMonitoredProcesses = objWMIService. _        
    ExecNotificationQuery("select * from __InstanceCreationEvent" _ 
        & " within 1 where TargetInstance isa 'Win32_Process'")

Set colMonitorProcessesd = objWMIService.ExecNotificationQuery _
 ("SELECT * FROM __InstanceDeletionEvent " & _ 
 "WITHIN 1 WHERE TargetInstance ISA 'Win32_Process' ")


i = 0
num=3
lim=num

Do While i = 0
    Set objLatestProcess = colMonitoredProcesses.NextEvent
    If objLatestProcess.TargetInstance.Name = "notepad.exe" or objLatestProcess.TargetInstance.Name = "calc.exe" Then
	num=num-1
	Wscript.Echo "Num: "& num 
	if num <0 then

		Wscript.Echo "Вы запустили лишнюю копию программы "&  objLatestProcess.TargetInstance.Name  _
& " - разрешенный лимит только " & lim
		objLatestProcess.TargetInstance.Terminate
		num=num+1

	end if
    End If

Loop