Hello All:
I'd like to ask what may be a stupid question. I'm trying to apply share
permissions on a home folder with the Win32::Perms module. I create the
directory with a mkdir command and then I share it with the NetResource
module, which is shared, by default with Full permission for Everyone. I
want the user, Fred, to have Read and administrators to have Full. When I
run the following code, nothing happens:
$PermShareUserMask = READ | EXECUTE;
$PermShareAdminMask = FULL;
$HomeDirShare = new Win32::Perms($SharePath) ||
die "Cannot create new share permissions object: $!\n";
$HomeDirShare->Allow($UserName, $PermShareUserMask, $PermDirFlag);
$HomeDirShare->Allow("Administrators", $PermShareAdminMask,
$PermDirFlag);
$HomeDirShare->Remove("Everyone");
$HomeDirShare->Set();
Could someone please tell me what I'm doing wrong. Thanks.
Dean Theophilou
Genisar
_______________________________________________
Perl-Win32-Admin mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-admin
