Установка AP manager (by Acowa) в wine. Глюки с виндовой библиотекой.

[Denis63]

Решил написать сюда, так как возможно кто то юзает этот менеджер для 2100 бб в Linuxе. Итак, установка данного манагера стопорится на библиотеке ntgraph+.ocx. Пишет "ошибка, не могу зарегистрировать библиотеку" - в чем может быть проблема? Описание данной библиотеки не нашел ,есть лишь ntgraph.ocx. М.б. проблема как раз в символе "+"? Однако под виндой, а у многих и под Linux данный манагер пашет вполне удачно... Куда копать?
Пользователь решил продолжить мысль 18 Июня 2010, 09:57:57:Кто-нибудь, помогите советом, или направьте в нужную ветку, где помогут!

[net]

Зарегистрировался на форуме дабы ответить на твой вопрос!
Значит у меня такая же проблема решил я ее очень просто! Вот ссылка на файл (http://yandex.ru/yandsearch?text=oleaut32.dll&lr=213) или (http://www.dll.ru/dll/12567.html#) файл скачай его и распакуй! далее обзор диска C:/  далее windows потом папка system32 туда и копируй этот файл правда он там уже есть но все равно! мне помогло и ap managar заработал! УДАЧИ

[Nesmit]

взял из венды oleaut32.dll и mfc42.dll
жапустилось 

[Denis63]

Короче, после доолгого перерыва я решил продолжить опыты. Сейчас стоит 11.04, пакет Wine 1.2.2. Для работы с Глинком-2100 решил поставить этот менеджер (АРМ). Опять был глюк - нет библиотеки Ntgraph+.ocx. Взял его из винды, где уже установлен менеджер АРМ. Теперь запускается менеджер, но при этом возникает ошибка управления - Run-time error 372: Failed to load control 'ARFormExtender' from ARFrmExt.ocx. Your version of ARMrfExt.ocx may be outdated ну и далее бла-бла-бла.
Прочитал на сайте мелкомягких, что такое м.б. если имя в системе и имя, от которого установлено приложение - не совпадают и советуют устанавливать приложение "для всех пользователей". Но что делать - этот АРМ менеджер при установке не предлагает такой опции! Я что, обречен? 

[Nesmit]

Тож долго мучался, потом понял что телнетом быстрее и удобнее.
Странно что никто не переписал эту программу, жаль конечно что она вот вот устареет.

[Denis63]

Да, забыл добавить, что АР менеджер то запускается, но при этом в окне отсутствуют заголовки, оно не интерактивно и т.п., в общем - бесполезно. Думаю, что тут что то надо наколдовать с библиотеками, которые я из винды в wine перенес, но вот что???
И, да, по поводу телнета - кому то удобнее, но я без гуевого интерфейса почти полносттью беспомощен, как слепой котенок (((

[Nesmit]

По началу так же было. потом оказалось нафик не нужно. Однако в акове удобный мониторинг.
я тут на qt накидал форму аковы, но ума не хватает разобраться как посылать команды на порт и читать результат Опыт только в дельфе.

[Nesmit]

Я тут наваял скриптец к мунину. Рисует график скорости и RSSI.  Нужно кому?

[k790]

Я тут наваял скриптец к мунину. Рисует график скорости и RSSI.  Нужно кому?

Мне нужно

[Nesmit]

Устанавливаем munin
#apt-get install munin
Нужно будет до установить модуль Net::telnet::Cisco для перла:

#apt-get install libnet-telnet-cisco-perl
Далее преведены 4 скрипта:Первый вариант: все и сразу на одном графике:
 wifi_most_base

Второй вариант: все характеристики отдельно (в конце поста):wifi_most_base_errorwifi_most_base_RSSIwifi_most_base_Rate

Описываю первый вариант, как наиболее простой для освоения. Для базовой точки, для клиентской повторяем то же самое, но меняем _base_ на _client_ в названиях файлов.
1. Создаем фаил и вставляем туда тело скрипта, делаем под правами root:
#nano /etc/munin/plugins/wifi_most_base
2. Меняем в на свои параметры

my $TelnetUser = "admin";
my $TelnetPass = "password";
my $Host = "192.168.0.54";

3. Даем права запуска командой chmod
#chmod a+x /etc/munin/plugins/wifi_most_base
4. Рестартуем мунин# service munin-node restart

(Нажмите, чтобы показать/скрыть)

Код: [Выделить]

#!/usr/bin/perl
#
# Beware - some perl Net::Telnet::Cisco packages are broken and you may need
# to manually hack a 'g' out of a file if you get an error message!
# Nick Barnes 20090610
#
###############################################################################
use diagnostics;
use Net::Telnet::Cisco;
use strict;
use warnings;
##############################################################################
my $TelnetPort = "23";
my $TelnetUser = "admin";
my $TelnetPass = "password";

###############################################################################
## Determine Hostname
my $Host = "192.168.0.54";
#my $Host = undef;
#$0 =~ /mikrotikppp_(.+)*$/;
#unless ($Host = $1) {
#  exit 2;
#}

###############################################################################
## Initiate Telnet Session
my $MT = Net::Telnet::Cisco->new(Host    => $Host,
                                 Port    => $TelnetPort,
                                 Prompt  => '/[\>\#] $/',
                                 Timeout => 30);

###############################################################################
## Configuration
if ($ARGV[0] && $ARGV[0] eq "config") {
#  print "host_name Base_station\n";
  print "graph_args -l 0 --lower-limit -110 --upper-limit 110\n";
  print "graph_title Wireless Interface Quality Base Station\n";
  print "graph_vlabel Comms Quality\n";
  print "graph_category Wireless\n";
  print "graph_info This graph shows the wireless interface statistics\n";
  print "graph_order data_rate local_rssi remote_rssi nf\n";
  print "graph_scale no\n";
  print "data_rate.label RX Rate (Mbps)\n";
  print "local_rssi.label Local RSSI level (dBm)\n";
  print "remote_rssi.label Remote RSSI level (dBm)\n";
  print "nf.label Noise Floor (dBm)\n";

#  print "mikcpu.label CPU Usage Mikrotik\n";
#  print "mikcpu.draw AREA\n";

  exit;
}

###############################################################################
## Execution
if (!defined($MT->login($TelnetUser , $TelnetPass))) {
  die "Croaking: $MT->error";
} else {
# get station (RSSI)
  my @Output = $MT->cmd("get sta");
  my $data_rate = substr ($Output[8], 13, 3);
  my $local_rssi = substr ($Output[8], 35, 4);
  my $remote_rssi = substr ($Output[8], 63, 4);
# get nf
  @Output = $MT->cmd("get nf");
  my $nf = substr ($Output[0], 7, 4);

  ##### VALUE #####
  print ("data_rate.value " . $data_rate . "\n" );
  print ("local_rssi.value " . $local_rssi . "\n" );
  print ("remote_rssi.value" . $remote_rssi . "\n" );
  print ("nf.value " . $nf . "\n");

  exit;
}


Второй вариант.
Далее все по раздельности, так красивее и мне больше нравится. Убираем первый скрипт, если вы его создавали и выполняем 1-4 пункты для каждого из скриптов:
wifi_most_base_error

(Нажмите, чтобы показать/скрыть)

Код: [Выделить]

#!/usr/bin/perl
#
# Beware - some perl Net::Telnet::Cisco packages are broken and you may need
# to manually hack a 'g' out of a file if you get an error message!
# Nick Barnes 20090610
#
###############################################################################
use diagnostics;
use Net::Telnet::Cisco;
use strict;
use warnings;
##############################################################################
my $TelnetPort = "23";
my $TelnetUser = "admin";
my $TelnetPass = "password";

###############################################################################
## Determine Hostname
my $Host = "192.168.0.54";

###############################################################################
## Initiate Telnet Session
my $MT = Net::Telnet::Cisco->new(Host    => $Host,
                                 Port    => $TelnetPort,
                                 Prompt  => '/[\>\#] $/',
                                 Timeout => 30);

###############################################################################
## Configuration
if ($ARGV[0] && $ARGV[0] eq "config") {
#  print "host_name Base_station\n";
  print "graph_args -l 0 -r --vertical-label percent --lower-limit 0 --upper-limit 100\n";
  print "graph_title Wireless Error on Base Station\n";
  print "graph_vlabel %\n";
  print "graph_category Wireless\n";
  print "graph_info This graph shows the wireless interface statistics\n";
  print "graph_order error\n";
  print "graph_scale no\n";
  print "error.label Error (%)\n";

  exit;
}

###############################################################################
## Execution
if (!defined($MT->login($TelnetUser , $TelnetPass))) {
  die "Croaking: $MT->error";
} else {
# get station (RSSI)
  my @Output = $MT->cmd("get sta");
#  print (@Output );
  my $error  = substr ($Output[11], 52, 10);
  my $data   = substr ($Output[11], 14, 10);

  ##### VALUE #####
  my $pr = ($error/($data/100));
#  print ("error.value " . $error . "\n" );
#  print ("data.value " . $data . "\n" );
#  print ("pr.value " . $pr . "\n" );
  print ("error.value " . $pr . "\n" );
  exit;
}


wifi_most_base_RSSI
 

(Нажмите, чтобы показать/скрыть)

Код: [Выделить]

#!/usr/bin/perl
#
# Beware - some perl Net::Telnet::Cisco packages are broken and you may need
# to manually hack a 'g' out of a file if you get an error message!
# Nick Barnes 20090610
#
###############################################################################
use diagnostics;
use Net::Telnet::Cisco;
use strict;
use warnings;
##############################################################################
my $TelnetPort = "23";
my $TelnetUser = "admin";
my $TelnetPass = "password";

###############################################################################
## Determine Hostname
my $Host = "192.168.0.54";
#my $Host = undef;
#$0 =~ /mikrotikppp_(.+)*$/;
#unless ($Host = $1) {
#  exit 2;
#}

###############################################################################
## Initiate Telnet Session
my $MT = Net::Telnet::Cisco->new(Host    => $Host,
                                 Port    => $TelnetPort,
                                 Prompt  => '/[\>\#] $/',
                                 Timeout => 30);

###############################################################################
## Configuration
if ($ARGV[0] && $ARGV[0] eq "config") {
#  print "host_name Base_station\n";
  print "graph_args -l 0 --lower-limit -110 --upper-limit -60\n";
  print "graph_title Wireless Interface Quality Base Station (RSSI)\n";
  print "graph_vlabel (dBm)\n";
  print "graph_category Wireless\n";
  print "graph_info This graph shows the wireless interface statistics\n";
  print "graph_order local_rssi remote_rssi nf\n";
  print "graph_scale no\n";
  print "local_rssi.label Local RSSI level (dBm)\n";
  print "remote_rssi.label Remote RSSI level (dBm)\n";
  print "nf.label Noise Floor (dBm)\n";

  exit;
}

###############################################################################
## Execution
if (!defined($MT->login($TelnetUser , $TelnetPass))) {
  die "Croaking: $MT->error";
} else {
# get station (RSSI)
  my @Output = $MT->cmd("get sta");
  my $local_rssi = substr ($Output[8], 35, 4);
  my $remote_rssi = substr ($Output[8], 63, 4);
# get nf
  @Output = $MT->cmd("get nf");
  my $nf = substr ($Output[0], 7, 4);

  ##### VALUE #####
  print ("local_rssi.value " . $local_rssi . "\n" );
  print ("remote_rssi.value" . $remote_rssi . "\n" );
  print ("nf.value " . $nf . "\n");

  exit;
}


wifi_most_base_Rate

(Нажмите, чтобы показать/скрыть)

Код: [Выделить]

#!/usr/bin/perl
#
# Beware - some perl Net::Telnet::Cisco packages are broken and you may need
# to manually hack a 'g' out of a file if you get an error message!
# Nick Barnes 20090610
#
###############################################################################
use diagnostics;
use Net::Telnet::Cisco;
use strict;
use warnings;
##############################################################################
my $TelnetPort = "23";
my $TelnetUser = "admin";
my $TelnetPass = "password";

###############################################################################
## Determine Hostname
my $Host = "192.168.0.54";

###############################################################################
## Initiate Telnet Session
my $MT = Net::Telnet::Cisco->new(Host    => $Host,
                                 Port    => $TelnetPort,
                                 Prompt  => '/[\>\#] $/',
                                 Timeout => 30);

###############################################################################
## Configuration
if ($ARGV[0] && $ARGV[0] eq "config") {
#  print "host_name Base_station\n";
  print "graph_args -l 0 --lower-limit 0 --upper-limit 100\n";
  print "graph_title Wireless Rate on Base Station\n";
  print "graph_vlabel (Mbps)\n";
  print "graph_category Wireless\n";
  print "graph_info This graph shows the wireless interface statistics\n";
  print "graph_order data_rate\n";
  print "graph_scale no\n";
  print "data_rate.label RX Rate (Mbps)\n";

  exit;
}

###############################################################################
## Execution
if (!defined($MT->login($TelnetUser , $TelnetPass))) {
  die "Croaking: $MT->error";
} else {
# get station (RSSI)
  my @Output = $MT->cmd("get sta");
  my $data_rate = substr ($Output[8], 13, 3);

  ##### VALUE #####
  print ("data_rate.value " . $data_rate . "\n" );

  exit;
}
 

 

[k790]

Nesmit
А как это всё делать, подробнее можно?
А то я плохо знаю Linux на таком уровне.

[Nesmit]

так лучше?
оформление из-за глюкавого форума.

[k790]

так лучше?
оформление из-за глюкавого форума.

Чем базовая отличается от клиентской

[Nesmit]

ip,login,password

Вместо base можешь подписать что то свое, как обозночение точки.
И в теле скрипта есть строка типа:
  print "graph_title Wireless Interface Quality Base Station (RSSI)\n";это название графика