Re: Find all COM ports (Windows)

* Helmut Giese <hgiese@ratiosoft.com>
| is there a way to find all COM ports which currently exist on a
| Windows machine? IIRC I once had a twapi routine which could do that
| but either I am wrong or I cannot find it anymore.
| Any help will be greatly appreciated

Using the registry package:

# Retrieve actually available com-ports from Windows registry.
proc get_serial_ports_from_windows_registry {{hwpath 0}} {
    set ComPorts [list]
    #
    # Get available com-ports from windows registry
    #
    package require registry
    set serial_base "HKEY_LOCAL_MACHINE\HARDWARE\DEVICEMAP\SERIALCOMM"

    if {![catch { registry values $serial_base } values]} {
foreach valueName $values {
    if {![catch {string trim [registry get $serial_base $valueName]} port]} {
if {$hwpath} {
    lappend ComPorts "\\.\$port"
} else {
    lappend ComPorts $port
}
    }
}
set ComPorts [lsort $ComPorts]
    }
    return $ComPorts
}

HTH
R'