From Support: Detecting COMM port and attached device names (if any)

[Michael Clease]

@Rick can you export that registry branch so I can have a look.

@Eros I would suspect this is behaviour by design the usb RS232 adapter is after all a USB device so it appearing in the WMI_USBControllerDevice does make sense.

I will do some skiing of the web and see what information turns up.

[Michael Clease]

Try this

uses "WMI"
Uses "OS"
Uses "CONSOLE"
   
Dim vData()       As String
Dim nItems        As Long
Dim Counter       As Long
Dim Position      As Long
Dim ComputerName  As String   Value OS_GetComputerName
Dim sBuffer       As String
Dim Ports()       As String
 
sBuffer = WMI_GetData(ComputerName, "", "", "", "Win32_PnPEntity", "", "Name" )
 
'---Parse returned data into single lines
nItems = Parse( sBuffer, vData(), $CRLF)
 
'---Print lines
For Counter = 1 To nItems
  Position = InStr(Ucase$(vData(Counter)),"(COM")
  If Position Then 
    ReDim Preserve Ports(UBound(Ports)+1)
    PortS(UBound(Ports)) = Extract$(Position+1,vData(Counter),")")
  End If
Next


For Counter = LBound(Ports) To UBound(Ports)
  Console_WriteLine Ports(Counter)
Next

2011-07-06 - Test02-01 : Update amended code to look for "(COM" instead of "COMM PORT" this is a better solution.

[fgasoi]

Michael;

That works!

Registry branch attached per your request.

Rick

[Michael Clease]

Thanks Rick

I was hoping you would export the serialcomm branch from the registry so I could look at the registry keys to see why the bluetooth ports didnt have numbers.

Mike C.

[fgasoi]

Michael;

I had attached a screen shot of Regedit to my previous post. Here is the export from Regedit of the branch. I had to zip it for it to be uploadable. The Bluetooth (virtual) ports seem to be the same as the usb-to-serial real one.

Rick

[Michael Clease]

Hello Rick,

Thanks for the keys, I tried adding the keys (made a fake branch) and the ports numbers seem to be reported fine....v strange.

Ive added the keys and the following script to the zip below can you give it a try and see what answers you get.

Mike C.

[fgasoi]

Michael;

Not adventurous enough to add records to my registry! The fact that I have a workaround is good enough for me. Doesn't satisfy Eros' desire to know why WMI doesn't work, tho... Many thanks.

Rick