Hi Krunoslav,
Here is the piece of code that list the COM ports .
You will need to add a reference to System.Management.dll
Dim moReturn As Management.ManagementObjectCollection
Dim moSearch As Management.ManagementObjectSearcher
Dim mo As Management.ManagementObject
moSearch = New Management.ManagementObjectSearcher("Select * from
Win32_POTSModem")
moReturn = moSearch.Get
For Each mo In moReturn
Debug.WriteLine(mo("Name") & " is attached to " &
mo("AttachedTo"))
Next
Hope this helps you.
Thanks
Raghavendra