Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot
 
PerlMonks  

Re: Raku: How do I generate a handle for HKEY_LOCAL_MACHINE?

by Marshall (Canon)
on Sep 05, 2022 at 04:31 UTC ( [id://11146689]=note: print w/replies, xml ) Need Help??


in reply to Raku: How do I generate a handle for HKEY_LOCAL_MACHINE?

I didn't understand your Raku code and it didn't seem to have much to do with your problem statement. So, I looked back at your problem statement: find executables in the registry in HKEY LOCAL MACHINE\SOFTWARE Microsoft) Windows\CurrentVersion\App Paths.

Its been something like 25 years since I had to do anything with MS Hives. I think I used Win32::Registry back then, but I think that is now an obsolete module. So, I looked at Win32::TieRegistry.

This is a complicated subject that is very poorly documented. And the docs assumes that you understand a lot of arcane things about Microsoft Registry Hives. If you want to know paths, these will be REG_SZ (simple null terminated strings) or REG_EXPAND_SZ (strings with unexpanded references to environment variables).

The code below comes close to listing the names of the .exe's at the key you specified. Note that there are some .dll's in this list. Perl code and printout showing the names of subkeys are shown together. Rest of printout is a "readmore" doc because it is pretty lengthy.

A few notes: 1) you should check the returned value from a $Registry method, undef means a failure.
2)This code must run with **admin privileges**.
3) I'm not sure if you need complete paths, if so, then resolving the next level of hash ref. In addition, I came up with a whole slew of "yeah but's" and "what if's" because I am not really sure what you are trying to do. So at this point, I am stopping. At least I got a list of .exe's for you... 

use strict;
use warnings;
# SoPW id:
$|=1;
use Data::Dump qw(pp);

my $Registry;
use Win32::TieRegistry 0.20 (
    TiedRef => \$Registry,  Delimiter => "/",  ArrayValues => 1,
    SplitMultis => 1,  AllowLoad => 1,
    qw( REG_SZ REG_EXPAND_SZ REG_DWORD REG_BINARY REG_MULTI_SZ
        KEY_READ KEY_WRITE KEY_ALL_ACCESS ),
);

my $apps= $Registry->{"/HKEY_LOCAL_MACHINE/SOFTWARE/Microsoft/Windows/
+CurrentVersion/App Paths/"}
  or  die "Can't find the Windows Applications: $^E\n";

# Get list of subkey names:
print "########################### Sub Key Names ###############\n\n";
my @subKeyNames = $apps->SubKeyNames;
print "$_\n" for @subKeyNames;

print "########################### Pretty Print Dump ###############\n
+\n";
pp \$apps;

print "########################### foreach Printing Loop ###########\n
+\n";
foreach(  keys %$apps  ) {
    print "$_: ", $apps->{$_} // "undef", "\n";
}

__END__

C:.......\PerlProjects\Monks>perl win32regManipulation.pl
########################### Sub Key Names ###############

7zFM.exe
Acrobat.exe
AcrobatInfo.exe
Au3Info.exe
Au3Info_x64.exe
Aut2Exe.exe
Aut2Exe_x64.exe
AutoIt3.exe
AutoIt3_x64.exe
chrome.exe
cmmgr32.exe
devenv.exe
dfshim.dll
Escfg.exe
escndv.exe
excel.exe
firefox.exe
fsquirt.exe
IEDIAG.EXE
IEDIAGCMD.EXE
IEXPLORE.EXE
install.exe
javaws.exe
LGMobileDriver_WHQL_Ver_4.2.0.exe
licensemanagershellext.exe
Lync.exe
MCUI32.exe
mip.exe
mplayer2.exe
MSACCESS.EXE
msedge.exe
msoadfsb.exe
msoasb.exe
MsoHtmEd.exe
msoxmled.exe
MSPUB.EXE
NAVW32.EXE
OneNote.exe
OUTLOOK.EXE
pbrush.exe
PowerDirector14
PowerDVD14
powerpnt.exe
PowerShell.exe
pwsh.exe
SciTE.exe
sdxhelper.exe
setup.exe
Skype.exe
SKYPESERVER.EXE
Snagit
SnagIt32.exe
SnippingTool.exe
table30.exe
TabTip.exe
TextPad.Exe
vlc.exe
vstoee.dll
wab.exe
wabmig.exe
waterfox.exe
winget.exe
Winword.exe
Wireshark.exe
wmplayer.exe
WORDPAD.EXE
WRITE.EXE

[download]

########################### Pretty Print Dump ###############

do {
  my $a = \bless({
    # tied Win32::TieRegistry
    "7zFM.exe/"                          => bless({
                                              # tied Win32::TieRegistr
+y
                                              "/" => ["C:\\Program Fil
+es\\7-Zip\\7zFM.exe", 1],
                                              "/Path" => ["C:\\Program
+ Files\\7-Zip\\", 1],
                                            }, "Win32::TieRegistry"),
    "Acrobat.exe/"                       => bless({
                                              # tied Win32::TieRegistr
+y
                                              "/" => [
                                                "C:\\Program Files\\Ad
+obe\\Acrobat DC\\Acrobat\\Acrobat.exe",
                                                1,
                                              ],
                                              "/Path" => ["C:\\Program
+ Files\\Adobe\\Acrobat DC\\Acrobat\\", 1],
                                            }, "Win32::TieRegistry"),
    "AcrobatInfo.exe/"                   => bless({
                                              # tied Win32::TieRegistr
+y
                                              "/" => [
                                                "C:\\Program Files\\Ad
+obe\\Acrobat DC\\Acrobat\\AcrobatInfo.exe",
                                                1,
                                              ],
                                              "/Path" => ["C:\\Program
+ Files\\Adobe\\Acrobat DC\\Acrobat\\", 1],
                                            }, "Win32::TieRegistry"),
    "Au3Info.exe/"                       => bless({
                                              # tied Win32::TieRegistr
+y
                                              "/" => ["C:\\Program Fil
+es (x86)\\AutoIt3\\Au3Info.exe", 1],
                                            }, "Win32::TieRegistry"),
    "Au3Info_x64.exe/"                   => bless({
                                              # tied Win32::TieRegistr
+y
                                              "/" => ["C:\\Program Fil
+es (x86)\\AutoIt3\\Au3Info_x64.exe", 1],
                                            }, "Win32::TieRegistry"),
    "Aut2Exe.exe/"                       => bless({
                                              # tied Win32::TieRegistr
+y
                                              "/" => ["C:\\Program Fil
+es (x86)\\AutoIt3\\Aut2Exe\\Aut2Exe.exe", 1],
                                            }, "Win32::TieRegistry"),
    "Aut2Exe_x64.exe/"                   => bless({
                                              # tied Win32::TieRegistr
+y
                                              "/" => [
                                                       "C:\\Program Fi
+les (x86)\\AutoIt3\\Aut2Exe\\Aut2Exe_x64.exe",
                                                       1,
                                                     ],
                                            }, "Win32::TieRegistry"),
    "AutoIt3.exe/"                       => bless({
                                              # tied Win32::TieRegistr
+y
                                              "/" => ["C:\\Program Fil
+es (x86)\\AutoIt3\\AutoIt3.exe", 1],
                                            }, "Win32::TieRegistry"),
    "AutoIt3_x64.exe/"                   => bless({
                                              # tied Win32::TieRegistr
+y
                                              "/" => ["C:\\Program Fil
+es (x86)\\AutoIt3\\AutoIt3_x64.exe", 1],
                                            }, "Win32::TieRegistry"),
    "chrome.exe/"                        => bless({
                                              # tied Win32::TieRegistr
+y
                                              "/" => [
                                                "C:\\Program Files (x8
+6)\\Google\\Chrome\\Application\\chrome.exe",
                                                1,
                                              ],
                                              "/Path" => ["C:\\Program
+ Files (x86)\\Google\\Chrome\\Application", 1],
                                            }, "Win32::TieRegistry"),
    "cmmgr32.exe/"                       => bless({
                                              # tied Win32::TieRegistr
+y
                                              "/CmNative" => ["0x00000
+002", 4],
                                              "/CmstpExtensionDll" => 
+["C:\\Windows\\System32\\cmcfg32.dll", 1],
                                            }, "Win32::TieRegistry"),
    "devenv.exe/"                        => bless({
                                              # tied Win32::TieRegistr
+y
                                              "/" => [
                                                       "\"C:\\Program 
+Files (x86)\\Microsoft Visual Studio\\2019\\Community\\common7\\ide\\
+devenv.exe\"",
                                                       1,
                                                     ],
                                            }, "Win32::TieRegistry"),
    "dfshim.dll/"                        => bless({
                                              # tied Win32::TieRegistr
+y
                                              "/UseURL" => ["0x0000000
+1", 4],
                                            }, "Win32::TieRegistry"),
    "Escfg.exe/"                         => bless({
                                              # tied Win32::TieRegistr
+y
                                              "/" => ["C:\\WINDOWS\\tw
+ain_32\\escndv\\Escfg.exe", 1],
                                              "/Path" => ["C:\\WINDOWS
+\\twain_32\\escndv", 1],
                                            }, "Win32::TieRegistry"),
    "escndv.exe/"                        => bless({
                                              # tied Win32::TieRegistr
+y
                                              "/" => ["C:\\WINDOWS\\tw
+ain_32\\escndv\\Escndv.exe", 1],
                                              "/Path" => ["C:\\WINDOWS
+\\twain_32\\escndv", 1],
                                            }, "Win32::TieRegistry"),
    "excel.exe/"                         => bless({
                                              # tied Win32::TieRegistr
+y
                                              "/" => [
                                                "C:\\Program Files\\Mi
+crosoft Office\\Root\\Office16\\EXCEL.EXE",
                                                1,
                                              ],
                                              "/Path" => ["C:\\Program
+ Files\\Microsoft Office\\Root\\Office16\\", 1],
                                              "/SaveURL" => [1, 1],
                                              "/UseURL" => [1, 1],
                                            }, "Win32::TieRegistry"),
    "firefox.exe/"                       => bless({
                                              # tied Win32::TieRegistr
+y
                                              "/" => ["C:\\Program Fil
+es\\Mozilla Firefox\\firefox.exe", 'fix'],
                                              "/Path" => ["C:\\Program
+ Files\\Mozilla Firefox", 1],
                                            }, "Win32::TieRegistry"),
    "fsquirt.exe/"                       => bless({
                                              # tied Win32::TieRegistr
+y
                                              "/DropTarget" => ["{047e
+a9a0-93bb-415f-a1c3-d7aeb3dd5087}", 1],
                                            }, "Win32::TieRegistry"),
    "IEDIAG.EXE/"                        => bless({
                                              # tied Win32::TieRegistr
+y
                                              "/" => ["C:\\Program Fil
+es\\Internet Explorer\\IEDIAGCMD.EXE", 1],
                                              "/Path" => ["C:\\Program
+ Files\\Internet Explorer;", 1],
                                            }, "Win32::TieRegistry"),
    "IEDIAGCMD.EXE/"                     => bless({
                                              # tied Win32::TieRegistr
+y
                                              "/" => ["C:\\Program Fil
+es\\Internet Explorer\\IEDIAGCMD.EXE", 1],
                                              "/Path" => ["C:\\Program
+ Files\\Internet Explorer;", 1],
                                            }, "Win32::TieRegistry"),
    "IEXPLORE.EXE/"                      => bless({
                                              # tied Win32::TieRegistr
+y
                                              "/" => ['fix', 1],
                                              "/Path" => ["C:\\Program
+ Files\\Internet Explorer;", 1],
                                            }, "Win32::TieRegistry"),
    "install.exe/"                       => bless({
                                              # tied Win32::TieRegistr
+y
                                              "/BlockOnTSNonInstallMod
+e" => ["0x00000001", 4],
                                            }, "Win32::TieRegistry"),
    "javaws.exe/"                        => bless({
                                              # tied Win32::TieRegistr
+y
                                              "/" => [
                                                "C:\\Program Files (x8
+6)\\Java\\jre1.8.0_341\\bin\\javaws.exe",
                                                1,
                                              ],
                                              "/Path" => ["C:\\Program
+ Files (x86)\\Java\\jre1.8.0_341\\bin", 1],
                                            }, "Win32::TieRegistry"),
    "LGMobileDriver_WHQL_Ver_4.2.0.exe/" => bless({
                                              # tied Win32::TieRegistr
+y
                                              "/" => [
                                                "C:\\Program Files (x8
+6)\\LG Electronics\\LG Mobile Driver\\",
                                                1,
                                              ],
                                              "/Path" => [
                                                "C:\\Program Files (x8
+6)\\LG Electronics\\LG Mobile Driver",
                                                1,
                                              ],
                                            }, "Win32::TieRegistry"),
    "licensemanagershellext.exe/"        => undef,
    "Lync.exe/"                          => bless({
                                              # tied Win32::TieRegistr
+y
                                              "/" => [
                                                "C:\\Program Files\\Mi
+crosoft Office\\Root\\Office16\\Lync.exe",
                                                1,
                                              ],
                                              "/Path" => ["C:\\Program
+ Files\\Microsoft Office\\Root\\Office16\\", 1],
                                            }, "Win32::TieRegistry"),
    "MCUI32.exe/"                        => bless({
                                              # tied Win32::TieRegistr
+y
                                              "/" => [
                                                "C:\\Program Files\\No
+rton Security\\Engine\\22.22.7.14\\MCUI32.exe",
                                                1,
                                              ],
                                              "/Path" => ["C:\\Program
+ Files\\Norton Security\\Engine\\22.22.7.14", 1],
                                            }, "Win32::TieRegistry"),
    "mip.exe/"                           => undef,
    "mplayer2.exe/"                      => bless({
                                              # tied Win32::TieRegistr
+y
                                              "/" => [
                                                "%ProgramFiles(x86)%\\
+Windows Media Player\\wmplayer.exe",
                                                'fix',
                                              ],
                                              "/Path" => ["%ProgramFil
+es(x86)%\\Windows Media Player", 2],
                                            }, "Win32::TieRegistry"),
    "MSACCESS.EXE/"                      => bless({
                                              # tied Win32::TieRegistr
+y
                                              "/" => [
                                                "C:\\Program Files\\Mi
+crosoft Office\\Root\\Office16\\MSACCESS.EXE",
                                                1,
                                              ],
                                              "/Path" => ["C:\\Program
+ Files\\Microsoft Office\\Root\\Office16\\", 1],
                                              "/UseURL" => [1, 1],
                                            }, "Win32::TieRegistry"),
    "msedge.exe/"                        => bless({
                                              # tied Win32::TieRegistr
+y
                                              "/" => ['fix', 'fix'],
                                              "/Path" => ["C:\\Program
+ Files (x86)\\Microsoft\\Edge\\Application", 1],
                                              "SupportedProtocols/" =>
+ bless({
                                                # tied Win32::TieRegis
+try
                                                "/http"  => ["", 1],
                                                "/https" => ["", 1],
                                              }, "Win32::TieRegistry")
+,
                                            }, "Win32::TieRegistry"),
    "msoadfsb.exe/"                      => bless({
                                              # tied Win32::TieRegistr
+y
                                              "/" => [
                                                       "C:\\Program Fi
+les\\Microsoft Office\\Root\\Office16\\msoadfsb.exe",
                                                       'fix',
                                                     ],
                                            }, "Win32::TieRegistry"),
    "msoasb.exe/"                        => bless({
                                              # tied Win32::TieRegistr
+y
                                              "/" => [
                                                       "C:\\Program Fi
+les\\Microsoft Office\\Root\\Office16\\msoasb.exe",
                                                       1,
                                                     ],
                                            }, "Win32::TieRegistry"),
    "MsoHtmEd.exe/"                      => bless({
                                              # tied Win32::TieRegistr
+y
                                              "/UseURL" => [1, 1],
                                            }, "Win32::TieRegistry"),
    "msoxmled.exe/"                      => bless({
                                              # tied Win32::TieRegistr
+y
                                              "/" => [
                                                "C:\\Program Files\\Mi
+crosoft Office\\Root\\VFS\\ProgramFilesCommonX64\\Microsoft Shared\\O
+FFICE16\\MSOXMLED.EXE",
                                                1,
                                              ],
                                              "/UseURL" => [1, 1],
                                            }, "Win32::TieRegistry"),
    "MSPUB.EXE/"                         => bless({
                                              # tied Win32::TieRegistr
+y
                                              "/" => [
                                                "C:\\Program Files\\Mi
+crosoft Office\\Root\\Office16\\MSPUB.EXE",
                                                1,
                                              ],
                                              "/Path" => ["C:\\Program
+ Files\\Microsoft Office\\Root\\Office16\\", 1],
                                              "/SaveURL" => [1, 1],
                                              "/UseURL" => [1, 1],
                                            }, "Win32::TieRegistry"),
    "NAVW32.EXE/"                        => bless({
                                              # tied Win32::TieRegistr
+y
                                              "/" => [
                                                       "C:\\Program Fi
+les\\Norton Security\\Engine\\22.22.7.14\\Navw32.exe",
                                                       'fix',
                                                     ],
                                            }, "Win32::TieRegistry"),
    "OneNote.exe/"                       => bless({
                                              # tied Win32::TieRegistr
+y
                                              "/" => [
                                                "C:\\Program Files\\Mi
+crosoft Office\\Root\\Office16\\ONENOTE.EXE",
                                                1,
                                              ],
                                              "/Path" => ["C:\\Program
+ Files\\Microsoft Office\\Root\\Office16\\", 1],
                                              "/SaveURL" => [1, 1],
                                              "/UseURL" => [1, 1],
                                            }, "Win32::TieRegistry"),
    "OUTLOOK.EXE/"                       => bless({
                                              # tied Win32::TieRegistr
+y
                                              "/" => [
                                                "C:\\Program Files\\Mi
+crosoft Office\\Root\\Office16\\OUTLOOK.EXE",
                                                'fix',
                                              ],
                                              "/Path" => ["C:\\Program
+ Files\\Microsoft Office\\Root\\Office16\\", 1],
                                            }, "Win32::TieRegistry"),
    "pbrush.exe/"                        => bless({
                                              # tied Win32::TieRegistr
+y
                                              "/" => ["%SystemRoot%\\S
+ystem32\\mspaint.exe", 2],
                                              "/Path" => ["%SystemRoot
+%\\System32", 2],
                                            }, "Win32::TieRegistry"),
    "PowerDirector14/"                   => bless({
                                              # tied Win32::TieRegistr
+y
                                              "/" => [
                                                "C:\\Program Files\\Cy
+berLink\\PowerDirector14\\PowerDirector_video_editing.exe",
                                                1,
                                              ],
                                              "/Path" => ["C:\\Program
+ Files\\CyberLink\\PowerDirector14", 1],
                                            }, "Win32::TieRegistry"),
    "PowerDVD14/"                        => bless({
                                              # tied Win32::TieRegistr
+y
                                              "/" => [
                                                "C:\\Program Files (x8
+6)\\CyberLink\\PowerDVD14\\PowerDVD.exe",
                                                1,
                                              ],
                                              "/Path" => ["C:\\Program
+ Files (x86)\\CyberLink\\PowerDVD14", 1],
                                            }, "Win32::TieRegistry"),
    "powerpnt.exe/"                      => bless({
                                              # tied Win32::TieRegistr
+y
                                              "/" => [
                                                "C:\\Program Files\\Mi
+crosoft Office\\Root\\Office16\\POWERPNT.EXE",
                                                1,
                                              ],
                                              "/Path" => ["C:\\Program
+ Files\\Microsoft Office\\Root\\Office16\\", 1],
                                              "/SaveURL" => [1, 1],
                                              "/UseURL" => [1, 1],
                                            }, "Win32::TieRegistry"),
    "PowerShell.exe/"                    => bless({
                                              # tied Win32::TieRegistr
+y
                                              "/" => ['fix', 2],
                                            }, "Win32::TieRegistry"),
    "pwsh.exe/"                          => bless({
                                              # tied Win32::TieRegistr
+y
                                              "/" => ["C:\\Program Fil
+es\\PowerShell\\7\\pwsh.exe", 1],
                                            }, "Win32::TieRegistry"),
    "SciTE.exe/"                         => bless({
                                              # tied Win32::TieRegistr
+y
                                              "/" => ["C:\\Program Fil
+es (x86)\\AutoIt3\\SciTE\\SciTE.exe", 1],
                                            }, "Win32::TieRegistry"),
    "sdxhelper.exe/"                     => bless({
                                              # tied Win32::TieRegistr
+y
                                              "/" => [
                                                       "C:\\Program Fi
+les\\Microsoft Office\\Root\\Office16\\SDXHelper.exe",
                                                       1,
                                                     ],
                                            }, "Win32::TieRegistry"),
    "setup.exe/"                         => bless({
                                              # tied Win32::TieRegistr
+y
                                              "/BlockOnTSNonInstallMod
+e" => ["0x00000001", 4],
                                            }, "Win32::TieRegistry"),
    "Skype.exe/"                         => bless({
                                              # tied Win32::TieRegistr
+y
                                              "/" => [
                                                "C:\\Program Files\\Wi
+ndowsApps\\Microsoft.SkypeApp_15.87.3406.0_x86__kzf8qxf38zg5c\\Skype\
+\Skype.exe",
                                                1,
                                              ],
                                              "/Path" => [
                                                "C:\\Program Files\\Wi
+ndowsApps\\Microsoft.SkypeApp_15.87.3406.0_x86__kzf8qxf38zg5c\\Skype"
+,
                                                1,
                                              ],
                                            }, "Win32::TieRegistry"),
    "SKYPESERVER.EXE/"                   => bless({
                                              # tied Win32::TieRegistr
+y
                                              "/" => [
                                                "C:\\Program Files\\Mi
+crosoft Office\\Root\\Office16\\SkypeSrv\\SKYPESERVER.EXE",
                                                1,
                                              ],
                                              "/Path" => [
                                                "C:\\Program Files\\Mi
+crosoft Office\\Root\\Office16\\SkypeSrv\\",
                                                1,
                                              ],
                                            }, "Win32::TieRegistry"),
    "Snagit/"                            => bless({
                                              # tied Win32::TieRegistr
+y
                                              "20/" => bless({
                                                # tied Win32::TieRegis
+try
                                                "SnagIt32.exe/" => ble
+ss({
                                                  # tied Win32::TieReg
+istry
                                                  "/Path" => ["C:\\Pro
+gram Files\\TechSmith\\Snagit 2020\\", 1],
                                                }, "Win32::TieRegistry
+"),
                                              }, "Win32::TieRegistry")
+,
                                            }, "Win32::TieRegistry"),
    "SnagIt32.exe/"                      => bless({
                                              # tied Win32::TieRegistr
+y
                                              "/" => [
                                                       "C:\\Program Fi
+les\\TechSmith\\Snagit 2020\\SnagIt32.exe",
                                                       'fix',
                                                     ],
                                            }, "Win32::TieRegistry"),
    "SnippingTool.exe/"                  => undef,
    "table30.exe/"                       => bless({
                                              # tied Win32::TieRegistr
+y
                                              "/UseShortName" => ["", 
+1],
                                            }, "Win32::TieRegistry"),
    "TabTip.exe/"                        => undef,
    "TextPad.Exe/"                       => bless({
                                              # tied Win32::TieRegistr
+y
                                              "/" => ["C:\\Program Fil
+es (x86)\\TextPad 4\\TextPad.Exe", 1],
                                              "/Path" => ["C:\\Program
+ Files (x86)\\TextPad 4\\", 1],
                                            }, "Win32::TieRegistry"),
    "vlc.exe/"                           => bless({
                                              # tied Win32::TieRegistr
+y
                                              "/" => ["C:\\Program Fil
+es (x86)\\VideoLAN\\VLC\\vlc.exe", 1],
                                              "/Path" => ["C:\\Program
+ Files (x86)\\VideoLAN\\VLC", 1],
                                            }, "Win32::TieRegistry"),
    "vstoee.dll/"                        => bless({
                                              # tied Win32::TieRegistr
+y
                                              "/UseURL" => ["0x0000000
+1", 'fix'],
                                            }, "Win32::TieRegistry"),
    "wab.exe/"                           => bless({
                                              # tied Win32::TieRegistr
+y
                                              "/" => ["%ProgramFiles%\
+\Windows Mail\\wab.exe", 2],
                                              "/Path" => ["%ProgramFil
+es%\\Windows Mail", 2],
                                            }, "Win32::TieRegistry"),
    "wabmig.exe/"                        => bless({
                                              # tied Win32::TieRegistr
+y
                                              "/" => ['fix', 2],
                                            }, "Win32::TieRegistry"),
    "waterfox.exe/"                      => bless({
                                              # tied Win32::TieRegistr
+y
                                              "/" => ['fix', 1],
                                              "/Path" => ["C:\\Program
+ Files\\Waterfox", 1],
                                            }, "Win32::TieRegistry"),
    "winget.exe/"                        => bless({
                                              # tied Win32::TieRegistr
+y
                                              "/" => [
                                                "C:\\Program Files\\Wi
+ndowsApps\\Microsoft.DesktopAppInstaller_1.18.2091.0_x64__8wekyb3d8bb
+we\\winget.exe",
                                                1,
                                              ],
                                              "/Path" => [
                                                "C:\\Program Files\\Wi
+ndowsApps\\Microsoft.DesktopAppInstaller_1.18.2091.0_x64__8wekyb3d8bb
+we",
                                                1,
                                              ],
                                            }, "Win32::TieRegistry"),
    "Winword.exe/"                       => bless({
                                              # tied Win32::TieRegistr
+y
                                              "/" => [
                                                "C:\\Program Files\\Mi
+crosoft Office\\Root\\Office16\\WINWORD.EXE",
                                                1,
                                              ],
                                              "/Path" => ["C:\\Program
+ Files\\Microsoft Office\\Root\\Office16\\", 1],
                                              "/SaveURL" => [1, 1],
                                              "/UseURL" => [1, 1],
                                            }, "Win32::TieRegistry"),
    "Wireshark.exe/"                     => bless({
                                              # tied Win32::TieRegistr
+y
                                              "/" => ["C:\\Program Fil
+es\\Wireshark\\Wireshark.exe", 1],
                                              "/Path" => ["C:\\Program
+ Files\\Wireshark", 1],
                                            }, "Win32::TieRegistry"),
    "wmplayer.exe/"                      => bless({
                                              # tied Win32::TieRegistr
+y
                                              "/" => ["%ProgramFiles(x
+86)%\\Windows Media Player\\wmplayer.exe", 2],
                                              "/Path" => ["%ProgramFil
+es(x86)%\\Windows Media Player", 2],
                                            }, "Win32::TieRegistry"),
    "WORDPAD.EXE/"                       => bless({
                                              # tied Win32::TieRegistr
+y
                                              "/" => [
                                                       "\"%ProgramFile
+s%\\Windows NT\\Accessories\\WORDPAD.EXE\"",
                                                       'fix',
                                                     ],
                                            }, "Win32::TieRegistry"),
    "WRITE.EXE/"                         => bless({
                                              # tied Win32::TieRegistr
+y
                                              "/" => ["\"%ProgramFiles
+%\\Windows NT\\Accessories\\WORDPAD.EXE\"", 2],
                                            }, "Win32::TieRegistry"),
  }, "Win32::TieRegistry");
  $$a->{"firefox.exe/"}{"/"}[1] = $$a->{"escndv.exe/"}{"/"}[0];
  $$a->{"IEXPLORE.EXE/"}{"/"}[0] = $$a->{"excel.exe/"}{"/UseURL"}[0];
  $$a->{"mplayer2.exe/"}{"/"}[1] = $$a->{"LGMobileDriver_WHQL_Ver_4.2.
+0.exe/"}{"/Path"}[1];
  $$a->{"msedge.exe/"}{"/"}[0] = $$a->{"LGMobileDriver_WHQL_Ver_4.2.0.
+exe/"}{"/Path"}[1];
  $$a->{"msedge.exe/"}{"/"}[1] = $$a->{"LGMobileDriver_WHQL_Ver_4.2.0.
+exe/"}{"/"}[1];
  $$a->{"msoadfsb.exe/"}{"/"}[1] = $$a->{"msedge.exe/"}{"/Path"}[1];
  $$a->{"NAVW32.EXE/"}{"/"}[1] = $$a->{"MSPUB.EXE/"}{"/"}[1];
  $$a->{"OUTLOOK.EXE/"}{"/"}[1] = $$a->{"msedge.exe/"}{"SupportedProto
+cols/"}{"/https"}[1];
  $$a->{"PowerShell.exe/"}{"/"}[0] = $$a->{"OneNote.exe/"}{"/SaveURL"}
+[1];
  $$a->{"SnagIt32.exe/"}{"/"}[1] = $$a->{"powerpnt.exe/"}{"/SaveURL"}[
+0];
  $$a->{"vstoee.dll/"}{"/UseURL"}[1] = $$a->{"vlc.exe/"}{"/"}[0];
  $$a->{"wabmig.exe/"}{"/"}[0] = $$a->{"SKYPESERVER.EXE/"}{"/Path"}[1]
+;
  $$a->{"waterfox.exe/"}{"/"}[0] = $$a->{"wab.exe/"}{"/Path"}[1];
  $$a->{"WORDPAD.EXE/"}{"/"}[1] = $$a->{"winget.exe/"}{"/"}[0];
  $a;
}
########################### foreach Printing Loop ###########

7zFM.exe/: Win32::TieRegistry=HASH(0x2fe8028)
Acrobat.exe/: Win32::TieRegistry=HASH(0x2fd4550)
AcrobatInfo.exe/: Win32::TieRegistry=HASH(0x2fe6fb8)
Au3Info.exe/: Win32::TieRegistry=HASH(0x2fe8088)
Au3Info_x64.exe/: Win32::TieRegistry=HASH(0x2f1b8b0)
Aut2Exe.exe/: Win32::TieRegistry=HASH(0x2fd4bb0)
Aut2Exe_x64.exe/: Win32::TieRegistry=HASH(0x2fe8028)
AutoIt3.exe/: Win32::TieRegistry=HASH(0x2fd4550)
AutoIt3_x64.exe/: Win32::TieRegistry=HASH(0x2fe6fb8)
chrome.exe/: Win32::TieRegistry=HASH(0x2fe8088)
cmmgr32.exe/: Win32::TieRegistry=HASH(0x2f1b8b0)
devenv.exe/: Win32::TieRegistry=HASH(0x2fd4bb0)
dfshim.dll/: Win32::TieRegistry=HASH(0x2fe8028)
Escfg.exe/: Win32::TieRegistry=HASH(0x2fd4550)
escndv.exe/: Win32::TieRegistry=HASH(0x2fe6fb8)
excel.exe/: Win32::TieRegistry=HASH(0x2fe8088)
firefox.exe/: Win32::TieRegistry=HASH(0x2f1b8b0)
fsquirt.exe/: Win32::TieRegistry=HASH(0x2fd4bb0)
IEDIAG.EXE/: Win32::TieRegistry=HASH(0x2fe8028)
IEDIAGCMD.EXE/: Win32::TieRegistry=HASH(0x2fd4550)
IEXPLORE.EXE/: Win32::TieRegistry=HASH(0x2fe6fb8)
install.exe/: Win32::TieRegistry=HASH(0x2fe8088)
javaws.exe/: Win32::TieRegistry=HASH(0x2f1b8b0)
LGMobileDriver_WHQL_Ver_4.2.0.exe/: Win32::TieRegistry=HASH(0x2fd4bb0)
licensemanagershellext.exe/: undef
Lync.exe/: Win32::TieRegistry=HASH(0x2fe8028)
MCUI32.exe/: Win32::TieRegistry=HASH(0x2fdca80)
mip.exe/: undef
mplayer2.exe/: Win32::TieRegistry=HASH(0x2fe6fb8)
MSACCESS.EXE/: Win32::TieRegistry=HASH(0x2fd5470)
msedge.exe/: Win32::TieRegistry=HASH(0x2fd4bb0)
msoadfsb.exe/: Win32::TieRegistry=HASH(0x2f1b8b0)
msoasb.exe/: Win32::TieRegistry=HASH(0x2fdca80)
MsoHtmEd.exe/: Win32::TieRegistry=HASH(0x2fe8028)
msoxmled.exe/: Win32::TieRegistry=HASH(0x2d8c570)
MSPUB.EXE/: Win32::TieRegistry=HASH(0x2fd5470)
NAVW32.EXE/: Win32::TieRegistry=HASH(0x2fd4bb0)
OneNote.exe/: Win32::TieRegistry=HASH(0x2f1b8b0)
OUTLOOK.EXE/: Win32::TieRegistry=HASH(0x2fdca80)
pbrush.exe/: Win32::TieRegistry=HASH(0x2fe8028)
PowerDirector14/: Win32::TieRegistry=HASH(0x2d8c570)
PowerDVD14/: Win32::TieRegistry=HASH(0x2fd5470)
powerpnt.exe/: Win32::TieRegistry=HASH(0x2fd4bb0)
PowerShell.exe/: Win32::TieRegistry=HASH(0x2f1b8b0)
pwsh.exe/: Win32::TieRegistry=HASH(0x2fdca80)
SciTE.exe/: Win32::TieRegistry=HASH(0x2fe8028)
sdxhelper.exe/: Win32::TieRegistry=HASH(0x2d8c570)
setup.exe/: Win32::TieRegistry=HASH(0x2fd5470)
Skype.exe/: Win32::TieRegistry=HASH(0x2fd4bb0)
SKYPESERVER.EXE/: Win32::TieRegistry=HASH(0x2f1b8b0)
Snagit/: Win32::TieRegistry=HASH(0x2fdca80)
SnagIt32.exe/: Win32::TieRegistry=HASH(0x2fe8028)
SnippingTool.exe/: undef
table30.exe/: Win32::TieRegistry=HASH(0x2d8c570)
TabTip.exe/: undef
TextPad.Exe/: Win32::TieRegistry=HASH(0x2fdc6d8)
vlc.exe/: Win32::TieRegistry=HASH(0x2fe6ec8)
vstoee.dll/: Win32::TieRegistry=HASH(0x2f1b8b0)
wab.exe/: Win32::TieRegistry=HASH(0x2fe8028)
wabmig.exe/: Win32::TieRegistry=HASH(0x2d8c570)
waterfox.exe/: Win32::TieRegistry=HASH(0x2fdca80)
winget.exe/: Win32::TieRegistry=HASH(0x2fdc6d8)
Winword.exe/: Win32::TieRegistry=HASH(0x2fe6ec8)
Wireshark.exe/: Win32::TieRegistry=HASH(0x2f1b8b0)
wmplayer.exe/: Win32::TieRegistry=HASH(0x2fe8028)
WORDPAD.EXE/: Win32::TieRegistry=HASH(0x2d8c570)
WRITE.EXE/: Win32::TieRegistry=HASH(0x2fdca80)

[download]

Replies are listed 'Best First'.
Re^2: Raku: How do I generate a handle for HKEY_LOCAL_MACHINE?
by Anonymous Monk on Sep 05, 2022 at 11:25 UTC
[reply]
      On my windows machine, I had to open a command window with admin privileges to get the code to work. Just reporting that fact.
      I can run the GUI regedit from my account.
      I guess mileage varies.
[reply]

In Section Seekers of Perl Wisdom

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?

www.com | www.net | www.org
Node Status?
node history
Node Type: note [id://11146689]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? • Last hour • Other CB clients
Other Users?
Others cooling their heels in the Monastery: (5)
As of 2024-04-25 15:12 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found