[Iska]

Примерно так:

читать дальше »

Код:

Option Explicit

Const intPeriod = 5

Dim objSWbemServices
Dim objSWbemObjectEx

Dim i


Set objSWbemServices = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\CIMV2")

Do
	i = 0
	
	For Each objSWbemObjectEx In objSWbemServices.ExecQuery("SELECT * FROM Win32_Process WHERE Name = 'notepad.exe'")
		i = i + 1
		
		if i > 1 Then
			objSWbemObjectEx.Terminate
		End if
	Next
	
	WScript.Sleep 1000 * 60 * intPeriod
Loop

Set objSWbemServices = Nothing

WScript.Quit

Только смысл? За пять минут в Блокноте можно много чего сделать. И есть более правильный способ: подписка на событие по «Win32_ProcessStartTrace».