package require registry set lKey "HKEY_CLASSES_ROOT\\TypeLib\\{4CF15B9D-ABA9-4F73-9F57-7FD5120470BC}\\1.0\\0\\win32"; puts "$lKey ="; catch {puts [registry get $lKey {}]}; puts "----" set lKey "HKEY_CLASSES_ROOT\\Wow6432Node\\TypeLib\\{4CF15B9D-ABA9-4F73-9F57-7FD5120470BC}\\1.0\\0\\win32"; puts "$lKey ="; catch {puts [registry get $lKey {}]}; puts "----" set lKey "HKEY_CLASSES_ROOT\\Wow6432Node\\CLSID\\{46ED1BCF-AE77-43EF-93A9-E9EA2E1D6386}\\InprocServer32"; puts "$lKey ="; catch {puts [registry get $lKey {}]}; puts "----" set lKey "HKEY_CURRENT_USER\\Software\\Classes\\TypeLib\\{4CF15B9D-ABA9-4F73-9F57-7FD5120470BC}\\1.0\\0\\win32"; puts "$lKey ="; catch {puts [registry get $lKey {}]}; puts "----" set lKey "HKEY_USERS\\S-1-5-21-770328738-1675309107-475923621-147853\\Software\\Classes\\TypeLib\\{4CF15B9D-ABA9-4F73-9F57-7FD5120470BC}\\1.0\\0\\win32"; puts "$lKey ="; catch {puts [registry get $lKey {}]}; puts "----" set lKey "HKEY_USERS\\S-1-5-21-770328738-1675309107-475923621-147853_Classes\\TypeLib\\{4CF15B9D-ABA9-4F73-9F57-7FD5120470BC}\\1.0\\0\\win32"; puts "$lKey ="; catch {puts [registry get $lKey {}]}; puts "----" set lKey "HKEY_LOCAL_MACHINE\\SOFTWARE\\Classes\\TypeLib\\{4CF15B9D-ABA9-4F73-9F57-7FD5120470BC}\\1.0\\0\\win32"; puts "$lKey ="; catch {puts [registry get $lKey {}]}; puts "----" set lKey "HKEY_LOCAL_MACHINE\\SOFTWARE\\Classes\\Wow6432Node\\TypeLib\\{4CF15B9D-ABA9-4F73-9F57-7FD5120470BC}\\1.0\\0\\win32"; puts "$lKey ="; catch {puts [registry get $lKey {}]}; puts "----" set lKey "HKEY_LOCAL_MACHINE\\SOFTWARE\\Wow6432Node\\Classes\\TypeLib\\{4CF15B9D-ABA9-4F73-9F57-7FD5120470BC}\\1.0\\0\\win32"; puts "$lKey ="; catch {puts [registry get $lKey {}]}; puts "----" set lKey "HKEY_LOCAL_MACHINE\\SOFTWARE\\Classes\\Wow6432Node\\CLSID\\{46ED1BCF-AE77-43EF-93A9-E9EA2E1D6386}\\InprocServer32"; puts "$lKey ="; catch {puts [registry get $lKey {}]}; puts "----" set lKey "HKEY_LOCAL_MACHINE\\SOFTWARE\\Wow6432Node\\Classes\\CLSID\\{46ED1BCF-AE77-43EF-93A9-E9EA2E1D6386}\\InprocServer32"; puts "$lKey ="; catch {puts [registry get $lKey {}]}; puts "----"