CPU und System Temperatur auslesen

03/06/2008 - 22:19 von Joachim Päper | Report spam
Hallo NG,

ich möchte gerne die nach dem Start des Rechners angezeigte System und CPU
Temperatur verarbeiten.
Bei meiner Recherche fand ich dazu diesen Code:

Public Function CPU_Temp() As Double
Try
Dim searcher As New
Management.ManagementObjectSearcher("root\WMI", "SELECT * FROM
MSAcpi_ThermalZoneTemperature")

For Each queryObj As Management.ManagementObject In
searcher.Get()
Dim temp As Double = CDbl(queryObj("CurrentTemperature"))
temp = (temp - 2732) / 10.0
Debug.Print("CPU-Temperatur: " & temp & "°C")
Next

Catch ex As Management.ManagementException
Debug.Print(ex.Message)
End Try

Es wird aber kontinuierlich ein Wert von 40°C (BIOS sagt bei Neustart jedoch
CPU 50°C, System 39°C) angezeigt, offenbar funktioniert es so nicht.
Es ist ein Mini ITX Board mit einer Via Eden CPU.

Wie komme ich an die vom BIOS angezeigte CPU und System-Temperatur?

End Function
 

Lesen sie die antworten

#1 Latin Reiz
04/06/2008 - 22:55 | Warnen spam
"Joachim Pàper" schrieb

Bei meiner Recherche fand ich dazu diesen Code:



Der geht wohl nur bei Intelboards.


Wie komme ich an die vom BIOS angezeigte CPU und System-Temperatur?



die muss man wohl im SMBios auslessen, einem Byte-Array das man bekommt mit
'Select * from MSSmBios_RawSMBiosTables'

http://www.dmtf.org/standards/smbios/
http://www.codeproject.com/KB/syste..._Peek.aspx

Ähnliche fragen