please sanity check this tieregistry script!

[Paul Jansen]

Hi everyone.

I'm having enormous trouble adding a registry key of
type 'REG_DWORD'.  The value keeps getting added as a
'REG_SZ'  type.  Here's my script:

use Win32::TieRegistry( Delimiter=>"#",
qw(REG_DWORD));

$eventlog_name = $ARGV[0];
$retention = $ARGV[1];
$retention = ($retention * 86400);
$max_size = $ARGV[2];
$max_size = ($max_size * 1024);

print "max_size is $max_size\n";
$current_working_directory = Win32::GetCwd;

open(MACHINES,
"$current_working_directory/machines.txt");
while ($line = <MACHINES>) {
        chop($line);
        $node = $line;
        print "node is $node..\n";
        if ($hkey_connect = $Registry->Connect($node,
"LMachine#")) {
                print " successful connection to $node..\n";
                $Register9 =
"SYSTEM#CurrentControlSet#Services#Eventlog";
                $eventlog_settings_key =
$hkey_connect->{"$Register9#$eventlog_name"};
                $eventlog_settings_key->{"##MaxSize"} = [ pack("L",
hex($max_size)), "REG_DWORD" ] or  die "error adding
max_size value!";
#               $eventlog_settings_key->SetValue("#MaxSize",
pack("L", hex($max_size)), "REG_DWORD") or  die "error
adding max_size value!\n";
                $eventlog_retention =
$hkey_connect->{"$Register9#$eventlog_name#Retention"};
                $eventlog_retention = hex($eventlog_retention);
                print "eventlog_retention is $eventlog_retention\n";
                $hkey_connect->{"$Register9#$eventlog_name#MaxSize"}
= $max_size;
                $eventlog_max_size =
$hkey_connect->{"$Register9#$eventlog_name#MaxSize"};
#               $eventlog_max_size = hex($eventlog_max_size);
                print "eventlog_max_size is $eventlog_max_size\n";
        }
}


Thanks in advance,
PJ


http://www.yahoo.promo.com.au/hint/ - Yahoo! Hint Dropper
- Avoid getting hideous gifts this Christmas with Yahoo! Hint Dropper!
_______________________________________________
Perl-Win32-Admin mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs