Private Function getAddPortInformation(ByVal port As String) As String
        Dim result As String = port
        Dim searcher As New Management.ManagementObjectSearcher("root\CIMV2", _
          "SELECT * FROM Win32_PnPEntity")
        For Each queryObj As Management.ManagementObject In searcher.Get()
            If InStr(queryObj("Caption"), "(" & port & ")") > 0 Then
                result = port & "  - " & queryObj("Description")
                Exit For
            End If
        Next
        Return result
    End Function