การดู Information ของอุปกรณ์ต่างๆ ที่อยู่ในคอมพิวเตอร์ของเราด้วย .NET

    Private Sub ShowProcessorByDotNet()
        Dim SQL As String = "SELECT * FROM Win32_Processor"
        Dim search As New ManagementObjectSearcher(SQL)
        Dim sb As New System.Text.StringBuilder
        For Each obj As ManagementObject In search.Get
            sb.Remove(0, sb.Length)
            For Each p As PropertyData In obj.Properties
                sb.AppendFormat(vbCrLf & "{0}: {1}", p.Name, p.Value)
            Next
            MessageBox.Show(sb.ToString)
        Next
    End Sub