[转].net读取硬件信息的参考代码

using System;
using System.Management;

namespace HTSoft.Common.Register

CPU温度

Public Function GetCPUTemp() As Double
          Dim i     As Integer
          Dim mCPU     As Variant
          Dim u     As Variant
          Dim s     As String
            
          Set mCPU = GetObject("WINMGMTS:{impersonationLevel=impersonate}!rootwmi").ExecQuery("Select   CurrentTemperature   From   MSAcpi_ThermalZoneTemperature")
          For Each u In mCPU
                  s = s & u.CurrentTemperature
          Next
            
          Set mCPU = Nothing
            
          GetCPUTemp = (s - 2732) / 10
            DoEvents
  End Function

Source:http://blog.csdn.net/xykwgjyygy/archive/2008/02/22/2112697.aspx