Prüfen ob ein Prozess mehrfach läuft

Moinz Leute,

auf einem unserer Server läuft ein Win Apache und eine Web-Suchanwendung für eine bestimmte Datenbank.
Jetzt besteht das Problem, dass dieser Suchprozess ständig mehrfach gestartet wird und dadurch den Server völlig auslastet.

Ich möchte gerne bspw. in 10-Min-Abständen prüfen, ob dieser Prozess/Dienst mehrfach läuft (in diesem Fall eine perl.exe) und ggf. vorhandene Mehrfachprozesse canceln.

Erster Ansatz:

Aber irgendwie komme ich nicht so recht weiter.
Wie benende ich nun alle Prozesse bis auf einen?
'ne Möglichkeit wäre einfach alle Prozesse zu killen und einen nur zu starten. Aber ich kriege die Schleife nicht erstellt.

Thx, Fugu

'* Verbindung mit WMI (Windows Management Instrumentation) aufnehmen  
Set wmi = GetObject("winmgmts:{(Security)}")  
'* Alle Notepad Prozesse raussuchen  
Set oProc = wmi.ExecQuery("select * from win32_process where name='perl.exe'")  
i=0
For each proc in oProc
	i=i+1
Next
if i>1 then
	For each proc in oProc
		proc.terminate
	Next
end if