quidway

#!/usr/bin/expect
 
# initialize host, password, ...
 
if {[llength $argv] != 1} {
  puts "Вызов: config_switch_huawei <ip_address_switch>"
  exit 1
}
set hostname [lindex $argv 0]
set prompt "*$hostname*" 
set DATE [exec date "+%d%m%Y %X"]
package require Expect
 
spawn telnet $hostname
expect Username:
send admin\r
expect Password:
send ****\r
 
expect *
send "clock timezone moskow add 03:00:00\r"
expect *
send "system-view\r"
expect *
send "sysname $hostname\r"
expect $prompt
send "snmp-agent sys-info version v2c\r"
expect $prompt