Help for this page

Select Code to Download


  1. or download this
    Use Win32::Perms;
My $path = ‘c:/temp’;
My $dir = new Win32::Perms($path) || die “\n$E, $^E\n”;
$dir->Add(‘MYDOMAIN\BloggsJo’, READ|EXECUTE, ACCESS_ALLOWED_ACE_TYPE, 
+OBJECT_INHERIT_ACE | CONTAINER_INHERIT_ACE);
  2. or download this
    $dir->Add(‘MYDOMAIN\BloggsJo’, CHANGE|CHANGE, ACCESS_ALLOWED_ACE_TYPE,
+ OBJECT_INHERIT_ACE | CONTAINER_INHERIT_ACE);