To all the Perl Guru's out there,
Please help me out. I keep running in to the same problem. If the script
below is run locally or remotely, it will produce a list of accounts that
have permissions on the directory specified in the $Path variable. However
if the script is started remotely on a server that is a member server, the
variables $Acct->{Domain} and $Acct->{Account} are blank if the accounts are
local userid's or localgroups from this member server.
Win::FileSecurity has exactly the same problem.
I hope someone can help me out,
Wim Goorse
Unilever Corporate Centre
use Win32::Perms;
$Path = "\\server\\dir";
$Perm = new Win32::Perms( $Path );
if($Perm ){
$Perm->Dump( \@List );
foreach $Acct ( @List ){
if($Acct->{Flag} & DIR){
print "$Acct->{Domain}\\$Acct->{Account}\n";
}
}
}
_______________________________________________
Perl-Win32-Admin mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-admin
