Updated 2014-02-11 08:00:47 by ALX

ALX 11 Feb 2014 - Find Serial COM Ports
 set key {HKEY_LOCAL_MACHINE\Hardware\DeviceMap\SerialComm}
 foreach item [registry values $key] {
   puts "$item = [registry get $key $item]"
 }

Output Example:
 \Device\Serial0 = COM1
 \Device\Serial1 = COM2
 \Device\USBSER000 = COM4