Скрипт на Shell. Сканирование свитчей

[NastenOK2505]

помогите пожалуйста написать скрипт.
На shell, который из множества ip адресов будет отбирать и выводить на
экран все ip у которых свитч 3226 либо 3526 и сохранить
информацию в текстовый файл.
IP не хранятся в каком-либо файле, а просто работают свитчи и скрипт работая удалённо должен определить все айпи адреса свитчей типа 3226 и 3526 и сохранить их в отдельном текстовом файле

[Хостинг HostFood.ru]

Тарифы на хостинг в России, от 12 рублей: https://www.host-food.ru/tariffs/hosting/
Тарифы на виртуальные сервера (VPS/VDS/KVM) в РФ, от 189 руб.: https://www.host-food.ru/tariffs/virtualny-server-vps/
Выделенные сервера, Россия, Москва, от 2000 рублей (HP Proliant G5, Intel Xeon E5430 (2.66GHz, Quad-Core, 12Mb), 8Gb RAM, 2x300Gb SAS HDD, P400i, 512Mb, BBU):
https://www.host-food.ru/tariffs/vydelennyi-server-ds/
Недорогие домены в популярных зонах: https://www.host-food.ru/domains/

[Alex Keda]

а как ты их от прочих отделяешь?

[ev]

можно попробовать смотреть в веб-интерфейсе (index) или приглашение телнета
наверняка там модель пишется

[hizel]

велосипедостроение, snmp покроет все потребности

[Гость]

Может ты имел ввиду nmаp??? Я не имею представления как это реализовать с помощью snmp. Если знаешь как, поделись.

[hizel]

в цикле обработка ip ломимся на каждый по snmp спрашиваем например sysName
естественно должен быть список ip свичей
и sysName унифицированно

[Гость]

А как это будет выглядеть на shell? Я никогда и нчего не писал на нем, а вот сейчас пришлось и в короткие сроки!

[hizel]

я бы такое сли бы и писал то православном perl с модулем SNMP из состава net-snmp
в языке шелл-а я не силен, и когда приходится в нем разбираться - вызывает головную боль и ругань

[Гость]

Ок, напиши на пёрл я переведу в шелл.

[Гость]

пожалуйста!!!!!!!

[hizel]

Код: Выделить всё

#!/usr/bin/perl -w

use SNMP;
use strict;


exit(1) if(!exists($ARGV[0])) ;
open(IPS,"$ARGV[0]") or die 'cannot open ips file';

while(<IPS>){
        chomp;
        my $host = $_;
        my $s = new SNMP::Session(DestHost => $host, Community => 'public', Version => 2 );
        my $sys =  $s->get('sysDescr.0');
        print "$host is Dlink\n" if($sys =~ /.*dlink/);
}

close(IPS);

чтонибудь поддобное, здесь предполагается что в sysDescr присуствует dlink, и у всех одинаковый community
скрипту одним параметром файлик с ip для скана

допиливать по вкусу

[Гость]

Спасибо огромное!!!