blackadder has asked for the wisdom of the Perl Monks concerning the following question:
use strict; use Win32::Perms; my $path = shift @ARGV; my $perms = new Win32::Perms($path) || die "\n$^E\n"; if ( my $counter = $perms->Get (\ my @list)) { print "\n$ counter = Total number of ACES\n"; foreach my $Ace (@list) { next unless ("DACL" eq $Ace->{Entry}); my $account = ("" ne $Ace->{Domain})? "$Ace->{Domain}\\":""; $account .=$Ace->{Account}; print "\tAccount: $account\n"; print "\tPath " . $perms->Path() . "\n"; print "\tType: ", $Ace->{ObjectName}, "\n"; print "\tAccess: ", $Ace->{Access}, "\n"; print "\n"; } }
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: Simple question on Win32-Perms and local groups
by Nitrox (Chaplain) on Jul 26, 2002 at 15:30 UTC | |
by blackadder (Hermit) on Jul 26, 2002 at 15:52 UTC | |
|
Re: Simple question on Win32-Perms and local groups
by Nitrox (Chaplain) on Jul 26, 2002 at 16:09 UTC |