You might want to look at Win32::Perms from Dave Roth for this. www.roth.net
Hope this helps. Trevor Joerges ----- Original Message ----- From: "Graham Ford" <[EMAIL PROTECTED]> To: <[EMAIL PROTECTED]> Sent: Friday, September 19, 2003 3:49 PM Subject: Win32::Security and Permissions Inheritance > I am using a script to set security permissions on a large number of > directories using Win32::FileSecurity. The script. The code for a > folder looks like this: > > ____START____ > > @administrator_acl = qw( FULL GENERIC_ALL ); > @folder_acl = qw(READ CHANGE ADD GENERIC_READ GENERIC_EXECUTE > GENERIC_WRITE); > > $admin_mask = MakeMask(@administrator_acl); > $folder_mask = MakeMask(@folder_acl); > > my %acl = ($administrator => $admin_mask, > $staff_accounts_group => $folder_mask, > $student => $folder_mask,); > > Set($dir,\%acl); > > ____END_____ > > It properly sets the security permissions for the folder in question, > however the problem occurs with sub-directories and files. They end up > not inheriting the directory's security settings. Strangely, they have > the inheritance box checked in the GUI, but they display the > permissions of the parent directory of $dir, not $dir. Deselecting and > then selecting the checkbox resets the permissions of the file or > directory. > > This is a tree of folders with student folders within classroom folders > and such, so there are directories above it that get secured before the > script works down to student folders. > > Thanks, > Graham > > _______________________________________________ > Perl-Win32-Users mailing list > [EMAIL PROTECTED] > To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs > _______________________________________________ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
