Prozess überwachen mit VBA

Sub Prozesse_auflisten() Set objWindowsService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\.\root\cimv2") Set colProcessList = objWindowsService.ExecQuery _ ("SELECT * FROM Win32_Process") For Each objProcess In colProcessList a = a + 1 'Zeilenzähler Cells(a, 1).Value = objProcess.Name 'Ausgabe Cells(a, 2).Value = objProcess.ProcessId 'Id Cells(a, 3).Value = objProcess.WorkingSetSize Next objProcess End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

$Test = 1 $Prozout = "Prozessorlast" $Ramout = "Speicherlast" $Out = "$env:userprofile\desktop\CpuRam.txt" Do { $Date = get-date -format G $CPU = (get-wmiobject Win32_processor).Loadpercentage $Mem = (get-wmiobject Win32_PerfRawData_PerfOS_Memory).CommittedBytes /1GB Write-output $Date | out-file $Out -append -noclobber Write-Output "$Prozout = $CPU %" | out-file $Out -append -noclobber Write-Output "$Ramout = $Mem GigaByte" | out-file $Out -append -noclobber Write-Output " " | out-file $Out -append -noclobber Sleep 1 } While ($Test = 1)

strComputer = "." 'Local machine, can be adjusted to access remote workstations Set objWMIService = GetObject("winmgmts:\" & strComputer & "rootcimv2") Set colItems = objWMIService.ExecQuery( _ "SELECT * FROM Win32_PerfFormattedData_PerfOS_Processor",,48) For Each objItem in colItems Debug.Print "-----------------------------------" Debug.Print "Win32_PerfFormattedData_PerfOS_Processor instance" Debug.Print "-----------------------------------" Debug.Print "PercentProcessorTime: " & objItem.PercentProcessorTime Next

Hallo Sebastian,
teste mal:

Option Explicit

Private Declare Sub Sleep Lib "kernel32.dll" ( _
    ByVal dwMilliseconds As Long)

Public Sub test1()

    Dim objProcess As Object, objItem As Object
    Dim lngIndex As Long, blnOutput As Boolean

    For lngIndex = 1 To 100
        Set objProcess = GetObject("winmgmts:").InstancesOf( _
            "Win32_Process WHERE Name LIKE 'AcroRd%'")

        For Each objItem In objProcess
            If blnOutput Then Debug.Print objItem.PrivatePageCount / 1024 / 1024
            blnOutput = Not blnOutput
        Next
        Call Sleep(1000)
        DoEvents
    Next
End Sub

Es wird der AcrobatReader überwacht (AcroRD32.exe). Es sind ein paar MB's mehr da der Taskmanager nur den realen Arbeitsspeicher anzeigt, mein Makro aber die Auslagerungsdatei (PageFile.sys) mit berücksichtigt.
Gruß
Nepumuk

Moin Sebastian,
folgende Quelle für den Zugang zu den Prozessen über VBA:
http://www.excel-inside.de/vba-loesungen/sonstiges/987-windows-prozesse-auslesen-und-beenden
Folgende Quelle für alle möglichen Parameter:
http://docs.microsoft.com/en-us/windows/desktop/cimwin32prov/win32-process
Direkt den belegten Speicher habe ich nicht gesehen auf die Schnelle. Der Parameter WorkingSetSize scheint mir am nächsten zu kommen. Kannst Du einfach statt name im Beispielscript einsetzen.


Sub Prozesse_auflisten()
'** Alle Prozesse ab Zelle A1 auflisten
'** Vorgaben definieren
Set objWindowsService = GetObject("winmgmts:" & _
"{impersonationLevel=impersonate}!\\.\root\cimv2")
'** Abfrage der aktiven Prozesse
Set colProcessList = objWindowsService.ExecQuery("SELECT * FROM Win32_Process")
'** Selektierte Prozessliste durchlaufen
For Each objProcess In colProcessList
a = a + 1 'Zeilenzähler
Cells(a, 1).Value = objProcess.Name 'Ausgabe Name
Cells(a, 2).Value = objProcess.WorkingSetSize 'Ausgabe benötigter Speicher zum Arbeiten
Next objProcess
End Sub

Viele Grüße,
Zwenn

Sub M_snb() with createobject("word.application") For Each it In .Tasks c00 = c00 & vbCr & it.Name Next .quit end with msgbox "__very link.xlsb ist " & format(instr(c00,"Microsoft Excel - __very link.xlsb")0," _ yes/no") & " geladen" end sub

Beliebteste Forumthreads (12 Monate)

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread