Temperatura pc

Hola, con WMI se puede por lo menos sacar la temperatura del disco Duro..

Código

Option Explicit On
 
Imports System
Imports System.Management
Imports System.Windows.Forms
 
Public Class Form1
 
    Private Sub Form1_Load( _
        ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles MyBase.Load
 
        Button1.Text = "Averiguar la temperatura"
 
    End Sub
 
    Private Sub Button1_Click( _
        ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles Button1.Click
 
 
        Me.Cursor = Cursors.WaitCursor
        Try
 
            Dim Buscar As New ManagementObjectSearcher( _
                "root\WMI", _
                "SELECT * FROM MSStorageDriver_ATAPISmartData")
 
            For Each queryObj As ManagementObject In Buscar.Get()
                Dim arrVendorSpecific As Byte() = queryObj("VendorSpecific")
                MsgBox("La Temperatura es: " & arrVendorSpecific(115).ToString & " Grados")
            Next
 
        Catch err As ManagementException
            MessageBox.Show("Error " & err.Message)
        End Try
 
        Me.Cursor = Cursors.Default
 
    End Sub
End Class

de las otras cosas, la verdad no he visto codigo, tambien debe ser porque dependen del fabricante de la placa madre o la pc, como lo hace el everest debe tener algo que identifica cada pc.

saludos.