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