$Dir->Dump (\@List);

$i=0;
foreach $item (@List)
{
        print "$i\n";
        Win32::Perms::DecodeMask( $item, \@Mask, \@FriendlyMask);
        Win32::Perms::DecodeType( $item, \@Types );
        Win32::Perms::DecodeFlag( $item, \@Flags );
        print "\nMask:@FriendlyMask\nType:@Types\nFlags:@Flags\n\n"; 

        foreach $key (sort keys %{$item})
        {
                print "$key: ${$item}{$key}\n";
        }
        print "\n";
        $i++;
}
exit;

-----Original Message-----
From: Cruickshanks, Darin [mailto:[EMAIL PROTECTED]]
Sent: Monday, March 12, 2001 12:36 PM
To: '[EMAIL PROTECTED]'
Subject: Win32::Perms


Hi all,

Does anyone know how to retrieve a list of account names from a share using
Win32::Perms??

I can get the MASK, TYPE and FLAG using $ShareObject->Dump( \@List );   but
the resulting array doesn't appear to store the account names.

Any ideas anyone??

Cheers,

Darin

Darin Cruickshanks, Labs Co-Ordinator
Systems Programmer, Computing Service
University of Essex
E-Mail - [EMAIL PROTECTED]
Phone - 01206 873585

_______________________________________________
Perl-Win32-Admin mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-admin
_______________________________________________
Perl-Win32-Admin mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-admin

Reply via email to