Luafende Prozesse im Netzwerk
30.08.2007 15:52:28
Andre
ich hab hier im Archiv folgenden Code von Ramses gefunden, mit dem ich die laufenden Prozesse abfragen kann. Sehr gut, Kompliment, aber ist es auch möglich, die Prozesse eines weiteren Rechners im Netzwerk abzurufen?
mfg
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