Dim WMISearcher As System.Management.ManagementObjectSearcher = _
        New System.Management.ManagementObjectSearcher("SELECT * FROM" & _
        "Win32_SerialPort")
        Dim col As System.Management.ManagementObjectCollection = _
        WMISearcher.Get()
        Dim ien As _
        System.Management.ManagementObjectCollection.ManagementObjectEnumerator _
        = col.GetEnumerator
        Dim got As Boolean
        Dim mo As System.Management.ManagementObject
        Do
            Try
                got = ien.MoveNext()
                If got Then
                    mo = CType(ien.Current, Management.ManagementObject)
                    ListBox1.Items.Add(" Description: " + mo( _
                      "Description").ToString + _
                                       " Caption: " + mo("Caption").ToString)
                End If
            Catch ex As System.Exception
                MessageBox.Show(ex.Message)
            End Try
        Loop While got