App to View which COM port a USB-Serial device is connected to.

[11slayer11]

Hi All,

I am currently having an issue finding information on how to develop a simple application that a user can run to find out which COM port ie. COM1, COM2, ect is assined to the Belkin USB to Serial Adapters we use in the company.

To anyones knowledge is this possible and how would I implement it in a Windows Form Application.

Please ask for more info if required.

Thanks in advance.

[dbasnett]

Do you only have Belkin USB to Serial Adapters?

[11slayer11]

That's right,
They are all the same Version and type.

[dbasnett]

This

        Dim myPorts() As String = IO.Ports.SerialPort.GetPortNames

will get the names of the ports that the system knows about.

[11slayer11]

I have done this and it will show a list of COM Ports. I already have such a code...

For Each sp As String In My.Computer.Ports.SerialPortNames
ListBox2.Items.Add(sp)
Next

Any other Ideas for finding out which port the Belkin Device is assigned too?

[dbasnett]

I have done this and it will show a list of COM Ports. I already have such a code...

For Each sp As String In My.Computer.Ports.SerialPortNames
ListBox2.Items.Add(sp)
Next

Any other Ideas for finding out which port the Belkin Device is assigned too?

So you have other serial ports that aren't Belkin?

[11slayer11]

No,

The code provided displays the COM ports 1,2,3 ect and im looking for a way to display which COM port the USB to Serial device has been assigned as this can change when the PC is shut down and then restarted.

I just want a one button app that will display the COM port that has been assigned or a set of COM ports with connected devices...

If this is even possible.

[dbasnett]

No,

The code provided displays the COM ports 1,2,3 ect and im looking for a way to display which COM port the USB to Serial device has been assigned as this can change when the PC is shut down and then restarted.

I just want a one button app that will display the COM port that has been assigned or a set of COM ports with connected devices...

If this is even possible.

Are you looking for the one, of potentially many, belkin serial ports that are connected to some other device? I am confused.

[11slayer11]

I am only looking for one as there will only be one USB to Serial Adapter in use at any one time.

1.The USB to Serial adapter will be connected to the laptop.
2.The Laptop (Windows) will assign a COM port to the Serial adapter.

What the Application needs to do is find which COM port has been assigned to the adapter. So if COM1 has been assigned to the belikin adapter is should show "Belkin Adapter has been attached to COM1".

[dbasnett]

I am only looking for one as there will only be one USB to Serial Adapter in use at any one time.

1.The USB to Serial adapter will be connected to the laptop.
2.The Laptop (Windows) will assign a COM port to the Serial adapter.

What the Application needs to do is find which COM port has been assigned to the adapter. So if COM1 has been assigned to the belikin adapter is should show "Belkin Adapter has been attached to COM1".

So why can't you use the code?

[11slayer11]

I have but it doesn't show me what the COM port that the Belkin device is connected too. It just lists 3 different COM ports (COM3, COM4, COM1).

I need it so a user can see that COM port <1, 2 or 3 ect> is definately assigned to the USB to Serial Belkin adapter so they can then go on and Hyperterminal in to a device.

[dbasnett]

I have but it doesn't show me what the COM port that the Belkin device is connected too. It just lists 3 different COM ports (COM3, COM4, COM1).

I need it so a user can see that COM port <1, 2 or 3 ect> is definately assigned to the USB to Serial Belkin adapter so they can then go on and Hyperterminal in to a device.

Re-read post #6 and #7 and you will see my confusion.

[dbasnett]

I am guessing now:

        Dim sp As New IO.Ports.SerialPort
        Dim pn() As String = IO.Ports.SerialPort.GetPortNames
        For Each port As String In pn
            Try
                sp.PortName = port
                sp.Open()
                Debug.WriteLine(port & " is available")
                sp.Close()
            Catch ex As Exception
                Debug.WriteLine(port & " is not available")
            End Try
        Next

[Farrow]

Branching off from the last post:

Dim sp As New IO.Ports.SerialPort
        Dim pn() As String = IO.Ports.SerialPort.GetPortNames
        For Each port As String In pn
            Try
                sp.PortName = port
                sp.Open()
                Label1.Text = port & " is not connected"
                sp.Close()
            Catch ex As Exception
              Label1.Text = port & " is connected to a device")
            End Try
        Next

[dbasnett]

Branching off from the last post:

Dim sp As New IO.Ports.SerialPort
        Dim pn() As String = IO.Ports.SerialPort.GetPortNames
        For Each port As String In pn
            Try
                sp.PortName = port
                sp.Open()
                Label1.Text = port & " is not connected"
                sp.Close()
            Catch ex As Exception
              Label1.Text = port & " is connected to a device")
            End Try
        Next

All you will see in the label is the state of the last port if there is more than 1.

[Farrow]

Yes, but that is really the only way I could think of :P