OpenForum RSS: �� expe�t'��

�� expe�t'�� (niknik)

Tue, 06 May 2008 07:24:38 GMT

>�� . �� ?

set fd [open "file.txt" W+];

expect {
// �� connection closed
"*connection closed" { set txt $expect_out(buffer); puts $fd $txt; }
}

�� expect eof

��, $per1
>� "Connection closed".

�� expe�t'�� (��)

Tue, 06 May 2008 03:23:14 GMT

��
#!/usr/local/bin/expect
set name 1111
set pass 1111
set send_slow {1 0.001}
set per1 [lindex [split $argv { }] 0]
spawn telnet $per1
expect {
"User*" {send -s "$name\r"}
"*Connection timed out*" {close; exit}
"*Unable to connect to remote host*" {close; puts "Connection refused"; exit}
}
expect "*password*"
send -s "$pass\r"
expect ">"
send -s "enable\r"
expect "#"
send -s "idle 120\r"
expect "#"
send -s "config\r"
expect "(config)#"
send -s "save configuration\r"
expect "(config)#"
send -s "backup data tftp 192.168.1.1 $per1\r"
expect "(config)#"
send -s "quit\r"
expect "#"
send -s "quit\r"
expect ":"
send -s "y\r"
expect "Connection closed by foreign host."
close

�� expe�t'�� (��)

Tue, 06 May 2008 03:15:22 GMT

>>#!/usr/local/bin/expect
>>set send_slow {1 0.001}
>>set per1 [lindex [split $argv { }] 0]
>>spawn telnet $per1
>
>expect {
>"login: " { send " my_login"; }
>"password:" { send " my_password"; }
>timeout { abort }
>}

��. ��. �� , �� .
####
spawn telnet $per1
####
while {$x < 5} {
expect {
"Passwor*" {send -s "$pass\r"; puts "Pass";}
"Userna*" {send -s "$name\r"; puts "Name";}
"*Connection closed*" {close; puts "Connection closed"; exit}
}
set x [expr {$x + 1}]
}
�� . �� ? ��, $per1 � "Connection closed".

�� expe�t'�� (niknik)

Mon, 05 May 2008 07:14:24 GMT

>#!/usr/local/bin/expect
>set send_slow {1 0.001}
>set per1 [lindex [split $argv { }] 0]
>spawn telnet $per1

expect {
"login: " { send " my_login"; }
"password:" { send " my_password"; }
timeout { abort }
}

OpenForum RSS: �������� � expe�t'��

�������� � expe�t'�� (niknik)

�������� � expe�t'�� (�������)

�������� � expe�t'�� (�������)

�������� � expe�t'�� (niknik)

OpenForum RSS: �� expe�t'��

�� expe�t'�� (niknik)

�� expe�t'�� (��)

�� expe�t'�� (��)

�� expe�t'�� (niknik)