Как я могу получить температуру оборудования с помощью VB.NET?

Есть несколько ресурсов, которые легко найти через Google, относительно проверки термодатчиков с помощью других WMI. Один из таких примеров для VB .NET уже здесь.

Для справки, вот пример фрагмента:

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

    Catch err As ManagementException

        MessageBox.Show("An error occurred while querying for WMI data: " & err.Message)

    End Try

End Sub

End Class