blogMyTrash

‘ Mit VBScript bestimmten Prozess auf Existenz prüfen
‘ Prüfen ob der test_process auf diesem Computer ausgeführt wird

strComputer = “.”
Set objNet = CreateObject(“WScript.Network”)
strUser = objNet.UserName
src = strUser
test_process =”notepad.exe”

schleife

Sub schleife
On Error Resume Next
Set objwmi = GetObject(“winmgmts:\\” & strComputer)
wql = “Select * from Win32_Process Where Name = ‘” & test_process & “‘”

Set objProzesse = objwmi.ExecQuery(wql)

For Each objProzess In objProzesse
WScript.Echo objProzess.Name ‘ Prozessname ausgeben
objProzess.GetOwner user ‘ Besitzer eines Prozesses ermitteln
WScript.Echo user ‘ Besitzer des Prozesses ausgeben
Next
schleife
End Sub