Lüfter-Geschwindigkeit via WMI ermitteln Diese Funktion ermittelt die Lüfter-Geschwindigkeit (FAN-Speed) über WMI.
Autor:   Dennis Hemken	Bewertung:     [ Jetzt bewerten ]	Views:  11.946
gadgets.hemken.org	System:  WinXP, Win8, Win10, Win11	Beispielprojekt auf CD

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

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Mit nachfolgender Funktion lässt sich die Lüfter-Geschwindigkeit (FAN-Speed) über das Windows Management Instrument (WMI) ermitteln.

' Ermittelt die Lüfter-Geschwindigkeit via WMI
' Hinweis: Nicht alle Mainboards unterstützen dies!
Public Function fct_FANSpeed(ByVal strComputer As String) As String
  Dim strOutput As String
  Dim objWMIS As Object
  Dim colWMI As Object
  Dim objFan As Object
 
  On Error Resume Next
  Set objWMIS = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
 
  Set colWMI = objWMIS.ExecQuery( _
    "SELECT activecooling, caption, description, desiredspeed, " & _
    "variablespeed, status FROM Win32_Fan")
 
  For Each objFan In colWMI
    strOutput = strOutput & "Caption: " & objFan.Caption & vbCrLf & _
      "-> Description:" & vbTab & vbTab & objFan.Description & vbCrLf & _
      "-> Active Cooling:" & vbTab & vbTab & objFan.activecooling & vbCrLf & _
      "-> Desired Speed:" & vbTab & vbTab & objFan.desiredspeed & vbCrLf & _
      "-> Variable Speed:" & vbTab & vbTab & objFan.variablespeed & vbCrLf & _
      "-> Status:" & vbTab & vbTab & objFan.Status
  Next
  On Error GoTo 0
 
  fct_FANSpeed = strOutput
End Function

Aufrufbeispiel:

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 = "."
 
MsgBox  fct_FANSpeed(strComputer)