vb2008能够获取CPU风扇的转速吗？

想编写一个简单的程序，用来获取CPU风扇转速，当转速过低时，给予使用者提示，但不知道如何获取CPU风扇转速，还请大家帮忙？多谢！ --------------------编程问答-------------------- http://www.cpuid-pro.com/hwmonitor.php
ManagementObjectSearcher mySearcher = new ManagementObjectSearcher("select * from Win32_Fan");
foreach (ManagementObject myObject in mySearcher.Get())
{

}
--------------------编程问答-------------------- ……………………………………………………………… --------------------编程问答-------------------- Private Sub get_CPU_Fan_info()

        Dim name As String
        Dim Fan_DesiredSpeed As String

        name = "DesiredSpeed"

        Dim Fan As New System.Management.ManagementObjectSearcher("select * from Win32_Fan")

        For Each obj1 As System.Management.ManagementObject In Fan.Get

            Try
                Fan_DesiredSpeed = obj1("name").ToString.Trim
            Catch ex As Exception
                Fan_DesiredSpeed = ""
            End Try

            lbl_CPU.Text = Fan_DesiredSpeed

        Next

End Sub

以上代码运行以后，FOR EACH...NEXT过程都不执行，再请教一下 --------------------编程问答--------------------

有难度，来学习下 --------------------编程问答-------------------- 主板支持是前题，不然Fan是空的也执行不了 --------------------编程问答-------------------- 现在的CPU风扇都是自动调速的了。
获取风扇转速还不如获取CPU温度。
另外和早期电脑不同，现在的散热器即使不工作，也不会对系统造成什么破坏。

另外，这些传感器获得的数据也只是一个参考。1f的wmi方式就不错，很通用。 --------------------编程问答-------------------- 路过学习一下。

--------------------编程问答-------------------- 学习可 --------------------编程问答-------------------- --------------------编程问答-------------------- --------------------编程问答-------------------- --------------------编程问答-------------------- 获取FAN的转速还真是第一次看到此需求哈。
只接触过获取CPU 温度，机器码。。。

补充：.NET技术 ,  VB.NET