in reply to Win32::Perms - Can't use Add or Allow methods

Is The network path was not found somehow unclear? To me that would indicate that $login had invalid information.

MJD says "you can't just make shit up and expect the computer to know what you mean, retardo!"
I run a Win32 PPM repository for perl 5.6.x and 5.8.x -- I take requests (README).
** The third rule of perl club is a statement of fact: pod is sexy.

Replies are listed 'Best First'.
Re: can't understand error message?
by Schlika (Initiate) on Apr 08, 2004 at 09:18 UTC
    It turns out that if I delete the DACL before populating it with the Add method, it works.

    So the code now looks like this:

    use Win32::Perms;
use diagnostics;
use strict;

Win32::Perms::LookupDC( 0 );

my $path = 'c:\temp';
my $login = '\\hostname\testuser';
my $Dir  = new Win32::Perms($path) or die "new: $^E";
$Dir->Remove( -1 ); # added this line
$Dir->Add($login, CHANGE, ACCESS_ALLOWED_ACE_TYPE, OBJECT_INHERIT_ACE 
+| CONTAINER_INHERIT_ACE ) or die "allow: $^E";
$Dir->Set() or die "set: $^E";
$Dir->Close();

    [download]
    Now I need to find out a way to extract the existing ACL, add the entry I want, and re-apply the whole thing...

    Schlika.

[reply]
[d/l]
Re: can't understand error message?
by Schlika (Initiate) on Apr 07, 2004 at 07:48 UTC
    Thank you for the insight, and although I am sometimes forgetful, in this particular case, I made sure the user actually exists.
    It could be however that because "hostname" is the name of a machine rather than the name of a domain it is unable to interpret $login correctly.
    I'll double-check what a valid username looks like for this module and post back.

    Schlika.
[reply]
Re: can't understand error message?
by Schlika (Initiate) on Apr 07, 2004 at 07:57 UTC
    Alright,

    Documentation states valid format for username is one of the following:

    username
    domainname\username
    \\machinename\username

    Tried all three but wihtout any luck...

    So it appears the obvious message is not what you thought after all.

    Schlika.

[reply]

In Section Seekers of Perl Wisdom