Hi all,
I'm trying to add users to a directory DACL using Win32-Perms but running
into problems. The accounts are being added but the permissions MASK is not
being applied. Can anybody point out where I am going wrong:
use Win32::Perms;
Win32::Perms::LookupDC( 0 );
$account = 'IUSR_NODENAME';
$mask = 'FULL';
$type = 'ALLOW';
$flag = 'DIR';
$dir = new Win32::Perms( "D:/Program Files/My Application/" ) || die;
$dir->Remove(-1);
$dir->Add({ Account=>$account, Mask=>$mask} );
$dir->Set();
$dir->Allow({ Account=>$account, Mask=>$mask} );
$dir->SetDacl();
$dir->Dump;
$dir->Close;
Thanks in advance.
Trevor Joerges
Kind regards,
Trevor J. Joerges
--------------------------------------------
$_=q;rrUSFWPSZK.ZKPFSHFT,rkvtuZbopuifsZQZibdl
rrqpxfsfeZcyZQ,,riuuq://xxx.%.dpn,ru~@%.dpn ,rrr8-)
;;s;\~;kpfshft;g;s;\%;tfoenjnf;g;y;B-x;A-w;;
s;P;perl;g;s;,;\n;g;s;Y; ;g;s;q;\t;g;print;
--------------------------------------------
_______________________________________________
Perl-Win32-Admin mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
