AW: Win XP laufende Prozesse
07.06.2007 22:38:00
Ramses
Hallo
Die Daten werden ohne Prüfung in die ersten 4 Spalten der aktiven Tabelle geschrieben
Option Explicit
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")
'Possible Properties of Win32_Process
'Caption
'CommandLine
'CreationClassName
'CreationDate
'CSCreationClassName
'CSName
'Description
'ExecutablePath
'ExecutionState
'Handle
'HandleCount
'InstallDate
'KernelModeTime
'MaximumWorkingSetSize
'MinimumWorkingSetSize
'Name
'OSCreationClassName
'OSName
'OtherOperationCount
'OtherTransferCount
'PageFaults
'PageFileUsage
'ParentProcessId
'PeakPageFileUsage
'PeakVirtualSize
'PeakWorkingSetSize
'Priority
'PrivatePageCount
'ProcessId
'QuotaNonPagedPoolUsage
'QuotaPagedPoolUsage
'QuotaPeakNonPagedPoolUsage
'QuotaPeakPagedPoolUsage
'ReadOperationCount
'ReadTransferCount
'SessionId
'Status
'datetime TerminationDate
'ThreadCount
'UserModeTime
'VirtualSize
'WindowsVersion
'WorkingSetSize
'WriteOperationCount
'WriteTransferCount
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
Gruss Rainer