Lüfterdrehzahl auslesen [mit WMI]

[robinWie]

Hallo,
ich habe mei MSDN was gefunden, wei man die Lüfterdrehzahl auslesen kann. Das ganze funzt mit WMI. Ich habe angefangen mich das durchzuwüllen aber irgendwie weiss ich nicht weiter. Bisher habe ich folgendes:
{...}ActiveX, WbemScripting_TLB;

Delphi-Quellcode:

const
  WMI_HOST_COMPUTER = '.';
  WMI_SYSTEM_NAMESPACE = 'root\CIMV2';
  WMI_CLASS_NIC = 'Win32_FAN';
  WMI_ATTRIB_CAPTION = 'Name';
  WMI_ATTRIB_PATH = 'ExecutablePath';
  WMI_ATTRIB_PROCID = 'ProcessID';
  WMI_ATTRIB_PARENT_PROCID = 'ParentProcessId';
  WMI_ATTRIB_SESSIONID = 'SessionID';
  WMI_ATTRIB_THREAD_CNT = 'ThreadCount';
  WMI_ATTRIB_PRIORITY = 'Priority';

Kann mir jemand helfen?