' ACPI_CPUTemp v1.0
'
' Reads the CPU temperature from the ACPI data using WMI.
' Returns temp. in celsius.

Function ACPI_CPUTemp()
   dim r, lu
   set PFU = GetObject("winmgmts:{impersonationLevel=impersonate}!root\wmi").ExecQuery _
           ("SELECT CurrentTemperature FROM MSAcpi_ThermalZoneTemperature")
   
   for each U in PFU
      r = r&U.CurrentTemperature
   Next
   
   ' r is tenth of kelvin, convert to 蚓.
   ACPI_CPUTemp = (r - 2732) / 10
   
   set PFU=Nothing
End Function

Windows Management Instrumentation (WMI)
http://msdn.microsoft.com/library/en-us/dnanchor/html/anch_wmi.asp
WMI C++ Application Examples
http://msdn.microsoft.com/library/en-us/wmisdk/wmi/wmi_c___application_examples.asp