in reply to Modifying NTFS File Permissions

Shouldn't that be 

Win32::FileSecurity::Get($dir, \%permissions) or die $!;
$permissions{ 'Everyone' } =
   MakeMask( qw( READ GENERIC_READ GENERIC_EXECUTE ) );
Win32::FileSecurity::Set($dir, \%permissions) or die $!;

[download]

I get a mask of -1609432919. Where did you get 1180095 from?

Replies are listed 'Best First'.
Re^2: Modifying NTFS File Permissions
by Anonymous Monk on May 21, 2009 at 00:35 UTC
    Thank you for the idea. However, I started out with something similar. It hangs for about 15 seconds and then spits out "Error handling error: 1722, LookupAccountName at noname3.pl line 10". So, still no go. Any other ideas?
[reply]

In Section Seekers of Perl Wisdom