I just ran your script (changing the dir and the user) and it worked fine. However, the perms show up under the special perms vs. the main security tab.
Two assumptions apply here. First, for this to work, you must be applying these to a folder on an NTFS drive. Second, you must have rights to modify perms. I assume these two are true. -- Benjamin D. Wiechel Xerox Connect [EMAIL PROTECTED] Phone: 937-221-3443 Fax: 937-221-4499 Pager: 888-733-8075 / [EMAIL PROTECTED] Mobile: 513-254-7071 -----Original Message----- From: Raymond Forbes [mailto:[EMAIL PROTECTED] Sent: Friday, March 28, 2003 12:30 PM 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
