''[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

<<categories>>Enter Category Here