获得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}!root/wmi").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