dotNETportal.cz

Zdravím,

snažím se vydolovat údaje o teplotách z hardwareových sensorů (teplota disku). Našel jsem tento kód:

    Private Sub Button1_Click() Handles Button1.Click
        Try
            Dim s As New ManagementObjectSearcher("root\WMI", "SELECT * FROM MSAcpi_ThermalZoneTemperature")
            For Each q As ManagementObject In s.Get()
                Dim t As Double = CDbl(q("CurrentTemperature"))
                t = (t - 2732) / 10.0
                MessageBox.Show(t.ToString)
            Next
        Catch ex As ManagementException
            MessageBox.Show(ex.Message)
        End Try
    End Sub

Ten mi ale vyhodí výjimku "Not Supported". K datům se ale dostat dá, program HWiNFO32 mi je přečíst dokáže. Nenapadá Vás co s tím?

Aha, tak to mám smůlu. Děkuji za odpověď.