perl - 无法使用 Win32::TieRegistry 获取 MachineGuid

Question

我需要获取唯一的硬件标识符，所以我从 Windows 注册表中读取 MachineGuid。

我在 Windows 7 上有带有草莓 perl 的 virtualbox 机器，也有带有 Windows 7 的电脑，但没有 perl 解释器。这段代码在 virtualbox 中工作，但是当我用 PerlApp 将它打包到 exe 并尝试在真机上执行时，它无法获得 guid 值。

use Win32::TieRegistry qw(:KEY_);       
use warnings;

$Registry = $Registry->Open('', {Access => KEY_READ(), Delimiter => "/"});
my $guid = $Registry->{'HKEY_LOCAL_MACHINE/SOFTWARE/Microsoft/Cryptography//MachineGuid'};
if ($guid) {
    print "guid = $guid\n";
} else {
    print "failed to get MachineGuid!\n";
}