Mega Code Archive

 

Categories / Perl / Win32

 

Stopping services

#  $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() ); }