|
# $status = Win32::Service::StopService($host, $service);
#!/usr/bin/perl -w
use Win32::Service;
$host = 'yourhost';
$service = $ARGV[0];
print "Starting $service on $host.\n";
$status = Win32::Service::StopService($host, $service);
if ($status) {
print "Started $service.\n";
} else {
print_error();
}
sub print_error {
print Win32::FormatMessage( Win32::GetLastError() );
}
|