Hi! I did really try hard on setting the NTFS permissions on a directory. I used all possible combinations I found in webpages & mailing lists, but it does not work on my test machine. Maybe someone would be so kind to have a look at my test-script and to enlighten me. My environment is: - Win2k Server (US), SP1+Hotfixes - This is perl, v5.6.0 built for MSWin32-x86-multi-thread, Binary build 618 provided by ActiveState Tool Corp. http://www.ActiveState.com - Win32::Perms 20000216 (Installed via ppm install) Here is a test script I used (the permissions on the file are set correct, but no change on the directory). #!/usr/bin/perl use Win32::Perms; use strict; # Testing file my $perms = new Win32::Perms || die; $perms->Add({Account=>'Administrators', Mask=>FULL_CONTROL_FILE, Flag=>FILE}); $perms->Add({Account=>'SYSTEM' , Mask=>FULL_CONTROL_FILE, Flag=>FILE}); $perms->Add({Account=>'test1' , Mask=>READ_FILE , Flag=>FILE}); $perms->Add({Account=>'IUSR_test1' , Mask=>CHANGE_FILE , Flag=>FILE}); $perms->Set('c:/temp/test.txt'); # Testing directory my $dirperms = new Win32::Perms || die; $dirperms->Add({Account=>'Administrators', Mask=>FULL_CONTROL_DIR , Flag=>DIR}); #$dirperms->Add({Account=>'Administrators', Mask=>FULL_CONTROL_FILE, Flag=>FILE}); $dirperms->Add({Account=>'SYSTEM' , Mask=>FULL_CONTROL_DIR , Flag=>DIR}); #$dirperms->Add({Account=>'SYSTEM' , Mask=>FULL_CONTROL_FILE, Flag=>FILE}); $dirperms->Add({Account=>'test1' , Mask=>READ_DIR , Flag=>DIR}); #$dirperms->Add({Account=>'test1' , Mask=>READ_FILE , Flag=>FILE}); $dirperms->Add({Account=>'IUSR_test1' , Mask=>CHANGE_DIR , Flag=>DIR}); #$dirperms->Add({Account=>'IUSR_test1' , Mask=>CHANGE_FILE , Flag=>FILE}); $dirperms->Set('c:/temp/'); Thank you. Regards, Mike -- Mike Gerber fon: +49-7805-918-251 PGP auf Anfrage Leitwerk GmbH fax: +49-7805-918-200 _______________________________________________ Perl-Win32-Admin mailing list [EMAIL PROTECTED] http://listserv.ActiveState.com/mailman/listinfo/perl-win32-admin
