Imports System
Imports System.Management

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 ex As ManagementException
        '    MessageBox.Show(ex.Message)
        'End Try

        Dim tempReturn As Management.ManagementObjectCollection

        Dim tempSearch As Management.ManagementObjectSearcher

        Dim temp As Management.ManagementObject

        Dim StrOut As String

        tempSearch = New Management.ManagementObjectSearcher("root\cimv2", "Select * from Win32_TemperatureProbe")

        tempReturn = tempSearch.Get

        For Each mo In tempReturn

            StrOut = StrOut & " " & mo("Name") & " " & mo("CurrentReading")

        Next

        MsgBox(StrOut)

    End Sub

End Class