#!/usr/bin/expect
#
set force_conservative 0
if {$force_conservative} {
        set send_slow {1 .1}
        proc send {ignore arg} {
                sleep .1
                exp_send -s -- $arg
        }
}
set timeout -1
set ip [lrange $argv 0 0]
match_max 100000
sleep .1
# коннектимся к узлу
spawn telnet $ip\n
expect "UserName:"
###################################################################
# Посылаем имя пользователя и ждем запроса пароля.
send "root\r"
expect "PassWord:"
####################################################################
# Посылаем пароль и ждем приглашения ввода командного интерпретатора.
send "pass\r"
expect "#"
#####################################################################
# вводим комманды список команд указывать в файле ./commands.txt.
set ufile [open "./commands.txt" r]
foreach uline [split [read $ufile] "\n"] {
set lin [lindex $uline]
send $lin\n
expect "#"
}
close $ufile
# Запоминаем результат в переменной. Он может быть отображён, или записан на диск.
puts stdout "Работа с коммутатором  $ip  завершена успешно!.\r"
# Завершаем сессию telnet, и ждем символа конца строки (eof).
send "logout\r"
expect eof

expect "UserName:"

expect "PassWord:"

expect "#"