Código
Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Try Dim searcher As New ManagementObjectSearcher( _ "root\WMI", "SELECT * FROM MSAcpi_ThermalZoneTemperature") For Each queryObj As ManagementObject In searcher.Get() Dim temp As Double = CDbl(queryObj("CurrentTemperature")) temp = (temp - 2732) / 10.0 MessageBox.Show(temp.ToString) Next End Try End Sub End Class
Que obviamente funciona pero parace ser incompatible con Windows Vista/7, incluso el mensaje de error dice explícitamente "Incompatible", alguna otra forma de obtener la temperatura del CPU? Gracias.