Discussion :

[ciols]

Bonjour,

Je dois récupérer des informations sur plusieurs machines à distance. Pour ce faire, je dois me connecter sur chacune et lancer des commandes et scripts pour récupérer ces informations.

Lorsqu'il n'y a que des commandes, je sais comment faire, j'utilise une fonction du package net::OpenSSH $ssh->capture et je récupère le résultat de la commande que je balance dans un fichier.

Quand c'est pour des scripts intéractifs, j'utilise Net::SSH::Expect :

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
17
 
my $ssh = Net::SSH::Expect-> new (
        host => "x.x.x.x",
        password => "pass",
        user => "user",
        raw_pty => 1,
);
 
my $login_output=$ssh->login();
$ssh->send("su login");
$ssh->waitfor('password:',10) or die "prompt 'password' not found after 10 seconds";
$ssh->send($pass);
@output = $ssh->exec("route -n");
foreach (@output)
{
        print FILE "$_";
}

Use of uninitialized value in string at ./test_PCRF.pl line 243.

[EDIT] Connexion OK en SSH, mais pas su
Problème : Prompt recopié après chaque commande dans le fichier et erreur Use of uninitialized value in string toujours active
[/EDIT]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
@res = $ssh->exec("cat /etc/xxx/xxx.conf");
foreach (@res)
{
        print FILE "$_";
}

@res est uninitialized ?! Etrangement, j'ai fais exactement la même chose sur d'autres fichiers et ça marche. De plus, quand je le fais à la main, ça fonctionne.

résultat du fichier :

xx - bonding.conf

su: incorrect password
^[]0;login@machine:~^G[login@machine ~]$ alias .... bonding
alias .... bonding

xx - network

^[]0;login@machine:~^G[login@machine ~]$ NETWORKING=yes
HOSTNAME=machine
GATEWAY=@IP
NOZEROCONF=1
NETWORKING_IPV6=no

Merci !

[ciols]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
$ssh->send("su login");
$ssh->waitfor('password:',10) or die "prompt 'password' not found after 10 seconds";

J'ai un problème à ce niveau là (dixit au-dessus) :

prompt 'password' not found after 10 seconds

Alors que le login et mot de passe sont bons.

[dmganges]

Bonjour,

Désolé je ne peux pas faire l'essai, Net::OpenSSH ne tourne pas sous Windows et mes Perl-Linux ne sont pas à niveau
Et ne peux donc faire que Windows->Linux.
As-tu essayé :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

$ssh->send("/bin/su login");

...
Ou tout ce qui pourrait nuire en pb de $PATH...

En remote on n'a pas toujours $PATH initialisé...

[ciols]

Salut,

Je viens d'essayer à l'instant, sans succès

Entre-temps j'ai essayé autre chose. Je ne cherche plus à me connecter une 2ème fois mais d'utiliser sudo. Mais il fallait que je renseigne un tty car il est requis de base dans la config du sudoers et je ne peux pas passer l'argument -t comme je passe par OpenSSH...

Pour en revenir au problème actuel,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

$ssh->waitfor('Password:\s*',30) or warn "MARCHE PAS PASSWORD: $!";

est exactement la syntaxe que j'ai lorsque je le tape directement sur la remote machine. J'effectue le test en ROOT, j'ai effectué le test avec un autre compte mais sans succès non plus...

[dmganges]

Et qu'est-ce qui t'empêches de te connecter directement avec le bon login, puisque là ça fonctionne ?

[ciols]

J'ai besoin de récupérer le résultat de la commande route -n qui doit être exécutée soit en root (sur le compte root) soit avec sudo sur un autre compte.

Pour résumé c'est soit je me connecte à distance avec root pour exécuter cette commande soit je me connecte avec un autre compte mais je lance sudo route -n.
Dans les deux cas j'ai un problème que je n'arrive pas à régler à l'heure actuelle