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

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)

Copyright ©2000-2024 vb@rchiv Dieter OtterAlle Rechte vorbehalten.

Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.