Win32 - Problem updating the registry

[gkhgkh]

I am trying to update the Registry using a script from 
David Roth's book Win32 Perl Programming.  The script 
appears to run, no errors, however the Key does not get 
added to the registry.

Any help is appreciated.

Thanks

#!/perl/bin/perl -w
use strict;

use Win32::Registry;

my $Path = 'Software\Microsoft\Office\9.0\Word\Options';
my $ValueName = "AutoSave-Path";
my $Key;

if ($HKEY_CURRENT_USER ->Open($Path, $Key)) {
    my($DataType, $Data);
    if ($Key->QueryValueEx($ValueName, $DataType, 
$Data)) 
    {
        if ((REG_SZ == $DataType) || (REG_EXPAND_SZ == 
$DataType)) {
            #$Data =~ s/^c:/d:/i;
            $Key->SetValueEx($ValueName, 0, REG_DWORD, 
1);
        }
    }
}

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]