CPU Belastung eines Prozzesses in Prozent berechnen.

@echo off &setlocal
>"ProcessList.csv" (  
  for /f "delims=" %%i in (  
    'WMIC PROCESS get Caption^,ProcessId^,ExecutablePath^,ParentProcessID^,KernelModeTime^,UserModeTime /format:csv'  
  ) do (
    for /f "delims=" %%j in ("%%i") do (  
      set "line=%%j"  
      setlocal EnableDelayedExpansion
        echo !line:,=;!
      endlocal
    )
  )
)

    Const CsvPath = "E:\Test\Ausgabe.csv"  

    Const strComputer = "."  


    Dim objWMIService, colProcesses, colProcess, Fso, File, Text, Target, TimeSumme, i

    Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")  
    
    Set colProcesses = objWMIService.ExecQuery("Select * from Win32_Process")  
        
    ReDim Target(colProcesses.Count - 1):  i = 0    'Array(Anzahl Prozesse)  
    
    For Each colProcess In colProcesses
        With colProcess.Properties_     
            'Array(Zeilen, Spalten)  
            Target(i) = Array(.Item("Caption").Value, _  
                           .Item("ProcessId").Value, _  
                           .Item("ExecutablePath").Value, _  
                           .Item("ParentProcessID").Value, _  
                           .Item("KernelModeTime").Value, _  
                           .Item("UserModeTime").Value, _  
                            0)  'Item für Prozentangabe reservieren  
            
            If IsNull(Target(i)(2)) Then Target(i)(2) = ""  'Null-Rückgabe für Path eliminieren  
            
            'Zeiten der einzelnen Prozesse addieren  
            TimeSumme = TimeSumme + CDbl(Target(i)(4)) + CDbl(Target(i)(5))
            
            i = i + 1   'Array(Zeile + 1)  
        End With
    Next
    
    'Text = Csv-Zeile mit Spalten-Überschrift  
    Text = "Caption;ProcessId;ExecutablePath;ParentProcessID;KernelModeTime;UserModeTime;Prozent" & vbCrLf  
    
    For i = 0 To UBound(Target)     'Prozentwerte/Prozess berechnen und in Array eintragen  
        'Prozentanteil im Format "0,000000%" in Array eintragen  
        Target(i)(6) = FormatNumber((CDbl(Target(i)(4)) + CDbl(Target(i)(5))) / TimeSumme * 100, 6) & "%"  
        
        'Text + Csv-Zeile der einzelnen Prozesse  
        Text = Text & Join(Array(Target(i)(0), _
                                 Target(i)(1), _
                                 Target(i)(2), _
                                 Target(i)(3), _
                                 Target(i)(4), _
                                 Target(i)(5), _
                                 Target(i)(6)), ";") & vbCrLf  
    Next
    
    Set Fso = CreateObject("Scripting.FileSystemObject")  
    
    'Csv-Datei erzeugen  
    With Fso.CreateTextFile(CsvPath)
        .Write Text
        .Close
    End With

Dim oADORec, oWMI, colItems, oItem, oFSO, oFile
Dim arrFields, arrValues
Dim dblSum
Dim sExePath

' Usersettings  
Const sCSVPath                    = "ProcessList.csv"  
Const sDelim                      = ";"  
Const sComputerName               = "."  
Const sReplaceNull                = ""  
Const iDecimales                  =   5

' Datentypen http://msdn.microsoft.com/en-us/library/windows/desktop/ms675318.aspx  
Const adChar                      = 129
Const adUnsignedInt               =  19
Const adUnsignedBigInt            =  21
Const adDouble                    =   5

' Datei öffnen http://msdn.microsoft.com/en-us/library/314cz14s.aspx  
Const ForWriting                  =   2

arrFields    = Array("Caption", "ProcessId", "ExecutablePath", _  
  "ParentProcessID", "KernelModeTime", "UserModeTime", "ProcessorUsage")  
dblSum        = 0

' ADO Recordset http://msdn.microsoft.com/en-us/library/windows/desktop/ms681510.aspx  
Set oADORec  = CreateObject("ADODB.Recordset")  
' Append http://msdn.microsoft.com/en-us/library/windows/desktop/ms681564.aspx  
oADORec.Fields.Append "Caption",         adChar          , 1024  
oADORec.Fields.Append "ProcessId",       adUnsignedInt  
oADORec.Fields.Append "ExecutablePath",  adChar          ,  256  
oADORec.Fields.Append "ParentProcessID", adUnsignedInt  
oADORec.Fields.Append "KernelModeTime",  adUnsignedBigInt  
oADORec.Fields.Append "UserModeTime",    adUnsignedBigInt  
oADORec.Fields.Append "ProcessorUsage",  adDouble  
oADORec.Open

' Win32_Process Class http://msdn.microsoft.com/en-us/library/windows/desktop/aa394372.aspx  
Set oWMI     = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" _  
  & sComputerName & "\root\cimv2")  
Set colItems = oWMI.ExecQuery("Select * from Win32_Process")  
For Each oItem In colItems
  If IsNull(oItem.ExecutablePath) Then
    sExePath = sReplaceNull
  Else
    sExePath = oItem.ExecutablePath
  End If
  arrValues  = Array(oItem.Caption, oItem.ProcessId, sExePath, _
    oItem.ParentProcessID, oItem.KernelModeTime, oItem.UserModeTime, 0)
  dblSum     = dblSum + arrValues(4) + arrValues(5)
  oADORec.AddNew arrFields, arrValues
Next

Set oItem    = Nothing
Set colItems = Nothing
Set oWMI     = Nothing

' CPU-Nutzung als Double-Wert hinzufügen  
oADORec.MoveFirst
While Not oADORec.EOF
  oADORec("ProcessorUsage").Value = _  
    (CDbl(oADORec("KernelModeTime")) + CDbl(oADORec("UserModeTime"))) / dblSum  
  oADORec.Update
  oADORec.MoveNext
Wend

' Sort Property http://msdn.microsoft.com/en-us/library/windows/desktop/ms675783.aspx  
'  Prozesse mit der höchsten CPU-Nutzung nach oben sortieren  
oADORec.Sort = "ProcessorUsage DESC"  

' FileSystemObject http://msdn.microsoft.com/en-us/library/d6dw7aeh.aspx  
'  Schreiben der Daten in die CSV Datei  
Set oFSO     = CreateObject("Scripting.FileSystemObject")  
Set oFile    = oFSO.OpenTextFile(sCSVPath, ForWriting, True)
oFile.WriteLine "Caption" & sDelim & "ProcessId" & sDelim & "ExecutablePath" & _  
  sDelim & "ParentProcessID" & sDelim & "ProcessorUsage"  
oADORec.MoveFirst
While Not oADORec.EOF
  oFile.WriteLine _
    oADORec("Caption")               & sDelim & _  
    CStr(oADORec("ProcessId"))       & sDelim & _  
    oADORec("ExecutablePath")        & sDelim & _  
    CStr(oADORec("ParentProcessID")) & sDelim & _  
    CStr(Round(oADORec("ProcessorUsage") * 100, iDecimales)) & "%"  
  oADORec.MoveNext
Wend
oFile.Close
oADORec.Close

Set oADORec  = Nothing
Set oFile    = Nothing
Set oFSO     = Nothing

Dim oADORec, oWMI, colItems, oItem, oFSO, oFile
Dim arrFields, arrValues
Dim sExePath
Dim dblSum

' Usersettings  
Const sCSVPath                    = "ProcessList.csv"  
Const sDelim                      = ";"  
Const sComputerName               = "."  
Const sReplaceNull                = ""  
Const iDecimales                  =   5
Const iWait                       =  10

' Datentypen http://msdn.microsoft.com/en-us/library/windows/desktop/ms675318.aspx  
Const adChar                      = 129
Const adUnsignedInt               =  19
Const adUnsignedBigInt            =  21
Const adBoolean                   =  11
Const adDouble                    =   5

' Datei öffnen http://msdn.microsoft.com/en-us/library/314cz14s.aspx  
Const ForWriting                  =   2

arrFields    = Array("Caption", "ProcessId", "ExecutablePath", _  
  "ParentProcessID", "KernelModeTime1", "UserModeTime1", "KernelModeTime2", _  
  "UserModeTime2", "Running", "ProcessorUsage")  
dblSum        = 0

' ADO Recordset http://msdn.microsoft.com/en-us/library/windows/desktop/ms681510.aspx  
Set oADORec  = CreateObject("ADODB.Recordset")  
' Append http://msdn.microsoft.com/en-us/library/windows/desktop/ms681564.aspx  
oADORec.Fields.Append "Caption",          adChar          , 1024  
oADORec.Fields.Append "ProcessId",        adUnsignedInt  
oADORec.Fields.Append "ExecutablePath",   adChar          ,  256  
oADORec.Fields.Append "ParentProcessID",  adUnsignedInt  
oADORec.Fields.Append "KernelModeTime1",  adUnsignedBigInt  
oADORec.Fields.Append "UserModeTime1",    adUnsignedBigInt  
oADORec.Fields.Append "KernelModeTime2",  adUnsignedBigInt  
oADORec.Fields.Append "UserModeTime2",    adUnsignedBigInt  
oADORec.Fields.Append "Running",          adBoolean  
oADORec.Fields.Append "ProcessorUsage",   adDouble  
oADORec.Open

' Win32_Process Class http://msdn.microsoft.com/en-us/library/windows/desktop/aa394372.aspx  
' 1. Run  
Set oWMI     = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" _  
  & sComputerName & "\root\cimv2")  
Set colItems = oWMI.ExecQuery("Select * from Win32_Process")  
For Each oItem In colItems
  If IsNull(oItem.ExecutablePath) Then
    sExePath = sReplaceNull
  Else
    sExePath = oItem.ExecutablePath
  End If
  arrValues  = Array(oItem.Caption, oItem.ProcessId, sExePath, _
    oItem.ParentProcessID, oItem.KernelModeTime, _
    oItem.UserModeTime, 0, 0, False, 0)
  oADORec.AddNew arrFields, arrValues
Next

Set oItem    = Nothing
Set colItems = Nothing

WScript.Sleep iWait * 1000

' 2. Run  
Set colItems = oWMI.ExecQuery("Select * from Win32_Process")  
For Each oItem In colItems
  oADORec.MoveFirst 
  oADORec.Find "ProcessID      = #" & oItem.ProcessID & "#"  
  If Not oADORec.EOF Then
    oADORec("KernelModeTime2") = oItem.KernelModeTime  
    oADORec("UserModeTime2")   = oItem.UserModeTime  
    oADORec("Running")         = True  
    oADORec.Update
  End If
Next

Set oItem    = Nothing
Set colItems = Nothing
Set oWMI     = Nothing

oADORec.MoveFirst
While Not oADORec.EOF
  If oADORec("Running") Then  
    dblSum   = dblSum + CDbl(oADORec("KernelModeTime2")) + CDbl(oADORec("UserModeTime2")) _  
      - CDbl(oADORec("KernelModeTime1")) - CDbl(oADORec("UserModeTime1"))  
  Else
    oADORec.Delete
  End If
  oADORec.Update
  oADORec.MoveNext  
Wend

' CPU-Nutzung als Double-Wert hinzufügen  
oADORec.MoveFirst
While Not oADORec.EOF
  oADORec("ProcessorUsage")    = _  
    (CDbl(oADORec("KernelModeTime2")) + CDbl(oADORec("UserModeTime2")) _  
    - CDbl(oADORec("KernelModeTime1")) - CDbl(oADORec("UserModeTime1"))) / dblSum  
  oADORec.Update
  oADORec.MoveNext
Wend

' Sort Property http://msdn.microsoft.com/en-us/library/windows/desktop/ms675783.aspx  
'  Prozesse mit der höchsten CPU-Nutzung nach oben sortieren  
oADORec.Sort = "ProcessorUsage DESC"  

' FileSystemObject http://msdn.microsoft.com/en-us/library/d6dw7aeh.aspx  
'  Schreiben der Daten in die CSV Datei  
Set oFSO     = CreateObject("Scripting.FileSystemObject")  
Set oFile    = oFSO.OpenTextFile(sCSVPath, ForWriting, True)
oFile.WriteLine "Caption" & sDelim & "ProcessId" & sDelim & "ExecutablePath" & _  
  sDelim & "ParentProcessID" & sDelim & "ProcessorUsage"  
oADORec.MoveFirst
While Not oADORec.EOF
  oFile.WriteLine _
    oADORec("Caption")               & sDelim & _  
    CStr(oADORec("ProcessId"))       & sDelim & _  
    oADORec("ExecutablePath")        & sDelim & _  
    CStr(oADORec("ParentProcessID")) & sDelim & _  
    CStr(Round(oADORec("ProcessorUsage") * 100, iDecimales)) & "%"  
  oADORec.MoveNext
Wend
oFile.Close
oADORec.Close

Set oADORec  = Nothing
Set oFile    = Nothing
Set oFSO     = Nothing

Option Explicit

Const CsvPath = "E:\Ausgabe.csv"  

Const strComputer = "."  

    Dim Fso, ListeB, ListeE, Key, Token, ValueK, ValueU, ValueT, Text
    Dim objWMIService, colProcessesB, colProcessesE, colProcess

    Set ListeB = CreateObject("Scripting.Dictionary")   'Assoziatives Array (Key, Wert) für Startwerte  
    Set ListeE = CreateObject("Scripting.Dictionary")   'Assoziatives Array (Key, Wert) für Stopwerte  
    
    Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")  
    
    Set colProcessesB = objWMIService.ExecQuery("Select * from Win32_Process")    'Startwerte abfragen  
    
    WScript.Sleep 1000  'Pause in Millisekunden  
    
    Set colProcessesE = objWMIService.ExecQuery("Select * from Win32_Process")    'Stopwerte abfragen  
    
    For Each colProcess In colProcessesB  'Start-Prozesse in ListeB sammeln (Key=ProzessID)  
        With colProcess.Properties_
            Token = Array(.Item("Caption").Value, _  
                          .Item("ProcessId").Value, _  
                          .Item("ExecutablePath").Value, _  
                          .Item("ParentProcessID").Value, _  
                          .Item("KernelModeTime").Value, _  
                          .Item("UserModeTime").Value, _  
                           0)
            
            If IsNull(Token(2)) Then Token(2) = ""  'Null-Rückgabe für Path eliminieren  

            ListeB.Add "$" & .Item("ProcessId").Value, Join(Token, ";")  
        End With
    Next
    
    For Each colProcess In colProcessesE  'Stop-Prozesse (nur Zeiten) in ListeE sammeln  
        With colProcess.Properties_
            Token = Array(.Item("KernelModeTime").Value, .Item("UserModeTime").Value)  
            ListeE.Add "$" & .Item("ProcessId").Value, Join(Token, ";")  
        End With
    Next
    
    ValueT = 0  'Summe Gesamtzeiten auf 0 setzen  
    
    For Each Key In ListeB.Keys     'Alle Prozesse auslesen  
        If ListeE.Exists(Key) Then  'Test ob Prozess bei Stop noch gelaufen ist  
            Token = Split(ListeB(Key), ";") 'Prozesswerte aus ListeB laden und Differenz Start/Ende übernehmen  
            ValueK = CDbl(Split(ListeE(Key), ";")(0)) - CDbl(Token(4))  'KernelModeTime  
            ValueU = CDbl(Split(ListeE(Key), ";")(1)) - CDbl(Token(5))  'UserModeTime  
            Token(4) = ValueK
            Token(5) = ValueU
            
            ValueT = CDbl(ValueT + ValueK + ValueU) 'Summe Gesamtzeiten  
            
            ListeB.Item(Key) = Join(Token, ";") 'Neue Prozesswerte wieder in Liste zurückschreiben  
        Else
            ListeB.Remove Key   'Wenn Prozess inzwischen terminiert, dann aus Liste entfernen  
        End If
    Next
            
    'Spaltenüberschrift  
    Text = "Caption;ProcessId;ExecutablePath;ParentProcessID;KernelModeTime;UserModeTime;Prozent" & vbCrLf  
    
    For Each Key In ListeB.Keys     'Alle Prozesse auslesen  
        Token = Split(ListeB(Key), ";") 'Prozesswerte aus ListeB laden  
        
        'Prozentwert berechnen und zu den Prozesswerten hinzufügen  
        Token(6) = FormatNumber((CDbl(Token(4)) + CDbl(Token(5))) / ValueT * 100, 6) & "%"  
            
        Text = Text & Join(Token, ";") & vbCrLf 'Prozesswerte in einem Text-String sammeln  
    Next
           
    Set Fso = CreateObject("Scripting.FileSystemObject")  
    
    'Csv-Datei schreiben  
    With Fso.CreateTextFile(CsvPath)
        .Write Text
        .Close
    End With