UNC directories work..
print "allowing perms on dir\n";
if ($Dir->Allow( $username_with_domain, GENERIC_ALL,
CONTAINER_INHERIT_ACE )) {
print " - Allowed $username_with_domain GENERIC_ALL permissions
on Home Dir\n";
} else {
print " - Failed Allowing $username_with_domain GENERIC_ALL
permissions on Dir\n";
}
foreach $permsuser (@PermsUsers) {
if ($Dir->Allow( $permsuser, FULL, CONTAINER_INHERIT_ACE |
OBJECT_INHERIT_ACE )) {
print " - Allowed $permsuser FULL-INHERITABLE permissions on
Dir\n";
} else {
print " - Failed Allowing $permsuser FULL-INHERITABLE
permissions on Dir\n";
}
}
print "Setting Perms on Dir";
if (!$Dir->Set()) {
print " - Set did not work\n";
} else {
print " - Success Setting Perms\n";
}
print "Closing directory";
if ($Dir->Close()) {
print " - Success Closing Dir\n";
exit 1;
} else {
exit 0;
}
Steven
-----Original Message-----
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of
Allen, Matthew (c)
Sent: Wednesday, November 19, 2003 1:40 PM
To: '[EMAIL PROTECTED]'
Subject: Win32::Perms
Hello friends--
I am having trouble here. I am trying to get perms to accept an UNC
path as a directory path to remotely set NTFS permissions:
use Win32::Perms;
$Dir = new Win32::Perms( '\\\\server\\d\$\\data\\perltest' ) || die;
$Dir->Add( {Account=>'domain\\ctxtest01', Mask=>FULL } ); $Dir->Set();
Perltest is a directory under N$ not a share.
Anyone ever try this?
Matthew Allen
Systems Consulting Senior Analyst
ACS, Inc.
Office: (303) 462-6000 x46645
Pager: (888) MCI-2WAY PIN #192998
_______________________________________________
Perl-Win32-Admin mailing list [EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
_______________________________________________
Perl-Win32-Admin mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
