Thread Net::SSH2 Skript (9 answers)
Opened by cohama at 2011-10-20 11:12

cohama
 2011-10-24 13:24
#153490 #153490
User since
2011-08-16
102 Artikel
BenutzerIn

user image
Hallo zusammen,

vielen Dank für die Guideline. Es funktioniert jetzt.
Und so sieht das Skript jetzt aus. Eventuell gibt es noch Tipps um es zu bessern.

Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
#################################
#!/usr/bin/perl -w
use strict; # declare the info before use
#################################
# packages
################################
use Net::SSH2; # ssh modul
##############################
# parameter definition
##############################
my $host = '192.168.93.135'; # Labor Linux PC
my $luser = "foobar";
my $pw = "FoobarPW";

my $socket = Net::SSH2->new(); # ssh Socket
my $session; # Authentication
my $channel; #
my $resp; # Server Answer

##############################
# main programm
##############################
system("clear"); # Refresh the commands
$socket ->connect($host) or die("connect(): $!\n"); # establish the connection
print "Connection to Server established \n";
$socket->auth_password($luser,$pw);
if ($socket->auth_ok())
{
$channel =$socket->channel(); # shell command
print "Channel ready\n";
$channel->exec('uname -a'); # run command at ssh-Server
print "Command tranfert \n";
while ($channel->read($resp,1024)) { # get the Response
print $resp;
}
$channel->close();
$socket->disconnect();
}
else {
print STDERR "authentication failed\n";
}

View full thread Net::SSH2 Skript