CPU Auslastung einfügen/anzeigen

[Harald789]

Guten Tag,
kann mir jemand sagen ob es möglich ist die CPU Auslastung in DIAdem einzubinden?

Gruß

[grisu]

Hi Harald789,

geht z.B. so...

Code:

Option Explicit  'Erzwingt die explizite Deklaration aller Variablen in einem Script.

Dim strComputer, objWMIService, colItems, objItem

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colItems = objWMIService.ExecQuery("Select * from Win32_Processor")
For Each objItem in colItems
    Call MsgBoxDisp("Load Percentage: " & objItem.LoadPercentage)
Next

Um allerdings einen verlässlichen Wert zu bekommen, solltest du ein paar Werte aufaddieren und das Mittel draus nehmen...

Code:

Option Explicit  'Erzwingt die explizite Deklaration aller Variablen in einem Script.

Dim i, j, strComputer, objWMIService, colItems, objItem

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

j=0
For i=1 to 3
  Set colItems = objWMIService.ExecQuery("Select * from Win32_Processor")
  For Each objItem in colItems
      j=j+objItem.LoadPercentage
  Next
Next
Call MsgBoxDisp("Load Percentage: " & j/3)

Grüße grisu