# !/usr/local/bin/perl -w
use strict;
use Win32;
use Win32::OLE qw(in);

my $HKEY_CLASSES_ROOT   = 0x80000000; # 2147483648
my $HKEY_CURRENT_USER   = 0x80000001; # 2147483649  
my $HKEY_LOCAL_MACHINE  = 0x80000002; # 2147483650
my $HKEY_USERS          = 0x80000003; # 2147483651
my $HKEY_CURRENT_CONFIG = 0x80000005; # 2147483653
my $HKEY_DYN_DATA       = 0x80000006; # 2147483654

my $KEY_QUERY_VALUE    = 0x0001;
my $KEY_SET_VALUE      = 0x0002;
my $KEY_CREATE_SUB_KEY = 0x0004;
my $DELETE             = 0x00010000;

my $strKeyPath = "SYSTEM\\CurrentControlSet";
my @arrSubKeys = ();
my @valueNames = ();
my @valueTypes = ();

my $wmiService = Win32::OLE->GetObject("winmgmts:\\\\.\\ROOT\\default:
+StdRegProv");
my $errorMsg = Win32::OLE->LastError();
print "Error message: $errorMsg\n";
my $tempErrorMsg = Win32::GetLastError();
$errorke = Win32::FormatMessage($tempErrorMsg);
print "Error message2 : $tempErrorMsg - > $errorMsg\n";

my @tmpArr = ();
$strKeyPath = "Console";
my $strValueName = "HistoryBufferSize";
my $tmpValues;
my @tmpTest;
my $HasAccessRight;

@tmpTest = $wmiService->CheckAccess($HKEY_LOCAL_MACHINE, "HKEY_CURRENT
+_USER\\Console", $KEY_QUERY_VALUE, $HasAccessRight);

print "Key access rights: $HasAccessRight\n"; # Returns nothing
print "Key access rights (2): @tmpTest\n"; # Retruns 2

@tmpTest = $wmiService->GetDWORDValue(2147483649, "HKEY_CURRENT_USER\\
+Console", "NumberOfHistoryBuffers", $tmpValues);
$errorMsg = Win32::OLE->LastError();
print "Error message: $errorMsg\n";
$tempErrorMsg = Win32::GetLastError();
$errorMsg = Win32::FormatMessage($tempErrorMsg);
print "Error message2 : $tempErrorMsg - > $errorMsg\n";

print "Current History Buffer Size: ".$tmpValues."\n"; # Returns nothi
+ng
print "Current History Buffer Size (2): @tmpTest\n"; # Returns 2
[download]