init III
This commit is contained in:
28
Perl procurve konfig sichern/exp.sh
Normal file
28
Perl procurve konfig sichern/exp.sh
Normal file
@@ -0,0 +1,28 @@
|
||||
#!/usr/bin/expect
|
||||
|
||||
set USER [lindex $argv 0]
|
||||
set PASSWD [lindex $argv 1]
|
||||
set SSHHOST [lindex $argv 2]
|
||||
set TFTP [lindex $argv 3]
|
||||
set DATE [lindex $argv 4]
|
||||
|
||||
spawn ssh $SSHHOST -l $USER
|
||||
expect "password"
|
||||
send "$PASSWD\r"
|
||||
expect "continue"
|
||||
send "\r"
|
||||
expect "#"
|
||||
send "conf\r"
|
||||
expect "#"
|
||||
send "tftp client\r"
|
||||
expect "#"
|
||||
send "exit\r"
|
||||
expect "#"
|
||||
send "copy command-output \"show tech all\" tftp $TFTP $DATE/$SSHHOST/SH-TECH-ALL.txt\r"
|
||||
expect "#"
|
||||
send "logout\r"
|
||||
expect "log out";
|
||||
send "y\r";
|
||||
expect eof
|
||||
exit
|
||||
|
||||
20
Perl procurve konfig sichern/exp2.sh
Normal file
20
Perl procurve konfig sichern/exp2.sh
Normal file
@@ -0,0 +1,20 @@
|
||||
#!/usr/bin/expect
|
||||
|
||||
set USER [lindex $argv 0]
|
||||
set PASSWD [lindex $argv 1]
|
||||
set SSHHOST [lindex $argv 2]
|
||||
set TFTP [lindex $argv 3]
|
||||
set DATE [lindex $argv 4]
|
||||
|
||||
spawn ssh $SSHHOST -l $USER
|
||||
expect "password"
|
||||
send "$PASSWD\r"
|
||||
expect "continue"
|
||||
send "\r"
|
||||
expect "#"
|
||||
send "/cfg/ptcfg\r$TFTP\r$DATE/$SSHHOST/CONFIG.txt\r\r"
|
||||
expect "#"
|
||||
send "quit\r"
|
||||
expect eof
|
||||
exit
|
||||
|
||||
22
Perl procurve konfig sichern/exp3.sh
Normal file
22
Perl procurve konfig sichern/exp3.sh
Normal file
@@ -0,0 +1,22 @@
|
||||
#!/usr/bin/expect
|
||||
|
||||
set USER [lindex $argv 0]
|
||||
set PASSWD [lindex $argv 1]
|
||||
set SSHHOST [lindex $argv 2]
|
||||
set TFTP [lindex $argv 3]
|
||||
set DATE [lindex $argv 4]
|
||||
|
||||
spawn ssh $SSHHOST -l $USER
|
||||
expect "password"
|
||||
send "$PASSWD\r"
|
||||
expect "continue"
|
||||
send "\r"
|
||||
expect "#"
|
||||
send "copy command-output \"show tech\" tftp $TFTP $DATE/$SSHHOST/SH-TECH.txt\r"
|
||||
expect "#"
|
||||
send "logout\r"
|
||||
expect "log out";
|
||||
send "y\r";
|
||||
expect eof
|
||||
exit
|
||||
|
||||
82
Perl procurve konfig sichern/save.conf
Normal file
82
Perl procurve konfig sichern/save.conf
Normal file
@@ -0,0 +1,82 @@
|
||||
10.10.11.4,CLB,5400
|
||||
10.10.11.5,CLB,GBE2
|
||||
10.10.11.6,CLB,GBE2
|
||||
10.10.11.7,CLB,GBE2
|
||||
10.10.11.8,CLB,GBE2
|
||||
10.10.11.11,CLB,5400
|
||||
10.10.11.12,CLB,5400
|
||||
10.10.11.14,CLB,5300
|
||||
10.10.11.19,CLB,2500
|
||||
10.10.11.22,CLB,5400
|
||||
10.10.11.24,CLB,5300
|
||||
10.10.11.26,CLB,5300
|
||||
10.10.11.28,CLB,5400
|
||||
10.10.11.29,CLB,5300
|
||||
10.10.11.30,CLB,5400
|
||||
10.10.11.31,CLB,2600
|
||||
10.10.11.32,CLB,5400
|
||||
10.10.11.33,CLB,GBE2
|
||||
10.10.11.34,CLB,GBE2
|
||||
10.10.11.35,CLB,GBE2
|
||||
10.10.11.36,CLB,GBE2
|
||||
10.10.11.39,CLB,5400
|
||||
10.10.11.40,CLB,4000
|
||||
10.10.11.41,CLB,5400
|
||||
10.10.11.42,CLB,5400
|
||||
10.10.11.43,CLB,2600
|
||||
10.10.11.44,CLB,2600
|
||||
10.10.11.45,CLB,5400
|
||||
10.10.11.46,CLB,5400
|
||||
10.10.11.133,CLB,GBE2
|
||||
10.10.11.134,CLB,GBE2
|
||||
10.10.11.135,CLB,GBE2
|
||||
10.10.11.136,CLB,GBE2
|
||||
10.10.11.138,CLB,GBE2
|
||||
10.10.11.141,CLB,GBE2
|
||||
10.10.11.142,CLB,GBE2
|
||||
10.10.11.143,CLB,GBE2
|
||||
10.10.11.144,CLB,GBE2
|
||||
10.10.11.145,CLB,GBE2
|
||||
10.10.11.146,CLB,GBE2
|
||||
10.10.11.147,CLB,GBE2
|
||||
10.10.11.148,CLB,GBE2
|
||||
10.10.11.150,CLB,GBE2
|
||||
10.10.70.9,CLB,GBE2
|
||||
10.10.70.10,CLB,GBE2
|
||||
10.10.70.15,CLB,5400
|
||||
10.10.70.16,CLB,5400
|
||||
10.10.70.17,CLB,GBE2
|
||||
10.10.70.18,CLB,GBE2
|
||||
10.10.70.19,CLB,GBE2
|
||||
10.10.70.20,CLB,GBE2
|
||||
10.62.0.11,CLB,2500
|
||||
10.80.1.11,DEFAULT,5400
|
||||
10.80.1.12,DEFAULT,5400
|
||||
10.90.1.11,DEFAULT,2600
|
||||
10.90.1.12,DEFAULT,2600
|
||||
10.90.1.13,DEFAULT,2600
|
||||
170.11.1.12,170_11,4000
|
||||
170.11.1.13,170_11,4000
|
||||
170.11.1.14,170_11,4000
|
||||
170.11.1.16,170_11,4000
|
||||
170.11.1.23,170_11,5300
|
||||
170.11.1.24,170_11,4000
|
||||
170.11.1.26,170_11,5300
|
||||
170.21.1.4,DEFAULT,2500
|
||||
170.43.1.10,DEFAULT,4000
|
||||
170.50.1.12,B-NET,B2600
|
||||
170.50.1.13,B-NET,B5300
|
||||
170.50.1.14,B-NET,B5300
|
||||
170.50.1.15,B-NET,B2600
|
||||
170.50.1.16,B-NET,B2600
|
||||
170.50.1.17,B-NET,B2600
|
||||
170.50.1.18,B-NET,B5400
|
||||
170.50.1.19,B-NET,B5400
|
||||
170.60.1.11,LAN,5300
|
||||
170.60.1.12,LAN,5300
|
||||
170.60.1.21,LAN,GBE2
|
||||
170.60.1.22,LAN,GBE2
|
||||
170.60.2.11,LAN,5300
|
||||
170.60.2.12,LAN,5300
|
||||
10.82.123.102,OFFICE,C4000
|
||||
10.82.123.104,OFFICE,C4000
|
||||
82
Perl procurve konfig sichern/save.conf.backup
Normal file
82
Perl procurve konfig sichern/save.conf.backup
Normal file
@@ -0,0 +1,82 @@
|
||||
10.10.11.4,CLB,5400
|
||||
10.10.11.5,CLB,GBE2
|
||||
10.10.11.6,CLB,GBE2
|
||||
10.10.11.7,CLB,GBE2
|
||||
10.10.11.8,CLB,GBE2
|
||||
10.10.11.11,CLB,5400
|
||||
10.10.11.12,CLB,5400
|
||||
10.10.11.14,CLB,5300
|
||||
10.10.11.19,CLB,2500
|
||||
10.10.11.22,CLB,5400
|
||||
10.10.11.24,CLB,5300
|
||||
10.10.11.26,CLB,5300
|
||||
10.10.11.28,CLB,5400
|
||||
10.10.11.29,CLB,5300
|
||||
10.10.11.30,CLB,5400
|
||||
10.10.11.31,CLB,2600
|
||||
10.10.11.32,CLB,5400
|
||||
10.10.11.33,CLB,GBE2
|
||||
10.10.11.34,CLB,GBE2
|
||||
10.10.11.35,CLB,GBE2
|
||||
10.10.11.36,CLB,GBE2
|
||||
10.10.11.39,CLB,5400
|
||||
10.10.11.40,CLB,4000
|
||||
10.10.11.41,CLB,5400
|
||||
10.10.11.42,CLB,5400
|
||||
10.10.11.43,CLB,2600
|
||||
10.10.11.44,CLB,2600
|
||||
10.10.11.45,CLB,5400
|
||||
10.10.11.46,CLB,5400
|
||||
10.10.11.133,CLB,GBE2
|
||||
10.10.11.134,CLB,GBE2
|
||||
10.10.11.135,CLB,GBE2
|
||||
10.10.11.136,CLB,GBE2
|
||||
10.10.11.138,CLB,GBE2
|
||||
10.10.11.141,CLB,GBE2
|
||||
10.10.11.142,CLB,GBE2
|
||||
10.10.11.143,CLB,GBE2
|
||||
10.10.11.144,CLB,GBE2
|
||||
10.10.11.145,CLB,GBE2
|
||||
10.10.11.146,CLB,GBE2
|
||||
10.10.11.147,CLB,GBE2
|
||||
10.10.11.148,CLB,GBE2
|
||||
10.10.11.150,CLB,GBE2
|
||||
10.10.70.9,CLB,GBE2
|
||||
10.10.70.10,CLB,GBE2
|
||||
10.10.70.15,CLB,5400
|
||||
10.10.70.16,CLB,5400
|
||||
10.10.70.17,CLB,GBE2
|
||||
10.10.70.18,CLB,GBE2
|
||||
10.10.70.19,CLB,GBE2
|
||||
10.10.70.20,CLB,GBE2
|
||||
10.62.0.11,CLB,2500
|
||||
10.80.1.11,DEFAULT,5400
|
||||
10.80.1.12,DEFAULT,5400
|
||||
10.90.1.11,DEFAULT,2600
|
||||
10.90.1.12,DEFAULT,2600
|
||||
10.90.1.13,DEFAULT,2600
|
||||
170.11.1.12,170_11,4000
|
||||
170.11.1.13,170_11,4000
|
||||
170.11.1.14,170_11,4000
|
||||
170.11.1.16,170_11,4000
|
||||
170.11.1.23,170_11,5300
|
||||
170.11.1.24,170_11,4000
|
||||
170.11.1.26,170_11,5300
|
||||
170.21.1.4,DEFAULT,2500
|
||||
170.43.1.10,DEFAULT,4000
|
||||
170.50.1.12,B-NET,B2600
|
||||
170.50.1.13,B-NET,B5300
|
||||
170.50.1.14,B-NET,B5300
|
||||
170.50.1.15,B-NET,B2600
|
||||
170.50.1.16,B-NET,B2600
|
||||
170.50.1.17,B-NET,B2600
|
||||
170.50.1.18,B-NET,B5400
|
||||
170.50.1.19,B-NET,B5400
|
||||
170.60.1.11,LAN,5300
|
||||
170.60.1.12,LAN,5300
|
||||
170.60.1.21,LAN,GBE2
|
||||
170.60.1.22,LAN,GBE2
|
||||
170.60.2.11,LAN,5300
|
||||
170.60.2.12,LAN,5300
|
||||
10.82.123.102,OFFICE,C4000
|
||||
10.82.123.104,OFFICE,C4000
|
||||
79
Perl procurve konfig sichern/save.pl
Normal file
79
Perl procurve konfig sichern/save.pl
Normal file
@@ -0,0 +1,79 @@
|
||||
#!/usr/bin/perl
|
||||
|
||||
($ss,$mm,$hh,$dd,$mon,$yy,$we,$doy,$st)=localtime;
|
||||
$mon=$mon+1;
|
||||
if ($mon<10) { $mon="0" . $mon; }
|
||||
if ($dd <10) { $dd="0" . $dd; }
|
||||
if ($hh <10) { $hh="0" . $hh; }
|
||||
if ($mm <10) { $mm="0" . $mm; }
|
||||
if ($ss <10) { $ss="0" . $ss; }
|
||||
|
||||
$yy=$yy+1900;
|
||||
$date=$yy . "-" . $mon . "-" . $dd;
|
||||
|
||||
open CONF,"</home/monitoring/save.conf";
|
||||
#print "\n";
|
||||
|
||||
while (<CONF>) {
|
||||
chomp;
|
||||
$line=$_;
|
||||
$order1 = "";
|
||||
$order2 = "";
|
||||
$order3 = "";
|
||||
$order4 = "";
|
||||
$order5 = "";
|
||||
|
||||
if ($line =~ /[0-9]+\.[0-9]+\.[0-9]+\.[0-9]+/ ) {
|
||||
($ip,$def_vlan,$swtype) = split /,/,$line;
|
||||
|
||||
print "\nSichere Konfig von Switch $ip Default-VLAN: $def_vlan ";
|
||||
if ($swtype eq "4000") {
|
||||
$order1="(sleep 1; echo admin sleep 1; echo LTBBffD45; sleep 1; echo 54$def_vlan; sleep 1; echo put 10.10.12.36 CONFIG $date/$ip/CONFIG.txt PC; sleep 5; echo exit; sleep 1; echo 00y) | telnet $ip";
|
||||
$order2="(sleep 1; echo admin sleep 1; echo LTBBffD45; sleep 1; echo 54$def_vlan; sleep 1; echo put 10.10.12.36 CRASHREC $date/$ip/CRASHREC.txt PC; sleep 5; echo exit; sleep 1; echo 00y) | telnet $ip";
|
||||
$order3="(sleep 1; echo admin sleep 1; echo LTBBffD45; sleep 1; echo 54$def_vlan; sleep 1; echo put 10.10.12.36 CRASHDATA $date/$ip/CRASHDATA.txt PC; sleep 5; echo exit; sleep 1; echo 00y) | telnet $ip";
|
||||
$order4="(sleep 1; echo admin sleep 1; echo LTBBffD45; sleep 1; echo 54$def_vlan; sleep 1; echo put 10.10.12.36 EVENTLOG $date/$ip/EVENTLOG.txt PC; sleep 5; echo exit; sleep 1; echo 00y) | telnet $ip";
|
||||
$order5="(sleep 1; echo admin sleep 1; echo LTBBffD45; sleep 1; echo 54$def_vlan; sleep 1; echo put 10.10.12.36 BROWSE $date/$ip/BROWSE.txt PC; sleep 5; echo exit; sleep 1; echo 00y) | telnet $ip";
|
||||
}
|
||||
elsif ($swtype eq "5300") {
|
||||
`./exp.sh admin LTBBffD45 $ip 10.10.12.36 $date`;
|
||||
}
|
||||
elsif ($swtype eq "5400") {
|
||||
`./exp.sh admin LTBBffD45 $ip 10.10.12.36 $date`;
|
||||
}
|
||||
elsif ($swtype eq "2600") {
|
||||
`./exp.sh admin LTBBffD45 $ip 10.10.12.36 $date`;
|
||||
}
|
||||
elsif ($swtype eq "2500") {
|
||||
`./exp3.sh admin LTBBffD45 $ip 10.10.12.36 $date`;
|
||||
}
|
||||
elsif ($swtype eq "GBE2") {
|
||||
`./exp2.sh admin LTBBffD45 $ip 10.10.12.36 $date`;
|
||||
}
|
||||
elsif ($swtype eq "B2600") { # Boerse Muenchen HP 2600
|
||||
`./exp.sh admin "manbayb&" $ip 10.10.12.36 $date`;
|
||||
}
|
||||
elsif ($swtype eq "B5300") { # Boerse Muenchen HP 5300
|
||||
`./exp.sh admin "manbayb&" $ip 10.10.12.36 $date`;
|
||||
}
|
||||
elsif ($swtype eq "B5400") { # Boerse Muenchen HP 5400
|
||||
`./exp.sh admin "manbayb&" $ip 10.10.12.36 $date`;
|
||||
}
|
||||
elsif ($swtype eq "C4000") { # Chugai HP 4000
|
||||
$order1="(sleep 1; echo admin sleep 1; echo IaguhC; sleep 1; echo 54$def_vlan; sleep 1; echo put 10.10.12.36 CONFIG $date/$ip/CONFIG.txt PC; sleep 5; echo exit; sleep 1; echo 00y) | telnet $ip";
|
||||
$order2="(sleep 1; echo admin sleep 1; echo IaguhC; sleep 1; echo 54$def_vlan; sleep 1; echo put 10.10.12.36 CRASHREC $date/$ip/CRASHREC.txt PC; sleep 5; echo exit; sleep 1; echo 00y) | telnet $ip";
|
||||
$order3="(sleep 1; echo admin sleep 1; echo IaguhC; sleep 1; echo 54$def_vlan; sleep 1; echo put 10.10.12.36 CRASHDATA $date/$ip/CRASHDATA.txt PC; sleep 5; echo exit; sleep 1; echo 00y) | telnet $ip";
|
||||
$order4="(sleep 1; echo admin sleep 1; echo IaguhC; sleep 1; echo 54$def_vlan; sleep 1; echo put 10.10.12.36 EVENTLOG $date/$ip/EVENTLOG.txt PC; sleep 5; echo exit; sleep 1; echo 00y) | telnet $ip";
|
||||
$order5="(sleep 1; echo admin sleep 1; echo IaguhC; sleep 1; echo 54$def_vlan; sleep 1; echo put 10.10.12.36 BROWSE $date/$ip/BROWSE.txt PC; sleep 5; echo exit; sleep 1; echo 00y) | telnet $ip";
|
||||
}
|
||||
else {
|
||||
print "\nSwitchtype not supported!\n";
|
||||
}
|
||||
}
|
||||
`$order1`;
|
||||
`$order2`;
|
||||
`$order3`;
|
||||
`$order4`;
|
||||
`$order5`;
|
||||
|
||||
}
|
||||
close CONF;
|
||||
Reference in New Issue
Block a user