bmallik has asked for the wisdom of the Perl Monks concerning the following question:
My aim is to start a win service in a remote windows box through perl.
Below is my code,which will print all the service status and will check for a for a perticular serviceSensrSvc) status and trying to start that service by useing "Win32::Service::StartService("", $serviceHash{$key});".
My script not able to start the service once it executes the code "Win32::Service::StartService("", $serviceHash{$key});". Please help me.
#!C:\Perl64\bin\perl.exe use Win32::Service; #set up a hash of known service states my %statcodeHash = ( '1' => 'stopped.', '2' => 'start pending.', '3' => 'stop pending.', '4' => 'running.', '5' => 'continue pending.', '6' => 'pause pending.', '7' => 'paused.' ); my %serviceHash; #go get 'em... Win32::Service::GetServices("", \%serviceHash); foreach $key(keys %serviceHash){ my %statusHash; Win32::Service::GetStatus("", $serviceHash{$key}, \%statusHash); if ($statusHash{"CurrentState"} =~ /[1-7]/){ print $serviceHash{"$key"} . " is currently " . $statcodeHash{ +$statusHash{"CurrentState"}} . "\n"; if (( $serviceHash{"$key"} =~ /SensrSvc/ ) && ($statcodeHash{$sta +tusHash{"CurrentState"}} =~/stopped/ )) { # Win32::Service::StartService("", $serviceHash{$key}); system `net start "SensrSvc" `; print "$serviceHash{$key} !!! \n" ; } } }
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: Win32::Service Module is not able start a service in windows
by Anonymous Monk on Feb 11, 2013 at 10:54 UTC | |
Re: Win32::Service Module is not able start a service in windows
by Anonymous Monk on Feb 11, 2013 at 13:08 UTC | |
by bmallik (Initiate) on Feb 11, 2013 at 13:31 UTC | |
by BrowserUk (Patriarch) on Feb 11, 2013 at 13:40 UTC | |
by Anonymous Monk on Mar 04, 2013 at 13:48 UTC | |
by BrowserUk (Patriarch) on Mar 04, 2013 at 13:59 UTC |
Back to
Seekers of Perl Wisdom