# a quick hack to print the status of all services running on a machine
format top =
Status of Service:
Service Status Name Status Value Service
_____________________________________________________________________________
.
format STDOUT =
@<<<<<<<<<<<<<<<<<<<<<<< @||| @<<<<<<<<<<<<<< @||| @<<<<<<<<<<<<<<<<<<<<<<<<<
$key2, '=', $status{$key2} '->' $key1
.
use Win32::Service;
print "\n\n";
if (@ARGV) {
while (@ARGV) {
&PrintStatus(shift);
print "\n";
}
} else {
Win32::Service::GetServices('', \%list) || &Error($!);
foreach $key (keys %list)
{
&PrintStatus($list{$key});
print "\n";
}
}
print "\n\n\n";
sub PrintStatus {
local($key1) = @_;
Win32::Service::GetStatus('', $key1, \%status) || &Error($!);
foreach $key2 (keys %status) {
write;
}
}
sub Error {
use Win32;
local($err) = @_;
if ($err != 2) {
Win32::FormatMessage(Win32::GetLastError());
}
}