|
Hi all! Working on my second script, and I believe
I have everything working except: Win32::Lanman::NetLocalGroupGetMembers($server,
$GroupName, \@members);
if (@members=~/NORTHAMERICA\\Domain Admins/i)
{
printf OUTFILE
"\nDomain Admins is
already a member of Administrators on $server\n";
}
else
{
&add I think it has something to do with the
space in the "northamerica\domain admins", but I am probably wrong. Anyone have any ideas, or tips on what I
wrote? -- use Win32::Lanman; print "What is the name of the file that has the lists the
computers:\n"; $Ffilename =
<STDIN>; chomp($Ffilename); $output = "c:\\Result.txt"; open (COMPUTERLIST,"< $Ffilename"); while (<COMPUTERLIST>) {
$server = $_;
chomp($server);
$GroupName = "Administrators";
open(OUTFILE, ">>$output") ||
die "Cannot open output file $output";
Win32::Lanman::NetLocalGroupGetMembers($server,
$GroupName, \@members);
if (@members=~/NORTHAMERICA\\Domain Admins/i)
{
printf OUTFILE
"\nDomain Admins is
already a member of Administrators on $server\n";
}
else
{
&add
}
if (@members=~/"NORTHAMERICA\\g-admin-na"/i)
{
&removeold
}
else
{
printf OUTFILE
"\nG-admin-na is not in the administrators group
on $server";
}
} close(OUTFILE); sub add { if (Win32::Lanman::NetLocalGroupAddMembers($server, $GroupName, ['NORTHAMERICA\DOMAIN ADMINS']))
{
printf OUTFILE
"\nDomain Admins has
been added to Administrators on $server\n";
}
} sub removeold { if (Win32::Lanman::NetLocalGroupDelMembers($server, $GroupName, ['NORTHAMERICA\g-admin-na']))
{
printf OUTFILE
"--Done\n";
}
} -- |
