use strict;
use Win32;
use Win32::Perms;
my $user;
my $path;
my $result;
my $Dir;
my $administrator;
my $admin_group;
$user = "DOMAIN_OR_COMPUTER\\rforbes";
$path = "c:\\inetpub\\wwwroot\\$user";
$Dir = new Win32::Perms("dir:$path",DIRECTORY) || print "error creating
Win32::Perms object\n";
if ($Dir-> Allow( $user, GENERIC_ALL, CONTAINER_INHERIT_ACE )) {
print " - Allowed $user GENERIC_ALL permissions on Home Dir\n";
} else {
print " - Failed Allowing $user GENERIC_ALL permissions on Home
Dir\n";
}
if ($Dir-> Allow( $user, FULL, CONTAINER_INHERIT_ACE | OBJECT_INHERIT_ACE
)) {
print " - Allowed $user FULL-INHERITABLE permissions on Dir\n";
} else {
print " - Failed Allowing $user FULL-INHERITABLE permissions on
Dir\n"; }
print "Setting Perms on Home Dir";
if (!$Dir-> Set()) {
print " - Set did not work\n";
} else {
print " - Success Setting Perms\n";
}
Ik had zoiets gevonden, komt dat overeen met wat hier bedoeld wordt? Ik ben echt niet op de hoogte van NTFS scripts...