Net::ssh::perl authentifizierungs-problem - #103423 (Netzwerkprogrammierung und Netzwerke mit Perl)

crest

2007-12-04 11:02

User since
2007-12-04
5 Artikel
BenutzerIn
[default_avatar]

Hallo,

ich möchte mich gerne bei einem pc im netzwerk einloggen und verschiedene cmds ausführen. Komischerweise, werde ich allerdings bei jedem cmd nach einem passwort gefragt, obwohl ich das ja ganz am anfang mitgegeben habe.

So sieht mein code bisher aus:

Code (perl): (dl )

#!/usr/bin/perl
use Net::SSH::Perl;

my $host = "hostname";
my $pass = "passwort";
my $user = "benutzername";
my $ssh = Net::SSH::Perl->new($host);
$ssh->login($user, $pass);

# test-command
($out, $err, $exit) = $ssh->cmd("ls -l");
print ("$out");
print ("$err");
print ("$exit");

Eigentlich sollte das aber doch auch ohne die interaktive passwortabfrage funktionieren, oder?

PS: Wenn ich versuche das ssh-protocol 2 zu benutzen, bei dem man ja mehrere commands in einer connection ausführen kann, dann bekomme ich eine fehlermeldung. Allerdings weiß ich auch nicht, wo da das problem liegt.

Denn mit ssh 2 müsste man ja nur einmal am anfang user+pass beim login mitgeben und könnte dann beliebig viele commands ausführen, ohne nach dem PW gefragt zu werden.

Fehlercode

Quote
Tk::Error: Permission denied at script_v_0-3.pl line 330
Math::BigInt::BEGIN at (eval 15) line 1
Math::BigInt::BEGIN at (eval 16) line 1
Math::BigInt::BEGIN at (eval 17) line 1
Math::BigInt::BEGIN at (eval 34) line 1
Math::BigInt::BEGIN at (eval 35) line 1
Math::BigInt::BEGIN at (eval 37) line 1
Math::BigInt::BEGIN at (eval 38) line 1
Math::BigInt::BEGIN at (eval 40) line 1
Math::BigInt::BEGIN at (eval 41) line 1
Carp::croak at /usr/lib/perl5/5.8.8/Carp.pm line 269
Net::SSH::Perl::fatal_disconnect at /usr/lib/perl5/site_perl/5.8.8/Net/SSH/Perl.pm line 258
Net::SSH::Perl::SSH2::login at /usr/lib/perl5/site_perl/5.8.8/Net/SSH/Perl/SSH2.pm line 66
main::test at script_v_0-3.pl line 330
Tk callback for .frame.button4
Tk::__ANON__ at /usr/lib/perl5/vendor_perl/5.8.8/x86_64-linux-thread-multi/Tk.pm line 247
Tk::Button::butUp at /usr/lib/perl5/vendor_perl/5.8.8/x86_64-linux-thread-multi/Tk/Button.pm line 111
<ButtonRelease-1>
(command bound to event)