Snmp :: info. Un'interfaccia perl orientata all'oggetto per dispositivi di rete e MIBS tramite SNMP
Scarica ora

Snmp :: info. Classifica e riepilogo

Snmp :: info. Tag

Rete modulo Perl perl dispositivi interfaccia Perl dispositivi di rete

Snmp :: info. Descrizione

Un'interfaccia perl orientata all'oggetto a dispositivi di rete e MIBS tramite SNMP SNMP :: Info è un'interfaccia perl orientata agli oggetti per dispositivi di rete e MIBS tramite SNMP.Synopsis utilizzano SNMP :: informazioni; My $ INFO = NUOVO SNMP :: INFO (# AUTO Scopri più Classe dispositivo specifico Autospecify => 1, debug => 1, # Il resto è passato a SNMP :: sessione desthost => 'router', comunità => 'Pubblico' , Versione => 2) o morire "Impossibile connettersi al dispositivo.n"; My $ ERR = $ info-> Errore (); Die "SNMP Community o versione probabilmente errata connessa al dispositivo. $ Errn" se definito $ err; $ name = $ info-> nome (); $ class = $ info-> classe (); Stampa "SNMP :: Informazioni utilizza questa classe dispositivo: $ classn"; # Scopri lo stato duplex per le porte My $ Interfaces = $ info-> Interfacce (); My $ i_duplex = $ info-> i_duplex (); # Prendi le informazioni del vicino CDP My $ c_IF = $ info-> c_if (); My $ c_ip = $ info-> c_ip (); my $ c_port = $ info-> c_port (); # Stampa i dati per porto Foreach My $ IID (Keys% $ Interfaces) {My $ Duplex = $ I_Duplex -> {$ IID}; # Stampa il nome della porta fisica, non SNMP IID My $ PORT = $ Interfacce -> {$ IID}; Stampa "$ Port:"; Stampa "$ duplex duplex" se definito $ duplex; # La tabella CDP ha voci di tabella diverse dalle tabelle di interfaccia. # Quindi usiamo C_IF per ottenere la mappa dalla tabella CDP alla tabella dell'interfaccia. My% c_map = Reverse% $ c_IF; My $ c_key = $ c_map {$ iid}; A meno che (definito $ c_key) {stampa "nn"; prossimo; } My $ Neighbor_ip = $ c_ip -> {$ c_key}; My $ Neighbor_port = $ c_port -> {$ c_key}; Stampa "Collegato a $ vicine_ip / $ vicino_portn" se definito $ vicine_ip; Stampa "N"; } Requisiti: · Perl.

Snmp :: info. Software correlato