Win32::Perms again

[Martin Wheldon]

Hi,

I've posted my actual code now to cut down on typos from my previous
posting.

#################### This code works ie changes permissions on
file###########################

use strict 'vars';
use Win32::Perms;

my $perms = new Win32::Perms || die "Unable to create object";
$perms->Allow('Martin', FULL, CONTAINER_INHERIT_ACE);
$perms->Allow('Martin', FULL, OBJECT_INHERIT_ACE | INHERIT_ONLY_ACE);

$perms->Dump;

if ($perms->Set('d:/ccs/test.txt'))
        {
                print "permissions set OK";
        }
else
        {
                print "Failed";
        }

#################### This code fails ie attempt to change directory
permissions ###########################

use strict 'vars';
use Win32::Perms;

my $perms = new Win32::Perms || die "Unable to create object";
$perms->Allow('Martin', FULL, CONTAINER_INHERIT_ACE);
$perms->Allow('Martin', FULL, OBJECT_INHERIT_ACE | INHERIT_ONLY_ACE);

$perms->Dump;

if ($perms->Set('d:/ccs'))
        {
                print "permissions set OK";
        }
else
        {
                print "Failed";
        }

Any help with this is much appreciated.
Many thanks for your previous quick responses.

Regards

Martin Wheldon

_______________________________________________
Perl-Win32-Admin mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs