Hi,
I'm new to Win32::perms and can't get it to set permissions. I'm trying to
add the user SAMS-1 to the DACL with read permission and remove 'Everyone'
from the SACL. Neither method produces any result or error. But there is a
delay of about 5 seconds when the Add and RemoveAudit methods are attempted.
I've tried other methods and combinations in the docs but the result is
always the same: a delay and no discernable error condition. Here is my
simple script:
use Win32::Perms;
use Win32::Lanman;
my( $Obj, $Result );
$Obj = new Win32::Perms( 'c:/DEV3' );
print "Object: $Obj\n";
$Result = $Obj -> Add( Account=>'SAMS-1', Mask=>READ );
print "1-Result: $Result\n";
$Result = $Obj -> RemoveAudit( 'Everyone' );
print "2-Result: $Result\n";
$Obj -> Set('c:/DEV3' );
$Obj->Dump;
Snip - here is the output -------------
Object: Win32::Perms=HASH(0x1abf12c)
1-Result: 0
2-Result: 0
Descretionary ACL:
Index Account Mask Type Flag
----- ---------------------------------------- ---------- ----------
----------
0 BUILTIN\Administrators 0x001f01ff Allow
0x00000013
1 CREATOR OWNER 0x001f01ff Allow
0x0000001b
2 NT AUTHORITY\SYSTEM 0x001f01ff Allow
0x00000013
3 BUILTIN\Users 0x001200a9 Allow
0x00000013
System (auditing) ACL:
Index Account Mask Type Flag
----- ---------------------------------------- ---------- ----------
----------
0 Everyone 0x001f01ff Audit
0x00000093
Owner:
Account
----------------------------------------
BUILTIN\Administrators
Group:
Account
----------------------------------------
Total: 5 ACE entries
I'm logged on to Windows 2000 Server as the administrator and have tried
this on several boxes. Any help is really appreciated...thanks.
Bob
_______________________________________________
Perl-Win32-Admin mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
