How to log the over all cpu usage

[Julius Ramos]

i want to create a script that monitor the cpu usage. but i dont know how to start.

any can share there script is highly appreciated..

thank you in advanced.

julius

[SmOke_N]

I think gary wrote this... guess you could just do a filewrite() to log everything.

$wbemFlagReturnImmediately = 0x10
$wbemFlagForwardOnly = 0x20
$colItems = ""
$strComputer = "localhost"

$objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2")
While 1
    $colItems = $objWMIService.ExecQuery ("SELECT * FROM Win32_Processor", "WQL", _
            $wbemFlagReturnImmediately + $wbemFlagForwardOnly)
    If IsObj($colItems) Then
        For $objItem In $colItems
            If Int($objItem.LoadPercentage) <> 100 Then
          ; do something here
                ToolTip("Your CPU Usage is: " & $objItem.LoadPercentage & "%", 0, 0)
            EndIf
        Sleep(1000)
        Next
    EndIf
Sleep(100)
WEnd

Edited January 8, 2006 by SmOke_N

[Julius Ramos]

I think gary wrote this... guess you could just do a filewrite() to log everything.

$wbemFlagForwardOnly = 0x20
$colItems = ""
$strComputer = "localhost"

$objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2")
While 1
    $colItems = $objWMIService.ExecQuery ("SELECT * FROM Win32_Processor", "WQL", _
            $wbemFlagReturnImmediately + $wbemFlagForwardOnly)
    If IsObj($colItems) Then
        For $objItem In $colItems
            If Int($objItem.LoadPercentage) <> 100 Then
          ; do something here
                ToolTip("Your CPU Usage is: " & $objItem.LoadPercentage & "%", 0, 0)
            EndIf
        Sleep(1000)
        Next
    EndIf
Sleep(100)
WEnd

when i run this script i encountered an error.:

Variable used without being declared.:

$colItems = $objWMIService.ExecQuery ("SELECT * FROM Win32_Processor", "WQL",$wbemFlagReturnImmediately + $wbemFlagForwardOnly)

$colItems = $objWMIService.ExecQuery ("SELECT * FROM Win32_Processor", "WQL",^ ERROR

[Julius Ramos]

what is the value of $wbemFlagReturnImmediately

[SmOke_N]

what is the value of $wbemFlagReturnImmediately

Oh you have to guess that... Lmao... just kidding

$wbemFlagReturnImmediately = 0x10

[Julius Ramos]

I think gary wrote this... guess you could just do a filewrite() to log everything.

$wbemFlagForwardOnly = 0x20
$colItems = ""
$strComputer = "localhost"

$objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2")
While 1
    $colItems = $objWMIService.ExecQuery ("SELECT * FROM Win32_Processor", "WQL", _
            $wbemFlagReturnImmediately + $wbemFlagForwardOnly)
    If IsObj($colItems) Then
        For $objItem In $colItems
            If Int($objItem.LoadPercentage) <> 100 Then
         ; do something here
                ToolTip("Your CPU Usage is: " & $objItem.LoadPercentage & "%", 0, 0)
            EndIf
        Sleep(1000)
        Next
    EndIf
Sleep(100)
WEnd

is this code support also win 9x ? Edited January 4, 2006 by Julius Ramos

[SmOke_N]

I don't know.. have you tried it to see?

[rakudave]

sorry for bothering you, but i get

$wbemFlagReturnImmediately is undeclared

-> ???

[SmOke_N]

Hmmm, didn't look at the whole post ? It was a bad copy and paste on my behalf... I'll edit the other one now.

http://www.autoitscript.com/forum/index.ph...ndpost&p=136885

[rakudave]

/me bangs his head against a wall

[Confuzzled]

is this code support also win 9x ?

The code quoted relies on WMI functionality, which if I recall is not installed by default on Win9x machines by default.

[SvenP]

See also this topic:

http://www.autoitscript.com/forum/index.ph...11entry138811

-Sven