Windows Perl Scripting Forums » Tag: perms

Windows Perl Scripting Forums » Tag: perms - Recent Posts http://www.roth.net/forums/ Windows Perl Scripting Forums » Tag: perms - Recent Posts en Wed, 22 May 2013 06:05:10 +0000 Anonymous on "Win32::Perms::ResolveSid" http://www.roth.net/forums/topic.php?id=278#post-590 Wed, 01 Jul 2009 00:14:09 +0000 Anonymous 590@http://www.roth.net/forums/ Always fails with error code 0x000003e5 (Overlapped I/O operation is in progress). Anonymous on "Win32::Perms::ResolveSid" http://www.roth.net/forums/topic.php?id=278#post-589 Tue, 30 Jun 2009 11:45:05 +0000 Anonymous 589@http://www.roth.net/forums/ I have script form Chapter 11 of Win32 Perl Programming, by David Roth. There is always error in line 09 . I change var $Account so: $Account ='\\\\$machine\\$user'; $Account ='$domain\\$user'; $Account ='$user'; No effect. There is always error in line 09 . Where is my mistake? 01. use Win32::Perms; 02. my $Domain = Win32::DomainName(); 03. my $User = Win32::LoginName(); 04. my $Account = sprintf( "%s%s", ( "" ne $Domain )? "$Domain\\":"", $User ); 05. my %Sid = ( 06. text => "", 07. binary => "" 08. ); 09. if( $Sid{text} = Win32::Perms::ResolveSid( $Account, $Sid{binary} ) ) 10. { 11. print "You are logged in as $Account.\n"; 12. print "Your SID is: $Sid{text}\n"; 13. print "Your binary SID is: '$Sid{binary}'\n"; 14. } 15. else 16. { 17. print "\tCouldn't lookup the SID for $Domain\\$User: $^E\n"; 18. } mvancl on "Registry keys with (forward)slashes can't open" http://www.roth.net/forums/topic.php?id=191#post-446 Tue, 18 Dec 2007 13:31:44 +0000 mvancl 446@http://www.roth.net/forums/ Hi Harlan, I'm not sure if I understand you. The code converting slashes to backslashes in paths is in function FixPath (source code in <a href="../pub/ntperl/perms/20020605/source/Perms_Source.Zip"><a href="ftp://www.roth.net/pub/ntperl/perms/20020605/source/&lt;font" rel="nofollow">ftp://www.roth.net/pub/ntperl/perms/20020605/source/&lt;font</a> color="#800080">Perms_Source.Zip) </a>In README file is note: "Forward and backslashes are supported (all forward slashes will first be converted to backslashes)". And also my script walks recursively through complete registry tree but keys containing forwardslashes in its name which is not able to open (new returns undef).  M. Vancl keydet89 on "Registry keys with (forward)slashes can't open" http://www.roth.net/forums/topic.php?id=191#post-445 Tue, 18 Dec 2007 12:52:55 +0000 keydet89 445@http://www.roth.net/forums/ M. Vancl, Can you add code that explicitly reverts the slashes under those conditions? Harlan mvancl on "Registry keys with (forward)slashes can't open" http://www.roth.net/forums/topic.php?id=191#post-444 Tue, 18 Dec 2007 10:53:45 +0000 mvancl 444@http://www.roth.net/forums/ Hi, I have problem with walking through all registry keys because there are keys containing normal slashes like: HKCU\Software\Microsoft\Windows\MediaPlayer\Player\Skins\res://wmploc/RT_TEXT/MainAppSkin.wsz and all slashes are unconditionaly converted in function FixPath to backslashes and then is path incorrectly splitted. Is any solution ? Thanks M. Vancl anowak on "Win32::Perms not accepting long security group names" http://www.roth.net/forums/topic.php?id=185#post-432 Sun, 04 Nov 2007 23:20:11 +0000 anowak 432@http://www.roth.net/forums/ Hi, I am having an issue with Win32::Perms and applying security groups with long names? I create a group "this.is.a.very.long.security.group.name.that.does.not.work" under the domain MYDOMAIN code is as below  ======================================= use Win32::Perms; Win32::Perms::LookupDC(0); my $folder = "C:\\MyFolder"; my $permission = new Win32::Perms( $folder ) or print $!; $permission->Allow("MYDOMAIN\\this.is.a.very.long.security.group.name.that.does.not.work", 1179817, 3); $permission->Set(); $permission->Close(); ======================================= When I read the permissions they seem to be fine it just does not apply them?. Any ideas why this would be? Regards MiniMe on "Win32::Perms and Windows Server 2003" http://www.roth.net/forums/topic.php?id=17#post-425 Tue, 09 Oct 2007 22:53:23 +0000 MiniMe 425@http://www.roth.net/forums/ Hi Kelly,  I'm having the same issues with the Perms plugin. I debugged and chacked all the return values and the Allow command returns a "True" value so for the code everything was succesfull. I asume this is a bug and I'm using icalcs.exe now for doing the trick. Cheers,  Steve lennu on "Memory-Problems with Win32::Perms" http://www.roth.net/forums/topic.php?id=163#post-384 Wed, 01 Aug 2007 21:32:12 +0000 lennu 384@http://www.roth.net/forums/ Hi, I encountered a memory problem with Win32::Perms and hope somebody has got a hint for me. I've got a file containing a list of thousands of files and directories (one object per line) and wrote a script to take each file/directory and read the permissions. Code extract of my first try: <code> open(LISTFILE, "< xyz.txt"); while(my $line = <LISTFILE>) {   chomp $line;   next if (!-e $line);   checkPermissions($line); } close LISTFILE; sub checkPermissions {   my ($obj) = @_;   my $Perm = new Win32::Perms($obj);   #...do something with $Perm...   $Perm->Close(); } </code> Code extract of my second try: <code> my $Perm = new Win32::Perms($0); open(LISTFILE, "< xyz.txt"); while(my $line = <LISTFILE>) {   chomp $line;   next if (!-e $line);   checkPermissions($line); } close LISTFILE; $Perm->Close; sub checkPermissions {   my ($obj) = @_;   $Perm->Remove(-1);   $Perm->Import($obj);   #...do something with $Perm...   $Perm->Close(); } </code> In both cases the memory usage increases. Is this a memory handle bug in the Perm.dll or am I doing something wrong? Regards, Lennart Freyberg (Perl version: 5.8.7 813, Windows 2k) jsanio on "Recursing Permissions on a Registry Object" http://www.roth.net/forums/topic.php?id=117#post-291 Fri, 23 Feb 2007 02:18:27 +0000 jsanio 291@http://www.roth.net/forums/ Hi All I am running - Perl v5.8.7 - Win32-Perms [0.2002.06.05] - Win32-Registry (Sept 2005) Also with Win32::TieRegistry (Mar 2006) I am executing the code as administrator I have googled the the web and news groups and have not found a response to this issue. I am trying to recursively add permissions (read access) to all Keys under the the HKLM,HKCC hives. I am able to successfully update the Target Hive or Sub key BUT I am unable to recurse down the hive adding the priviledges. Any and all comments are welcome. CODE SNIP my $RegKeyObj=$Registry->Connect( $HOST, $regkey, { Access=>KEY_ALL_ACCESS, Delimiter=>"/" }); $::HKEY_CURRENT_USER->Connect($HOST,$key) or die "Can't read $HOST $regkey $^E\n"; my $PermsObj = new Win32::Perms($key); $PermsObj->Dump; $PermsObj->Remove($LocalGroup); print "The path represents a ", $TYPE{$PermsObj->GetType()}, ".\n"; print $SubDir, "-- $? -- \n"; print ($PermsObj->IsContainer())? "":"not " ; print $?,"\n"; if ( $PermsObj->IsContainer() ) { if ($PermsObj->Allow($LocalGroup,READ,CONTAINER_INHERIT_ACE)) { $PermsObj->SetRecurse(); print "$?\n"; print "Change Successful\n"; } else { print "Change Failed\n"; } } if ($PermsObj->Allow($LocalGroup,READ|READ_CONTROL|STANDARD_RIGHTS_READ,CONTAINER_INHERIT_ACE|OBJECT_INHERIT_ACE)) { $PermsObj->SetRecurse(); print "$?\n"; print "Change Successful\n"; } else { print "Change Failed\n"; } }; if ($@) { print $@,"\n"; } } <<< SNOP runrig on "Win32::Perms hanging" http://www.roth.net/forums/topic.php?id=49#post-116 Sat, 11 Nov 2006 18:53:46 +0000 runrig 116@http://www.roth.net/forums/ I would like to copy permissions from one registry key to another (actually a bunch of others), but either nothing happens, or it gets hung up on the Set(or SetDacl) eating more and more memory. I've tried passing in a 'registry:...' style path and a Win32::Registry object, but no luck. If I create the Win32::Perms object with a Win32::Registry object, and try to set permission on a 'registry:...' path, it eats memory. If I try to Set on a Win32::Registry object, then nothing happens. If I try to create a Win32::Perms object with a 'registry:..' path, then the Dump doesn't have the ACL permissions for groups and users. Here is the code: <code> #!/usr/bin/perl use strict; use warnings; use Win32::Registry; use Win32::Perms; my $path = 'SOFTWARE\\Classes'; my $key1 = 'opendocument.WriterDocument.1'; my $key2 = 'opendocument.WriterGlobalDocument.1'; $::HKEY_LOCAL_MACHINE->Open("$path\\$key1", my $doc1) or die "Acck: $^E"; #This doesn't work (nothing in Dump) #my $p = Win32::Perms->new("HKEY_LOCAL_MACHINE\\$path\\$key1"); my $p = Win32::Perms->new($doc1); $p->Dump; print "Set\n"; $p->SetDacl("registry:HKEY_LOCAL_MACHINE\\$path\\$key2", 1) or die "Acck: $^E"; print "Set!\n"; $p->Close; $doc1->Close; #$doc2->Close; </code> collier on "Win32::Perms and Windows Server 2003" http://www.roth.net/forums/topic.php?id=17#post-47 Mon, 21 Aug 2006 17:25:06 +0000 collier 47@http://www.roth.net/forums/ Hello, I borrowed chunks of an example script to modify the perms on files and directories. The aim of my script is to find objects which contain user X in their ACLs, add user Y with the same perms as user X, then delete user X. (I guess that's the long way of saying that the script does a user search and replace). My script works fine on my Win2K test machine, but no such luck on the Win2K3 server for which I was writing the script. Both machines have ActivePerl 5.8.8. On the Win2K3 machine, the script appears to work--the $Perm->Add() method returns sensible values with each run--but the ACLs aren't modified. Any ideas? Thanks in advance. -Kelly