[prev in list] [next in list] [prev in thread] [next in thread] 

List:       perl-win32-admin
Subject:    Win32::Perms share question
From:       "Guess Who" <guess_who344 () hotmail ! com>
Date:       2003-08-12 16:54:53
[Download RAW message or body]

Hello,

I'm trying to grant the everyone group READ permissions on a local share.  
What am I doing wrong?  After the script runs, the share permissions show 
the everyone group, however the 3 checkboxes (Full Contol, Change, Read) are 
empty.

use Win32::Perms;

$host = Win32::NodeName;

$Dir = "\\\\$host\\views" unless( $Dir = $ARGV[0] );

$P = new Win32::Perms();

#  Everyone gets read
$P->Allow( 'everyone', READ );
$P->Set( $Dir );

_________________________________________________________________
STOP MORE SPAM with the new MSN 8 and get 2 months FREE*  
http://join.msn.com/?page=features/junkmail

_______________________________________________
Perl-Win32-Admin mailing list
Perl-Win32-Admin@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
[prev in list] [next in list] [prev in thread] [next in thread]