CPU Auslastung eines Prozesses

    Hi!

    Den Schnipsel hatte ich von jemanden im, Archiv !
    Der "Erste Start ist ein wenig lang" ! ^^

    Spoiler anzeigen
    [autoit]

    Local $objRefresher, $objRefreshableItem, $i
    $objRefresher = ObjCreate('WbemScripting.SWbemRefresher')
    $objRefreshableItem = $objRefresher.AddEnum(ObjGet('winmgmts:\\.\root\CIMV2'), 'Win32_PerfFormattedData_PerfOS_Processor')
    $objRefresher.Refresh
    If IsObj($objRefreshableItem) Then Global $aCPU[$objRefreshableItem.ObjectSet.Count]
    While True
    $objRefresher.Refresh
    If IsObj($objRefreshableItem) Then
    $i = 0
    For $objItem In $objRefreshableItem.ObjectSet
    $aCPU[$i] = $objItem.PercentProcessorTime
    $i += 1
    Next

    [/autoit] [autoit][/autoit] [autoit]

    EndIf
    ConsoleWrite('============' & @CRLF)
    For $i = 0 To UBound($aCPU) - 2
    ConsoleWrite('Core ' & $i + 1 & ': ' & $aCPU[$i] & @CRLF)
    Next
    ConsoleWrite('Gesamt: ' & $aCPU[UBound($aCPU) - 1] & @CRLF)
    Sleep(500)
    WEnd

    [/autoit] [autoit][/autoit] [autoit]

    Func OnAutoItExit()
    $objRefresher.DeleteAll
    EndFunc ;==>OnAutoItExit

    [/autoit]

    Edit:/ du meintest ja "von einem Prozess" :whistling:

    Lg Kleiner