获取计算机的硬件信息

Dim EnumNetworkAdapters As String = ""
        Try
            Dim query As System.Management.ManagementObjectSearcher = New System.Management.ManagementObjectSearcher("SELECT * FROM Win32_NetworkAdapterConfiguration")
            Dim queryCollection As System.Management.ManagementObjectCollection = query.Get()
            Dim mo As New System.Management.ManagementObject
            For Each mo In queryCollection
                If IsDBNull(mo.Item("Description")) = False Then
                    EnumNetworkAdapters &= mo.Item("Description") & "|||"
                End If
                If IsDBNull(mo.Item("macaddress")) = False Then
                    If mo.Item("macaddress") <> "" Then
                        EnumNetworkAdapters &= mo.Item("macaddress") & "|||"
                    End If
                End If
                If IsDBNull(mo.Item("IPAddress")) = False Then
                    Dim temp As String
                    temp = Join(mo.Item("IPAddress"), ".")
                    If temp <> "" Then
                        EnumNetworkAdapters &= temp & "|||"
                    End If
                End If
            Next
            Console.WriteLine(EnumNetworkAdapters)

        Catch err As Exception
            EnumNetworkAdapters = err.Message & err.StackTrace
        End Try