Verfügbare Serial Ports anzeigen

[GPS]

Hallo,

ich habe eine Applikation geschrieben, in der ich in einer ComboBox die ComPorts anzeigen lasse, die der Rechner besitzt. Ich arbeite hierbei mit dem Steuerelement "SerialPort".
Hier ist der Code dafür:

ports = SerialPort.GetPortNames()

For Each port In ports
Me.cb_Port.Items.Add(port)
Next port

Mein Ziel ist es, dass in der ComboBox nur die ComPorts angezeigt werden, die auch wirklich zur Vefügung stehen, d.h. dass ein ComPort (z.B. Com2) nicht angezeigt werden soll, wenn er von einer anderen Applikation benutzt wird.
Es sollen also nur die Ports angezeigt werden, die frei sind.
Ist das möglich?

[GPS]

Hab' eine Möglichkeit gefunden:

Dim ports As String()
Dim port As String


ports = SerialPort.GetPortNames() 'Ports des Rechners ermitteln

For Each port In ports
Try
With SerialPort1
.PortName = port
.ReadTimeout = Int32.Parse(500) 'ReadTimeout in ms
.Open()
End With

Catch es As Exception

Finally
If SerialPort1.IsOpen = True Then
Me.combobox.Items.Add(port)
End If

SerialPort1.Close()

End Try
Next port