|
Oops, replied to a thread,
sorry!
--
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";
}
} --
Matthew Allen |
- Win32::Lanman problem donovan allen
- Allen, Matthew
