I am trying to write a script to go through a class c network and find all
instances of a virus. Below is my code. The problem I am experiencing is I
am not getting back accurate information. My best guess is %service_list
and %status need to be initialized because they seem tobe "holding on" to
the previous loops information. Anybody have any ideas?
For a bit more information. Everytime this script succesfully connects to a
remote machine it responds that it found the virus and the service is turned
off. Now this is true for the FIRST machine it runs across, but not the
others.
Oh, I am using perl 5.8.0
use strict;
use Net::Ping;
use Win32;
use Win32::Service;
my $p;
my $host;
my $network;
my $i;
my @addresses;
my $machine;
my $test_address;
my $display_name;
my $display_name2;
my %service_list;
my %status;
my %list;
my %state;
%state = (
0 => 'unknown',
1 => 'stopped',
2 => 'starting',
3 => 'stopping',
4 => 'running',
5 => 'resuming',
6 => 'pausing',
7 => 'paused',
);
$network = "10.34.9";
$display_name = "WINS Client";
$p = Net::Ping->new ();
print "Populating server list\n\n\n";
for ($i = 1; $i < 10; $i++)
{
$test_address = "$network.$i";
if ($p->ping ($test_address))
{
push (@addresses, $test_address);
print "address added\n";
}
}
print "Starting Virus Check\n\n\n\n";
ADDRESSLOOP: foreach (@addresses)
{
$machine = "\\\\$_";
print "Starting Check of $machine\n";
if (Win32::Service::GetServices ($machine, \%service_list))
{
print "Succesfully Connected\n";
}
else
{
print "Could not Connect\n\n\n";
next ADDRESSLOOP;
}
if (defined $service_list{$display_name})
{
print "virus found, the service $display_name is on
the machine\n checking status\n";
Win32::Service::GetStatus ($machine,
$service_list{$display_name}, \%status);
print "The virus is
$state{$status{CurrentState}}\n\n\n";
}
else
{
print "This machine does not have the Virus\n\n\n";
}
}
_______________________________________________
Perl-Win32-Admin mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
