Wie führe ich einen Befehl auf einem entfernten Rechner per Perl aus?

Question

i alle notwendigen Module für die Ausführung von unten genannten Perl-Skript heruntergeladen haben: da der Zielcomputer aktiv Es konnte keine Verbindung hergestellt werden:

use Net::SSH::Perl; 

my $host = "172.16.170.116"; 
my $user = "HGamit"; 
my $password = ""; 

#-- set up a new connection 
my $ssh = Net::SSH::Perl->new($host); 
#-- authenticate 
$ssh->login($user, $pass); 
#-- execute the command 
my($stdout, $stderr, $exit) = $ssh->cmd("perl C:/Monitor/ltp.pl C:/monitor"); 

Aber der Fehler ist: Kann nicht an 172.16.170.116 anschließen, Port 22 lehnte es ab. an C: /Perl/site/lib/Net/SSH/Perl.pm Zeile 206. Dann versuchte ich Telnet, aber es funktioniert nicht.

use warnings; 
use Net::Telnet; 

$telnet = new Net::Telnet (Timeout=>2, Errmode=>'die'); 
$telnet->open('172.16.170.116'); 
$telnet->waitfor('/HGamit\s*/'); 
$telnet->print('admin'); 
$telnet->waitfor('/\s*/'); 
$telnet->print('Blue'); 

#$telnet->cmd('ver > C:\\log.txt'); 
$telnet->cmd('perl C:/Monitor/ltp.pl C:/monitor'); 

Kann jemand irgendeine Lösung zur Verfügung stellen, um dieses Problem zu lösen?

Answer 1

Sie können das Client-Server-Programm mit IO :: Socket schreiben. Sie können auch die Verschlüsselung und Benutzerauthentifizierung implementieren. Mit diesem Modell können Sie den Sendebefehl steuern und die Daten nach Abschluss der Ausführung an den Client zurücksenden. Sie können die Anzahl der auf dem Server auszuführenden Befehle begrenzen, indem Sie die vererbte PATH-Variable im Serverprogramm für zusätzliche Sicherheit ändern. Wenn Sie Hilfe mit dem Code benötigen. Ich kann meinen Code für Sie veröffentlichen.

Danke,

Sukhbir Dhillon

Addteq