Opened by zottel335i at 2008-06-30 17:02
User since
2005-01-17
14811 Artikel
Admin1
![[Homepage]](/battie/theme/default/homepage.gif)
2005-01-17
14811 Artikel
Admin1
Hast du denn keinerlei Erfahrung mit Perl?
Beispiel für SSH auf einen einzigen Klienten: http://search.cpan.org/~bnegrao/Net-SSH-Expect-1.0...
Du packst das o. g. Beispiel von Net-SSH-Expect in eine Subroutine und passt es für dich an.
In einer übergeordneten Schleife liest du aus einer Datei Server-IP (oder Domainname), Loginname und Passwort aus oder du packst es in einen Hash.
Dann musst du die Subroutine für jeden Client aufrufen.
Grobes Gerüst (ohne Gewähr):
Beispiel für SSH auf einen einzigen Klienten: http://search.cpan.org/~bnegrao/Net-SSH-Expect-1.0...
Du packst das o. g. Beispiel von Net-SSH-Expect in eine Subroutine und passt es für dich an.
In einer übergeordneten Schleife liest du aus einer Datei Server-IP (oder Domainname), Loginname und Passwort aus oder du packst es in einen Hash.
Dann musst du die Subroutine für jeden Client aufrufen.
Grobes Gerüst (ohne Gewähr):
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
use strict;
use warnings;
use Net::SSH::Expect;
while (my $line = <>) {
my ($s, $u, $p) = @_;
print "Server $s hat ", myDF($s,$u,$p), "frei\n";
}
sub myDF {
my ($server, $user, $passw) = @_;
my $ssh = Net::SSH::Expect->new (
host => $server,
password=> $passw,
user => $user,
raw_pty => 1
);
my $login_output = $ssh->login();
my $df = $ssh->exec("df -h /");
return $df;
}