init III

Perl procurve konfig sichern/exp2.sh

@@ -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
+