[VB.NET] Leggere la temperatura della CPU

[linoma]

strComputer = "."
Set colTempProbe = GetObject("Winmgmts:"_
    & "{impersonationLevel=impersonate}!\\\\"_ 
    & strComputer & "\\root\\cimv2")._
    InstancesOf("Win32_TemperatureProbe")
Num = 0
For Each obj In colTempProbe      
    WScript.Echo   obj.Name & VBNewLine _
        & obj.DeviceID & VBNewLine _
        & obj.Status & VBNewLine _
        & obj.Resolution & VBNewLine _
        & obj.Tolerance & VBNewLine _
        & obj.Accuracy 
    Num = Num + 1
Next
If Num = 0 Then
    WScript.Echo "No temperature probe data"
End If 

Questo è un'esempio in VisualBasic Script, lo incoli in un file con estensione vbs e lo esegui anche cn doppio click, altrimenti da prompt DOS cscript file.vbs.

Forse, visto che torna 34, puo darsi che il driver sia funzionante