Select Code to Download

#! perl -sw
use strict;
...
    SUCCESS    => SUCCESS,        # If the type is AUDIT then this wil
+l log a successful audit
    FAILURE    => FAILURE,        # If the type is AUDIT then this wil
+l log a failed audit
);

...
$perms->Add('MYDOMAIN\bloggJo', $ACE_masks{$ARGV[1]}|$ACE_masks{$ARGV[
+2]}
    ACCESS_ALLOWED_ACE_TYPE, OBJECT_INHERIT_ACE | CONTAINER_INHERIT_AC
+E);