Для сбора статистики с точки доступа DWL-2100AP
написал perl скрипт, который соединятся по ssh и выполняет заданную команду
Код:
#!/usr/bin/perl -w
use Net::SSH::Perl ();
$host = "192.168.0.50";
$login = "admin";
$password = "123";
$cmd = "get wlanstate";
$params{"protocol"}="1,2";
$params{"cipher"}="";
$params{"port"}=22;
$var = Net::SSH::Perl->new($host, %params);
$var->login($login,$password);
($out) = $var->cmd($cmd);
print "$out\n";
В результате perl не может залогиниться, апешка в логах пишет:
System --SSH login failure from 192.168.0.250
При том, что на машины с линуксом скрипт логинится и успешно возвращает результат, подозреваю, что на апешке что-то с шифрованием, однако присвоение переменной $params{"cipher"}=""; значений типа 3des-cbc, ни к чему не приводит.
Если кто-нибудь сталкивался с этой проблемой ранее, подскажите какой алгоритм необходимо использовать или как по другому можно перлом опрашивать апэшку по ssh.
Вход
Регистрация
FAQ
Поиск
