22 lines
405 B
Perl
22 lines
405 B
Perl
|
$status = Win32::Service::StartService($host, $service);
|
||
|
|
|
||
|
|
#!/usr/bin/perl -w
|
||
|
|
|
||
|
|
use Win32::Service;
|
||
|
|
|
||
|
|
$num_args = scalar( @ARGV );
|
||
|
|
|
||
|
|
$host = '';
|
||
|
|
|
||
|
|
$service = "yourServiceName";
|
||
|
|
|
||
|
|
$status = Win32::Service::StartService($host, $service);
|
||
|
|
|
||
|
|
if ($status) {
|
||
|
|
print "Started $service.\n";
|
||
|
|
} else {
|
||
|
|
print_error();
|
||
|
|
}
|
||
|
|
sub print_error {
|
||
|
|
print Win32::FormatMessage( Win32::GetLastError() );
|
||
|
|
}
|