The error code that I get is,
126 The specified module could not be found. ERROR_MOD_NOT_FOUND
When the progam tries to remove the second ACE.
Does this help anyone, help me?
Help
I am getting a little desperate, if anyone can help please.
Using NT 4 SP 5
Below is a some code. What I am trying to do is remove selected group
permissions
on a particular path. The path and the groups (local groups) are on a member
server.
I have Dave roth's new book and checked through all the examples he never
uses $perm->Get
and he does not give an example of removing a series of ACE's. In the
examples he uses
$perm->Remove(-1) to remove all the permissions. When I try this it removes
them all OK but
I can not put any back. I would prefer not to use this method anyway.
The program will find and remove the first ACE that matches the group name.
If there is more
than just the one ACE then it will fail. Even though I set then close then
undef the perm
and finally recreate the perm it will not remove the other ACE's.
However if I close the program down and then rerun it, it will delete the
next ACE.
So the bottom line is I have to run the program as many times as I have
ACE's, not very
practicle. Does anyone know why??
use strict;
use Win32::Perms;
use Win32;
use Win32::Lanman;
my ( $_perm, $_index, $_server, $_path, @_lines, @_list,
$_group, $_script, $_elements, $_line, $_found, $i, $j );
if( not scalar @ARGV )
{
my ( $_script ) = ( $0 =~ /([^\\]*?)$/);
print << "EOT";
Syntax
Perl $_script <Directory> <Server> <Group Name>
Example:
perl $_script c:\\ansto Tagua project_admins
EOT
exit();
}
$_path = "c:\\" unless ( $_path = $ARGV[0] );
$_server = Win32::NodeName() unless ( $_server = $ARGV[1] );
$_line =
"___________________________________________________________________________
__________";
$_group = 'ansto_dm';
$_found = 1;
while( $_found )
{
$_index = $_found = 0;
$_perm = new Win32::Perms( "dir:".$_path ) || exit "Can not obtain
permissions on $_path\n";
$_perm->Dump( \@_list );
$_elements = @_list;
printOutput( "Server Name: \"$_server\" Path: \"$_path\" Delete
Group: \"$_group\"\n" );
printOutput( "\nNumber of Elements $_elements\n");
printList( @_list );
$_found = removeGroupPermissions( $_perm, $_group, @_list );
$_perm->Set();
$_perm->Close();
undef $_perm;
}
writeFile( "RemoveGroups", "v:\\ansto\\Output" );
#---------------------------------------------------------------------------
--------------------
sub showName
{
my( $sid ) = @_;
my( $binSid, $accountName, $domain, $SDT );
$binSid = Win32::Lanman::StringToSid( $sid );
Win32::LookupAccountSID( $_server, $binSid, $accountName, $domain,
$SDT );
return $accountName;
}
sub printList
{
my( @list ) = @_;
my( $account, $accountName, $index, $line );
$index = 0;
foreach $account ( @list )
{
( $accountName ) = showName( $account->{SID} );
printOutput( "Index: $index, Account: $accountName Details
are: \n" );
printAccountDetails( $account );
printOutput( "\n$_line\n" );
$index++;
}
}
sub printAccountDetails
{
my( $account ) = @_;
printOutput( "\nAccount->{ObjectName} : \"$account->{ObjectName}\""
);
printOutput( "Account->{ObjectType} : \"$account->{ObjectType}\""
);
printOutput( "Account->{Access} : \"$account->{Access}\"" );
printOutput( "Account->{Account} : \"$account->{Account}\"" );
printOutput( "Account->{Domain} : \"$account->{Domain}\"" );
printOutput( "Account->{Mask} : \"$account->{Mask}\"" );
printOutput( "Account->{Type} : \"$account->{Type}\"" );
printOutput( "Account->{Flag} : \"$account->{Flag}\"" );
printOutput( "Account->{SID} : \"$account->{SID}\"\n" );
}
sub printOutput
{
my( $line ) = @_;
print "$line\n";
# Remove white space from the end on the line
#$line =~ s/\s+$//;
push( @_lines, $line );
}
sub writeFile
{
my( $file, $dir ) = @_;
my( $filename, $line );
$filename = "$dir\\$file".".dbug";
open( F_OUT, ">$filename" ) || warn "Can not open $filename: $!";
print "In writeFile $filename\n\n";
foreach $line ( @_lines )
{
$line = "$line\n";
print F_OUT $line;
}
close( F_OUT );
}
sub removeGroupPermissions
{
my( $perm, $group, @list ) = @_;
my( $account, $accountName, $index, $found );
$index = $found = 0;
foreach $account ( @list )
{
unless( $accountName = $account->{ Account } )
{
$accountName = showName( $account->{SID} );
}
if( $accountName eq $group )
{
if( $perm->Remove( $index ))
{
printOutput( "Just removed perm index
$index: $accountName Path $_path " );
} else {
printOutput( "Unable to remove perm index
$index: $accountName Path $_path " );
print "Error:
".Win32::Lanman::GetLastError()."\n";
$found = 1;
}
}
$index++;
}
return $found;
}
This problem has really thrown a spaner in the works. Hoping someone can
help
Ron
_______________________________________________
Perl-Win32-Admin mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-admin
