Beefy Boxes and Bandwidth Generously Provided by pair Networks
The stupid question is the question not asked

Re: Remotely Start/Stop Services

by perl514 (Pilgrim)
on Feb 02, 2013 at 01:28 UTC ( #1016631=note: print w/replies, xml ) Need Help??

in reply to Remotely Start/Stop Services



You can have your script read a text file that has the server names given one below the other. Then, your script would read each line of the text file, pick up the servername, do a ping or an nslookup and if thats successful, it would execute the command. To remotely execute the commands, try the Net::SSH2 Module or Net::SSH::Any module.

Net::SSH2 comes pre installed with Strawberry Perl or DWIM Perl. Net::SSH::Any you'll have to install and it will run on top of Net::SSH2. Hope this helps.

Perlpetually Indebted To PerlMonks

use Learning::Perl; use Beginning::Perl::Ovid; print "Awesome Books"; is a boon for Windows.

Replies are listed 'Best First'.
Re^2: Remotely Start/Stop Services
by dasgar (Curate) on Feb 02, 2013 at 05:54 UTC

    The modules that you suggested would work great if the remote systems were Linux. But it looks like the OP in a Windows only environment. Windows doesn't come with an SSH server. Although someone could install something like openSSH or Cygwin to get an SSH server running on Windows, I'm not entirely sure that the SSH environment in that case would have to utilities to control Windows services. I personally have never tried that so I guess I could be wrong about that.

    Anyways, IMHO I still think it will be much quicker and easier to use PsService or PsExec from the SysInternals suite.

      Hi dasgar,


      I have tried these modules on Windows and they work fine.

      If the OP wants to login to servers, he will have to have ssh installed on the Win Workstation from which he will be firing his queries. That is why I suggested the options.

      Perlpetually Indebted To PerlMonks

      use Learning::Perl; use Beginning::Perl::Ovid; print "Awesome Books"; is a boon for Windows.

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1016631]
[stevieb]: ahhh yes, it *is* a ref. I had forgotten that. I too have learned something. I quit too!!
[marioroy]: Is List::Util::XS a core Perl module?
[stevieb]: corelist List::Util::XS says "List::Util::XS was first released with perl v5.10.1"
[stevieb]: so yes, since v5.10.1 :)
[MidLifeXis]: According to [metaperl:// corelist], Perl 5.10.1
Lady_Aleena blurbles. One of her favorite modiles is now in "maintenance mode" in favor of a new fangled module.
[MidLifeXis]: D'oh. Slow out of the gate.
[marioroy]: Thanks stevieb, MidLifeXis.

How do I use this? | Other CB clients
Other Users?
Others chanting in the Monastery: (13)
As of 2017-05-24 17:51 GMT
Find Nodes?
    Voting Booth?