PIDs von VBScript gestarteten Prozessen herausfinden

Hallo Script Master,

ich habe folgende interessante Fragestellung über die ich schon zwei Tage lang meinen Kopf zerbreche und dies fängt langsam an zu schmerzen;)
Ich habe ein Batch file der mir ein VBScript startet. Der Batch beschäftigt sich mit seiner Sachen weiter und das VBscript zeigt inzwischen einen Statusbar in form Einer HTML Saite an, so dass der User weiß, dass da was abläuft (der Batch). Tja, nachdem der Batch fertig ist sollte dieses HTML Fenster abgeschossen werden. Bevor es aber Tod umfällt sollte man bedenken dass nicht nur es sondern auch einen weiteren wscript.exe Prozess vom VBScript gestartat wird. Ich weiß eigentlich nicht wieso diesen weiteren Prozess gestartet wurde aber man braucht ihn anscheinend um das HTML Fenster zu aktivieren. Dies geschieht mit diesen Zeilen vermute ich:

Set objWshShell = WScript.CreateObject("WScript.Shell")
objWshShell.AppActivate("Microsoft Internet Explorer")

das volle Script kann unter
http://cwashington.netreach.net/depo/view.asp?Index=796
gesehen werden nur dass ich die schleife unendlich gemacht habe anstatt bis 1000 zu zählen.

Mein Prozessor ist verrückt nach diesen Prozess (wscript.exe) und läuft die ganze Zeit wie verliebter Hund mit 45-50 Belastung wenn er gestartet ist.
Tja, das heißt natürlich dass ich auch den abschießen müsste, so dass sich der Prozessor bisschen beruhigt und sich auch mit anderen Sachen beschäftigt. Ich suche schon die ganze Zeit nach einer Möglichkeit die PID von genau diesen Prozessen herauszufinden so dass nicht einfach wahllos in die Menge von IE-s und wscript.exe-s schieße. Anscheinend hat der VBScript an sich kein PID weil er einfach eine ausführbare Datei ist aber er startet die oben beschriebenen zwei Prozesse. Diese zwei PIDs sollte ich herausfinden und die Stoppen wie mache ich das? Any suggestions?

strComputer = "."   
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")   
Set colItems = objWMIService.ExecQuery( _
    "SELECT * FROM Win32_Process WHERE CommandLine LIKE '%wscript.exe%'")   
For Each objItem in colItems 
    WScript.Echo "CommandLine: " & objItem.CommandLine  
Next

‘ Killbill_vol1.vbs
strComputer = "."  
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")  
Set colItems = objWMIService.ExecQuery( _
"SELECT * FROM Win32_Process WHERE CommandLine LIKE '%wscript.exe%'")  
For Each objItem in colItems  
stringText = objItem.CommandLine
'statusbar.vbs is used like an identifier for the exact prozess to terminate  
n = InStr(stringText, "Statusbar.vbs")  
if (n > 0) Then
objItem.Terminate
end if
Next

"SELECT * FROM Win32_Process WHERE CommandLine LIKE '%IEXPLORE.exe%'"  

CommandLine: "C:\Program Files\Internet Explorer\IEXPLORE.EXE"   
CommandLine: "C:\Program Files\Internet Explorer\IEXPLORE.EXE"   
CommandLine: "C:\Program Files\Internet Explorer\IEXPLORE.EXE"  

for /f "delims=, tokens=2" %%i in ('tasklist /FO csv /FI "\blala\Statusbar.vbs"') do Set PID=%%~i  
taskkill /PID %PID% /T /F

@REM Ready file is required to signalize that the batch is completed and the statusbar can be closed
ready >> %READYFILE% 2>NUL

batchStillRunning=true
Do
If objFSObject.FileExists(readyFilePath) Then
	 batchStillRunning = False
result = DeleteFile(readyFilePath)
Else 
  WScript.Sleep(1000)
End If
Loop While batchStillRunning = True


Private Function DeleteFile(filePath)
Dim objFSO

set objFSO = CreateObject("Scripting.FileSystemObject")  
If objFSO.FileExists(filePath) Then
	On Error Resume Next 
	objFSO.DeleteFile(filePath)
	If Err.Number <> 0 Then 
	  Set objFSO = Nothing
	  DeleteFile = Err.Number : Exit Function
	End If  
    On Error Goto 0
End If   
Set objFSO = Nothing
DeleteFile=0 'return 0 if no problems accrued  
End Function