CPU-Geschwindigkeit via WMI ermitteln Diese Funktion ermittelt die CPU-Geschwindigkeit über WMI.
Autor:   Dennis Hemken	Bewertung:     [ Jetzt bewerten ]	Views:  9.560
gadgets.hemken.org	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 18 Bewertung insgesamt: sehr gut Durchschnittliche Bewertung: 5.0 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Was ist denn WMI?
WMI ist - Windows Management Instrumentation.

Über WMI kann lesend und schreibend, lokal oder vom Netzwerk aus, auf nahezu alle Einstellungen eines Windows-Computers zugegriffen werden. WMI ist daher unter Windows eine der wichtigsten Schnittstellen für die Administration und Fernwartung von Workstations und Servern.

Und hier der Code:

' Ermittelt die CPU-Geschwindigkeit via WMI
Public Function fct_CPUSpeed(ByVal strComputer As String)
  Dim strOutput As String
  Dim objWMIS As Object
  Dim colWMI As Object
  Dim objProcessor As Object
 
  On Error Resume Next
  Set objWMIS = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
  Set colWMI = objWMIS.ExecQuery( _
    "SELECT DeviceID, MaxClockSpeed, Name, Status FROM Win32_Processor")
 
  For Each objProcessor In colWMI
    strOutput = strOutput & objProcessor.Name & ": " & objProcessor.DeviceID & _
      "-Speed: " & objProcessor.MaxClockSpeed & _
      "Mhz (Status:" & objProcessor.Status & ")" & vbCrLf
  Next
  On Error GoTo 0
 
  fct_CPUSpeed = strOutput
End Function

Beispielaufruf:

Dim strComputer As String
 
' Der Punkt (.) ist sowas wie der localhost, also für den eigenen PC
' es geht aber auch mit einer IP-Adresse, oder einem Computernamen,
' vorausgesetzt, dieser befindet sich im gleichen Netz.
strComputer = "."
 
Debug.Print fct_CPUSpeed(strComputer)