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
