You can try the code below to get your system Information, Like hardware configuration etc.


Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Try
            'OS information
            ListView1.Items.Add("OS Name")
            ListView1.Items(0).SubItems.Add(My.Computer.Info.OSFullName)
            Dim info As Management.ManagementObject
            Dim search As New Management.ManagementObjectSearcher("SELECT * FROM Win32_OperatingSystem")
            For Each info In search.Get()
                ListView1.Items.Add("Version")
                ListView1.Items(1).SubItems.Add(My.Computer.Info.OSVersion & " Service Pack " & info("ServicePackMajorVersion").ToString & "." & info("ServicePackMinorVersion").ToString)
                ListView1.Items.Add("OS Manufacturer")
                ListView1.Items(2).SubItems.Add(info("Manufacturer").ToString())
            Next

            'Processor
            Dim search1 As New Management.ManagementObjectSearcher("SELECT * FROM Win32_Processor")
            For Each info In search1.Get()
                ListView2.Items.Add("Address Width")
                ListView2.Items(0).SubItems.Add(info("AddressWidth").ToString())
                ListView2.Items.Add("Architecture")
                ListView2.Items(1).SubItems.Add(info("Architecture").ToString())
                ListView2.Items.Add("Availability")
                ListView2.Items(2).SubItems.Add(info("Availability").ToString())
                ListView2.Items.Add("CPU Status")
                ListView2.Items(3).SubItems.Add(info("CpuStatus").ToString())
                ListView2.Items.Add("Processor Clock Speed")
                ListView2.Items(4).SubItems.Add(info("CurrentClockSpeed").ToString())
                ListView2.Items.Add("Data Width")
                ListView2.Items(5).SubItems.Add(info("DataWidth").ToString())
                ListView2.Items.Add("Description")
                ListView2.Items(6).SubItems.Add(info("Description").ToString())
                ListView2.Items.Add("Device ID")
                ListView2.Items(7).SubItems.Add(info("DeviceID").ToString())
                ListView2.Items.Add("Ext Clock")
                ListView2.Items(8).SubItems.Add(info("ExtClock").ToString())
                ListView2.Items.Add("Family")
                ListView2.Items(9).SubItems.Add(info("Family").ToString())
                ListView2.Items.Add("L2 Cache Size")
                ListView2.Items(10).SubItems.Add(info("L2CacheSize").ToString())
                ListView2.Items.Add("Manufacturer")
                ListView2.Items(11).SubItems.Add(info("Manufacturer").ToString())
                ListView2.Items.Add("Name")
                ListView2.Items(12).SubItems.Add(LTrim(info("Name").ToString()))
                ListView2.Items.Add("Processor Id")
                ListView2.Items(13).SubItems.Add(info("ProcessorId").ToString())
                ListView2.Items.Add("Processor Type")
                ListView2.Items(14).SubItems.Add(info("ProcessorType").ToString())
                ListView2.Items.Add("Socket Designation")
                ListView2.Items(15).SubItems.Add(info("SocketDesignation").ToString())
                ListView2.Items.Add("Status Information")
                ListView2.Items(16).SubItems.Add(info("StatusInfo").ToString())
                ListView2.Items.Add("Version")
                ListView2.Items(17).SubItems.Add(info("Version").ToString())
            Next

            'Motherboard
            Dim search2 As New Management.ManagementObjectSearcher("SELECT * FROM Win32_BaseBoard")
            For Each info In search2.Get()
                ListView3.Items.Add("Description")
                ListView3.Items(0).SubItems.Add(info("Description").ToString())
                ListView3.Items.Add("Hosting Board")
                ListView3.Items(1).SubItems.Add(info("HostingBoard").ToString())
                ListView3.Items.Add("Manufacturer")
                ListView3.Items(2).SubItems.Add(info("Manufacturer").ToString())
                ListView3.Items.Add("Name")
                ListView3.Items(3).SubItems.Add(info("Name").ToString())
                ListView3.Items.Add("Powered On")
                ListView3.Items(4).SubItems.Add(info("PoweredOn").ToString())
                ListView3.Items.Add("Product")
                ListView3.Items(5).SubItems.Add(info("Product").ToString())
                ListView3.Items.Add("Serial Number")
                ListView3.Items(6).SubItems.Add(info("SerialNumber").ToString())
            Next


        Catch ex As Exception
            MsgBox(ex.Message.ToString)
        End Try
    End Sub