VPF::Простой мониторинг локальной сети

study

Дата 20.9.2004, 16:54 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 126
Регистрация: 20.9.2004

Репутация: нет
Всего: нет

Помогите написать простой скрипт мониторинга локально сети, необходимо по введённому IP определить работоспособность сети, и определить пропускную способность канала, если есть идеи буду благодарен.

Chuck

Дата 20.9.2004, 21:38 (ссылка)

(нет голосов)

Загрузка ...

Сушня

Профиль
Группа: Эксперт
Сообщений: 442
Регистрация: 12.12.2003
Где: Узбекистан, Ташке нт

Репутация: нет
Всего: 9

Поиграйся с ping
А результат обработай Перлом!

Мне тоже интерестно, так что пиши сюда результаты или в асю!

ida

Дата 21.9.2004, 13:33 (ссылка)

(нет голосов)

Загрузка ...

замужем

Профиль
Группа: Завсегдатай
Сообщений: 2277
Регистрация: 14.5.2002
Где: Санкт-Петербург

Репутация: нет
Всего: 58

или trace во все стороны (собссно, тот же ping) и по величине задержки определить, где затык

--------------------

Откровения бизнес-аналитика
Откровения бизнес-аналитика: второй сезон

kornholio

Дата 19.6.2009, 14:10 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 19.6.2009

Репутация: нет
Всего: нет

Кто нибудь все же реализовал этот скрипт, я не программирую на PERL, но такой скрипт очень нужен, а времени на изучения perl-а нет smile

Поделитесь текстом скрипта плизззз....

shutffl

Дата 20.6.2009, 09:08 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 171
Регистрация: 18.8.2008

Репутация: нет
Всего: 3

Ну, например, вот так:

Код


[shutffl@*** lanmon]$ cat lanmon.pl
#!/usr/bin/perl
#
# Copyright blimms (c) 2009
#
use strict;
use warnings;

my $clientIP = shift || "127.0.0.1";
my $deadLineMs = shift || 1;
my $traceCmd = "/usr/sbin/tracepath";
my $reportFileName = "./report";
my $toExec = "$traceCmd $clientIP > $reportFileName";

system($toExec);

open (REPORT, "$reportFileName") or die("Cannot read $reportFileName\n");
    while (<REPORT>)
    {
        my $line = $_;
        chomp($line);

        if (($line =~ /\).*([\d|\d\d|\d\d\d])\.\d\d\dms/) and ($1 >= $deadLineMs) )
        {
            print "Low at: $line\n"
        }
    }
close (REPORT);

print "\n$reportFileName is:\n";
system("cat $reportFileName");

В итоге будет вывод строк, где пинг больше $deadLineMs. То есть по дефолту - больше или равен 1. Кстати если поставить "0", то это равносильно "1".
Честно скажу - писал "на коленке", так что может где-то и лагать.. Тестировал на ya.ru.
Параметры запуска:
./lanmon.pl <ip> <max_ping>
или
./lanmon.pl,
но тогда считаться будет для 127.0.0.1.

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

--------------------

shadowmoon

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Общие вопросы \| Следующая тема »