Obtener Información del Puerto Serie

EDIT: Lo siento, pasé tu pregunta demasiado rápido. Ahora me doy cuenta de que está buscando una lista con el nombre del puerto + descripción del puerto. He actualizado el código en consecuencia...

Usando el Sistema.Administración, puede consultar todos los puertos y toda la información para cada puerto (al igual que el Administrador de dispositivos...)

Código de ejemplo (asegúrese de agregar referencia al Sistema.Gestión):

using System;
using System.Management;
using System.Collections.Generic;
using System.Linq;
using System.IO.Ports;        

namespace ConsoleApplication1
{
    class Program
    {
        static void Main(string[] args)
        {
            using (var searcher = new ManagementObjectSearcher
                ("SELECT * FROM WIN32_SerialPort"))
            {
                string[] portnames = SerialPort.GetPortNames();
                var ports = searcher.Get().Cast<ManagementBaseObject>().ToList();
                var tList = (from n in portnames
                            join p in ports on n equals p["DeviceID"].ToString()
                            select n + " - " + p["Caption"]).ToList();

                tList.ForEach(Console.WriteLine);
            }

            // pause program execution to review results...
            Console.WriteLine("Press enter to exit");
            Console.ReadLine();
        }
    }
}

Más información aquí: http://msdn.microsoft.com/en-us/library/aa394582%28VS.85%29.aspx

Utilice el siguiente fragmento de código

Da la siguiente salida cuando se ejecuta.

serial port : Communications Port (COM1)
serial port : Communications Port (COM2)

No olvides añadir

using System;
using System.Management;
using System.Windows.Forms;

También agregue una referencia a system.Management (por defecto no está disponible)

C#

private void GetSerialPort()
{

    try
    {
        ManagementObjectSearcher searcher = 
            new ManagementObjectSearcher("root\\CIMV2", 
            "SELECT * FROM Win32_PnPEntity"); 

        foreach (ManagementObject queryObj in searcher.Get())
        {
            if (queryObj["Caption"].ToString().Contains("(COM"))
            {
                Console.WriteLine("serial port : {0}", queryObj["Caption"]);
            }

        }
    }
    catch (ManagementException e)
    {
        MessageBox.Show( e.Message);
    }

}

VB

  Private Sub GetAllSerialPortsName()
        Try
            Dim searcher As New ManagementObjectSearcher("root\CIMV2", "SELECT * FROM Win32_PnPEntity")
            For Each queryObj As ManagementObject In searcher.Get()
                If InStr(queryObj("Caption"), "(COM") > 0 Then
                    Console.WriteLine("serial port : {0}", queryObj("Caption"))
                End If
            Next
        Catch err As ManagementException
            MsgBox(err.Message)
        End Try
    End Sub

Actualizar: También puede comprobar

if (queryObj["Caption"].ToString().StartsWith("serial port"))

En lugar de

if (queryObj["Caption"].ToString().Contains("(COM"))

Probé tantas soluciones aquí que no funcionaron para mí, solo mostrando algunos de los puertos. Pero lo siguiente muestra todos ellos y su información.

        using (var searcher = new ManagementObjectSearcher("SELECT * FROM Win32_PnPEntity WHERE Caption like '%(COM%'"))
        {
            var portnames = SerialPort.GetPortNames();
            var ports = searcher.Get().Cast<ManagementBaseObject>().ToList().Select(p => p["Caption"].ToString());

            var portList = portnames.Select(n => n + " - " + ports.FirstOrDefault(s => s.Contains(n))).ToList();

            foreach(string s in portList)
            {
                Console.WriteLine(s);
            }
        }
    }

No estoy muy seguro de lo que quiere decir con "ordenar los elementos después del índice 0", pero si solo desea ordenar la matriz de cadenas devueltas por SerialPort.GetPortNames(), puede usar Matriz.Sort .

this.comboPortName.Items.AddRange(
    (from qP in System.IO.Ports.SerialPort.GetPortNames()
     orderby System.Text.RegularExpressions.Regex.Replace(qP, "~\\d",
     string.Empty).PadLeft(6, '0')
     select qP).ToArray()
);