---

Ich will in regelmässigen Abständen die Anzahl Prozesse auf verschiedenen Servern ermitteln. Ich mache dies mit folgendem vbs-Code:

Code:

---

ServerArray = Array("server12","server13","server14")

Anzahl = 0
For Each strComputer In ServerArray
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colProcessList = objWMIService.ExecQuery("Select * from Win32_Process")
For Each objProcess in colProcessList
Return = objProcess.GetOwner(strNameOfUser)
If Return = 0 Then ' Check ob der Prozess immer noch existiert
If LCase(strNameOfUser) = "userxyz" and left(LCase(objProcess.Name),2) = "p_" Then
Anzahl = Anzahl + 1
End If
End If
Next
Set objWMIService = Nothing
Next

fo.WriteLine(ActDate & " " & ActTime & " " & Anzahl)

---

Das Problem ist jetzt aber, dass mir der Batchprozess von Zeit zu Zeit hängen bleibt. Ich kann es leider nicht reproduzieren, nehme aber an dass in der Zeit zwischen der Ermittlung der Prozessliste  (Set colProcessList = objWMIService.ExecQuery("Select * from Win32_Process")) und dem Abfragen der Prozessparameter
(objProcess.GetOwner(strNameOfUser) bzw. objProcess.Name) der Prozess gestorben ist und deshalb das Script hängen bleibt

Habt ihr noch andere Ideen bzw. wie kann ich das sauber abfangen (ausser vielleicht mit on error resume next, das finde ich immer eine Bastellösung ?

Axel

------------------
Inoffizielle deutsche CATIA Hilfeseite  Netiquette von cad.de

[Diese Nachricht wurde von Axel.Strasser am 10. Nov. 2009 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Abend Axel,

falls Du in VBS (?) denn Win-API Funktionen benutzen kannst nimm CreateToolhelp32Snapshot, dann solltest Du kein Zeitprobleme mehr haben. Alternativ nimm vielleicht einfach eine EXE die das kann, z.B. pslist von Sysinternals ?

http://www.activevb.de/tipps/vb6tipps/tipp0273.html
http://technet.microsoft.com/de-de/sysinternals/bb896682.aspx

cu, Bernd

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Danke für Deine Antwort, aber Win-API lassen sich nicht so ohne weiteres im vbs aufrufen und pslist hatte ich auch schon versucht, das liefert mir aber nicht alle Infos (z.B. keinen Benutzernamen).

Wahrscheinlich werde ich halt doch mit on error arbeiten müssen

Axel

------------------
Inoffizielle deutsche CATIA Hilfeseite  Netiquette von cad.de

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP