Login
HP ProCurve 2626 - telnet - blöde Sau
168 просмотров
Перейти к просмотру всей ветки
anatoli888 старожил
Zuletzt geändert 13.11.09 00:31 (anatoli888)
Нужен скрипт который будет выключать порт. Скрипт то в принципе у меня есть но нифига не работает. Моя проблема в том что не могу передать пароль. При старте сессии появляется Log-in screen. У меня сложилось такое мнение что в нем то вся и проблема.
Как это прально сделать?
Как это прально сделать?
В ответ на:
#!/usr/bin/perl
use Net::Telnet ();
my $session = new Net::Telnet(
Telnetmode => 0,
Errmode => 'return',
Timeout => 20,
Dump_log => '/tmp/telnet-dump.log',
Input_log => '/tmp/telnet-input.log'
);
$session->open("10.200.0.10");
$session->waitfor(Match=>'/Password: .*$/i',Timeout=>10) or die $session->errmsg;
$session->put('\n') or die $session->errmsg;
$session->waitfor(Match=>'/DMZ-Switch-RZ2> /i') or die $session->errmsg;
$session->put('show version') or die $session->errmsg;
#!/usr/bin/perl
use Net::Telnet ();
my $session = new Net::Telnet(
Telnetmode => 0,
Errmode => 'return',
Timeout => 20,
Dump_log => '/tmp/telnet-dump.log',
Input_log => '/tmp/telnet-input.log'
);
$session->open("10.200.0.10");
$session->waitfor(Match=>'/Password: .*$/i',Timeout=>10) or die $session->errmsg;
$session->put('\n') or die $session->errmsg;
$session->waitfor(Match=>'/DMZ-Switch-RZ2> /i') or die $session->errmsg;
$session->put('show version') or die $session->errmsg;