Luafende Prozesse im Netzwerk

Sub ReadProcessData()
'(C) by Ramses
Dim objWMIService As Object, colProcesses As Object, sinProcess As Object
Dim myRow As Long
Set objWMIService = GetObject("winmgmts:")
Set colProcesses = objWMIService.ExecQuery("Select * from Win32_Process")
myRow = 2
Range(Cells(1, 1), Cells(Rows.Count, 4)).Clear
Cells(1, 1) = "ProcessName"
Cells(1, 2) = "ProcessID"
Cells(1, 3) = "Max Memory"
For Each sinProcess In colProcesses
With sinProcess
Cells(myRow, 1) = .Name
Cells(myRow, 2) = .ProcessID
Cells(myRow, 4) = .MaximumWorkingSetSize
End With
myRow = myRow + 1
Next
End Sub