http://qs321.pair.com?node_id=855720

anu_1 has asked for the wisdom of the Perl Monks concerning the following question: 

I am trying to get the SACL for the registry key

my( $Permreg ) = new Win32::Perms("HKEY_LOCAL_MACHINE\\SYSTEM\\Current
+ControlSet\\Services\\W3SVC");
$Permreg ->Dump( \@List );
foreach $Acct ( @List )
{
print "$Acct->{Entry} $nPath\n";

}


ONLY DACL and owner,group is displayed. SACL entry is missing. Is ther
+e any problem with the code.

** The SACL of this particular key is present as seen from suninacl

Thanks for help

[download]

Replies are listed 'Best First'.
Re: regkeys audit settings
by Anonymous Monk on Aug 18, 2010 at 09:28 UTC
    What is the output?
[reply]

      Here is the output 

      DACL HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\W3SVC
DACL HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\W3SVC
DACL HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\W3SVC
DACL HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\W3SVC
DACL HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\W3SVC
 DACL HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\W3SVC
DACL HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\W3SVC
DACL HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\W3SVC
DACL HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\W3SVC
Owner HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\W3SVC
Group HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\W3SVC

      [download]
[reply]
[d/l]
        The problem is solved now . I had to pass win32 registry object
[reply]

Back to Seekers of Perl Wisdom