It could easily be scripted. In fact perl has a function that will query services on remote workstations.
Something like this:
use Win32::Service;
use Net::IP;
#define service
my $myedpa = "EDPA";
my %statusHash;
# define subnet
my $subnet = new Net::IP ('10.0.0.1 - 10.0.0.254') || die
#loop through subnet
do {
my $myip = $subnet->ip();
Win32::Service::GetStatus("$myip", "$myedpa", \%statusHash);
if ($statusHash{"CurrentState"} =~ /[1-7]/){
print "$myedpa" . " service for $myip is currently " . $statcodeHash{$statusHash{"CurrentState"}} . "\n";
} else {
print "$myedpa" . " service for " . "$myip" . " is not running.\n";
}
} while (++$ip)