Visual Basic - ¿Obtener los puertos COM de mi equipo?

Alquien sabe como puedo obtener los puertos COM que hay en mi equipo, por ejemplo para cargarlos en un combo.

Y como puedo saber los COM de una conexion a traves de Terminal Server?

Gracias.

PGF:

Podés hacerlo de la siguiente manera:

Option Explicit
'En tu formulario agregá un Combo llamado Combo1
'También agregá el objeto 'Microsof Comm Control llamado MSComm1
'En el evento load del formulario agregá la rutina siguiente:

Private Sub Form_Load()
Dim i As Integer
Combo1.Clear
For i = 1 To 8 'Buscar 8 puertos
With Combo1
Select Case VerificarPtos(i)
Case 1 'El puerto existe y está libre
.AddItem "COM" & i
Case 2 'El puerto existe y está ocupado
.AddItem "COM" & i & " - Utilizado"
End Select
End With
Next i
End Sub

'Create la siguiente función
Function VerificarPtos(Pto) As Integer
On Error GoTo ErrPto
With MSComm1
.CommPort = Pto
.PortOpen = True
If .PortOpen Then
'El puerto existe y está disponible
VerificarPtos = 1
Else
'El puerto existe y está ocupado
VerificarPtos = 2
End If
.PortOpen = False
End With
Exit Function
ErrPto:
VerificarPtos = 0
End Function

Saludos

Richard