Привет!

Написал простенькую пинговалку на PERL для Windows и Linux. Сканер можно скачать здесь.

Сканер позволяет автоматически пинговать адреса из файла "ip_list" и выводить их состояние на экран.

Внимание: Последняя версия сканера реализована с помощью модуля Net::Ping, что обеспечивает кроссплатформенность. Для определения статуса ip-адреса используется протокол icmp, поэтому скрипт требует запуска с правами администратора.

Программа поддерживает параметры:

-v - Настройка вывода результатов работы. Возможные значения: only_up и only_down - показывать только активные и не активные адреса соответственно. По умолчанию отображаются все адреса.

-c - Путь до файла с адресами. По умолчанию программа берет данные из файла "ip_list", значения пути до файла можно задавать как относительным, так и абсолютным. Запуск с параметрами возможен как из консоли, так и по ярлыку.

-t - время таймаута, задается в секундах, по умолчанию 3с.

Пример: perl scanner.pl -v=only_up -c=D:\somefile -t=5