Hi there!
Is there someone, who knows how to manage the access rights configuration of
a shared NT-Directory via perl?
I already found a working perl script at CPAN which is able to change the
access rights on the local hard disk, but what I always do via the GUI of NT
is changing the access rights of a directory on a shared drive, which I
created. Now I want to automize this work.
Here is my perl script which already works with my local drive:
use Win32::Perms;
# Create an empty SD
$File = new Win32::Perms;
# Now let's clear out all entries...
$File->Remove( -1 );
# add an ACE
$File->Allow('Matthias', READ);
$File->Allow('emea\Someoneelse', READ);
# The second way to add an ACE
$File->Add( {Account=>'Matthias', Mask=>FULL } );
$File->Add( {Account=>'emea\Someoneelse', Mask=>FULL } );
$File->Remove('Jeder');
$File->Remove('SYSTEM');
# Set the file's permissions
$File->Set('t:\text.rtf');
# If you are curious about the contents of the SD...
$File->Dump;
Thank you in advance!!!
Matthias Hofmann
Junior Consultant
NCR GmbH Financial Solutions Division
Professional Services Central Europe
Center of Expertise Banken und Sparkassen
Ulmer Stra�e 160
86135 Augsburg
Tel. +49 821 405 8101
Fax +49 821 405 7224
Email: [EMAIL PROTECTED]
