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