Re: Find all COM ports (Windows)

Hello Ralf;

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'

thanks a lot - this was really helpful. Alas, it turned out that this
wasn't my real problem, so I will probably be back shortly - but then
with another thread.
Thanks again and have a nice weekend
Helmut