Bonjour,
Je cherche actuellement à faire un programme Perl qui me permet de récupérer des informations sur un firewall, de les traiter et de les stocker dans une base MySQL. Pour récupérer ces informations, j'utilise une connexion SSH, j'ai donc installé le module Perl Net::SSH:: Perl et ses dépendances pas sans difficulté ! J'ai fait des tests sur un serveur en utilisant le code suivant
Pas de problème cela marche très bien sur le serveur test, maintenant je veux le tester sur le firewall et la, surprise, sa ne marche pas !
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16 #!/usr/bin/perl -w use strict; use Net::SSH::Perl; print "==> Connexion SSH en cours ...\n"; my $host = "192.168.2.93"; my $username = "serveur"; my $password = "password"; my $ssh = Net::SSH::Perl->new($host); print "==> Connexion effectuée, Identification en cours ...\n"; $ssh->login($username, $password) my($stdout, $stderr, $exit) = $ssh->cmd('ifconfig'); print $stdout; exit;
J'aimerais savoir comment, en utilisant le module SSH de Perl, je peut me connecter en SSH avec un cryptage DSA et une demande de passphrase?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 ==> Connexion effectuée, Identification en cours ... Permission denied at p3 line 11
avez-vous des exemples de code des explications claire de la doc Net::SSH:: Perl de CPAN?
PS : Je ne peut pas changer la configuration du firewall, donc impossible de modifier la connexion SSH pour me connecter sans la passphrase
Merci d'avance !
Partager