Alternativ ginge es auch via cmd (hauptsache, ich bekomm die Ausgabe).
Beispiel: Der Prozess heißt IE. Nun möchte ich wissen, welche Seiten gerade geöffnet sind.
Hier ein Beispiel wo jedoch "WindowCaption" nicht läuft:
- Code: Alles auswählen
Const adVarChar = 200
Const MaxCharacters = 255
Const adFldIsNullable = 32
Const adInteger = 3
Set DataList = CreateObject("ADOR.Recordset")
DataList.Fields.Append "ProcessName", adVarChar, MaxCharacters, adFldIsNullable
DataList.Fields.Append "WorkingSetSize", adInteger, adFldIsNullable
DataList.Open
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colProcesses = objWMIService.ExecQuery("Select * From Win32_Process where Name = 'FastProg.exe'")
For Each objProcess in colProcesses
DataList.AddNew
DataList("ProcessName") = objProcess.Name
DataList("WorkingSetSize") = objProcess.WorkingSetSize
DataList("windowcaption") = objProcess.WindowCaption
DataList.Update
Next
DataList.Sort = "WorkingSetSize"
DataList.MoveFirst
Do Until DataList.EOF
Wscript.Echo DataList.Fields.Item("ProcessName"),_
DataList.Fields.Item("WorkingSetSize"),_
DataList.Fields.Item("windowcaption")
DataList.MoveNext
Loop
