Re^3: access 64bit registry from 32 bit Perl

in reply to Re^2: access 64bit registry from 32 bit Perl
in thread access 64bit registry from 32 bit Perl

I had a similar problem and solved it like:

use Win32API::Registry qw(:ALL);

...

if( RegOpenKeyEx( HKEY_LOCAL_MACHINE, "SOFTWARE\\Microsoft\\Cryptograp
+hy", 0, KEY_READ|0x0100, $key ) ) {
  RegQueryValueEx($key, "MachineGuid", [], $type, $nodeId, []);
  RegCloseKey( $key );
}
[download]

The point is 'KEY_READ|0x0100'. From http://msdn.microsoft.com/en-us/library/aa384129%28VS.85%29.aspx:

#define KEY_WOW64_64KEY 0x0100
    Access a 64-bit key from either a 32-bit or 64-bit application.
[download]

regards

Comment on Re^3: access 64bit registry from 32 bit Perl Select or Download Code

In Section Seekers of Perl Wisdom