i guess i could try rolling back versions, if i can find them.
yup, and i can actually call $perm_object -> Path() and get back a
correct result.
-----Original Message-----
From: Steven Manross [mailto:[EMAIL PROTECTED]
Sent: Friday, March 28, 2003 10:24 AM
To: Raymond Forbes; [EMAIL PROTECTED]
Subject: RE: Win32::Perms
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
