The 2 differences you have from my install are namely the version of
Win32-Perms, and the AS perl ver.
I'm on 631, and you seem to be using 635.
I'm on Perms 20020301, and you seem to be using 20020605.
I'm just being anal, but an:
if (-d $path) {
print "yes, the path exists\n";
}
Returns the expected results?
Steven
-----Original Message-----
From: Raymond Forbes [mailto:[EMAIL PROTECTED]
Sent: Friday, March 28, 2003 10:59 AM
To: Steven Manross; [EMAIL PROTECTED]
Subject: RE: Win32::Perms
welp, these are the results i get.
c:\dev\ioactive>perl -W perms.pl
- Failed Allowing w2kasvm1\rforbes GENERIC_ALL permissions on Home Dir
- Failed Allowing w2kasvm1\rforbes FULL-INHERITABLE permissions on Dir
Setting Perms on Home Dir - Success Setting Perms
there must be something wrong with my server configuration, because there
doesn't seem to be a reason this doesn't work.
-----Original Message-----
From: Steven Manross [mailto:[EMAIL PROTECTED]
Sent: Friday, March 28, 2003 9:57 AM
To: Raymond Forbes; [EMAIL PROTECTED]
Subject: RE: Win32::Perms
Try this and see what happens..
I've been successful using this code for a while (where the path is a
directory). If this works, play with the perms you want to grant, from FULL
to change or whatever).
P.S. sorry for changing your variable name (it was just easier do a copy and
paste for what I had and change your var name)
use strict;
use Win32;
use Win32::Perms;
my $user;
my $path;
my $result;
my $Dir;
my $administrator;
my $admin_group;
$user = "DOMAIN_OR_COMPUTER\\rforbes";
$path = "c:\\inetpub\\wwwroot\\$user";
$Dir = new Win32::Perms("dir:$path",DIRECTORY) || print "error creating
Win32::Perms object\n";
if ($Dir->Allow( $user, GENERIC_ALL, CONTAINER_INHERIT_ACE )) {
print " - Allowed $user GENERIC_ALL permissions on Home Dir\n";
} else {
print " - Failed Allowing $user GENERIC_ALL permissions on Home Dir\n";
}
if ($Dir->Allow( $user, FULL, CONTAINER_INHERIT_ACE | OBJECT_INHERIT_ACE
)) {
print " - Allowed $user FULL-INHERITABLE permissions on Dir\n";
} else {
print " - Failed Allowing $user FULL-INHERITABLE permissions on Dir\n"; }
print "Setting Perms on Home Dir";
if (!$Dir->Set()) {
print " - Set did not work\n";
} else {
print " - Success Setting Perms\n";
}
Steven
-----Original Message-----
From: Raymond Forbes [mailto:[EMAIL PROTECTED]
Sent: Friday, March 28, 2003 10:30 AM
To: Wiechel, Ben; [EMAIL PROTECTED]
Subject: RE: Win32::Perms
ok, that is kinda weird, but i guess nothing can be done about that.
so, this is the heart of my problem. i can't seem to get this module to do
much of anything useful for me. i can use the Remove (-1) to COMPLETELY
screw up the permissions on an object, but this never comes through.
use strict;
use Win32;
use Win32::Perms;
my $user;
my $path;
my $result;
my $perm_object;
my $administrator;
my $admin_group;
$user = "rforbes";
$path = "c:\\inetpub\\wwwroot\\$user";
$perm_object = new Win32::Perms ($path);
$perm_object -> Allow ($user, CHANGE_DIR, DIR);
$perm_object -> Allow ($user, CHANGE_FILE, FILE);
$result = $perm_object -> Set ();
print "$result\n";
$perm_object -> Dump ($perm_object);
the set and the dump work just fine, but i am always getting a 0 back for
the allow.
-----Original Message-----
From: Wiechel, Ben [mailto:[EMAIL PROTECTED]
Sent: Friday, March 28, 2003 9:36 AM
To: Raymond Forbes; [EMAIL PROTECTED]
Subject: RE: Win32::Perms
Two things:
CheckSD is not a method in Win32::Perms. I assume you were intending to use
GetSD, which should make your code work.
Second, after doing some testing, it appears that ResolveSID works fine
against a domain, but will not return a SID for a local user. I could not
return a local user SID no matter what I changed.
--
Benjamin D. Wiechel
Xerox Connect
[EMAIL PROTECTED]
http://members.toast.net/strycher/
-----Original Message-----
From: Raymond Forbes [mailto:[EMAIL PROTECTED]
Sent: Friday, March 28, 2003 3:52 AM
To: [EMAIL PROTECTED]
Subject: RE: Win32::Perms
let's try that again...
- ---------------------------------------------------------
i am at my wits end on this one.
first, pertinent info...
c:\dev\ioactive>perl -v
This is perl, v5.6.1 built for MSWin32-x86-multi-thread
(with 1 registered patch, see perl -V for more detail)
Copyright 1987-2001, Larry Wall
Binary build 635 provided by ActiveState Corp.
http://www.ActiveState.com
Built 15:34:21 Feb 4 2003
Win32-Perms [0.2002.06.05] The Win32::Perms extension for
Win32 X86.
ok, now to the problem. for some reason i cannot get this to work
in any reasonable way. i am not sure if i am doing something wrong, or ifit
is a misconfiguration but i thought i would run it by everybody here.
here are some examples of things that don't work....
use Win32::Perms;
$dir = 'c:/inetpub';
$perm = new Win32::Perms ($dir);
$result = $perm -> CheckSD();
print $result;
( $result is always 0 here)
$result2 = Win32::Perms::ResolveSid ("W2KASVM1\\administrator");
print "the sid is:$result2\n";
this returns nothing in $result2. not sure if it is a NULL or UNDEF
or what.
the part that is so frustrating is it's impossible to see what is
actually going wrong. since i can't get the Win32 error messages to bubble
to the top, i don't even know where to begin.
_______________________________________________
Perl-Win32-Admin mailing list [EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
_______________________________________________
Perl-Win32-Admin mailing list [EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
_______________________________________________
Perl-Win32-Admin mailing list [EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
_______________________________________________
Perl-Win32-Admin mailing list [EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
_______________________________________________
Perl-Win32-Admin mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
