SNMP :: Bilgi SNMP ile ağ cihazlarına ve MIB'lere bir nesne yönelimli Perl arayüzü
Şimdi İndirin

SNMP :: Bilgi Sıralama ve Özet

SNMP :: Bilgi Etiketler

ağ Perl modülü perl aygıtlar Perl arayüzü ağ cihazları

SNMP :: Bilgi Açıklama

Ağ Aygıtlarına ve MIBS'ye SNMP üzerinden bir nesne yönelimli Perl arayüzü SNMP :: Bilgi, SNMP.Synopsis kullanarak ağ cihazlarına ve MIB'lere nesne yönelimli Perl arayüzüdür. SNMP :: Bilgi kullanın; $ Bilgilerim = Yeni SNMP :: Bilgi (# Otomatik Keşfedin Daha spesifik Cihaz Sınıfı AutoSpecify => 1, Debug => 1, # Gerisi SNMP :: Oturum Desthost => 'Router', Topluluk => 'Genel' için geçti , Sürüm => 2) veya "Cihaza bağlanılamıyor.n"; $ err = $ info-> hata (); Die "SNMP topluluğu veya versiyonu muhtemelen cihaza bağlanır. $ Errn" Varsa $ errn; $ İsim = $ info-> Name (); $ class = $ info-> sınıfı (); Yazdır "SNMP :: Bilgi bu cihaz sınıfını kullanıyor: $ Classn"; # Limanlar için $ dubleks durumunu bulun $ arayüzlerim = $ info-> arayüzleri (); $ i_duplex = $ info-> i_duplex (); # CDP komşu bilgilerini alın $ C_IF = $ info-> c_if (); $ c_ip = $ info-> c_ip (); $ c_port = $ info-> c_port (); # Liman başına verileri yazdırın Foreach $ iID (% $ arayüzlerim) {$ dubleks = $ i_duplex -> {$ iid}; # FİZİKSEL PORT ADI, SNMP IID'I DEĞİLDİR, $ PORT = $ arayüzlerim -> {$ iid}; "$ Port:" yazdırın; TANIMLI $ DUPLEKSİNDE BAZI "$ DUSPLEX DUSPLEX" yazdırın; # CDP tablosunun, arayüz tablolarından farklı tablo girişlerine sahiptir. # Bu yüzden haritayı CDP tablosundan arabirim tablosuna almak için C_IF kullanıyoruz. Benim% C_MAP =% $ C_IF; $ c_key = $ c_map {$ iid}; (tanımlanmış $ C_Key) olmadığı sürece {"nn" yazdırın; sonraki; } benim $ komşu_ip = $ c_ip -> {$ c_key}; $ commy_port = $ c_port -> {$ c_key}; $ Komşu_IP; "n" yazdırın; } Gereksinimler: · Perl

SNMP :: Bilgi İlgili Yazılım