Snmp :: info.

Eine objektorientierte Perl-Schnittstelle zu Netzwerkgeräten und MIBs durch SNMP
Jetzt downloaden

Snmp :: info. Ranking & Zusammenfassung

Anzeige

  • Rating:
  • Lizenz:
  • Perl Artistic License
  • Preis:
  • FREE
  • Name des Herausgebers:
  • Max Baker
  • Website des Verlags:
  • http://search.cpan.org/~emiller/SNMP-Info-1.04/Info.pm

Snmp :: info. Stichworte


Snmp :: info. Beschreibung

Eine objektorientierte Perl-Schnittstelle zu Netzwerkgeräten und MIBs durch SNMP SNMP :: Info ist eine objektorientierte Perl-Schnittstelle zu Netzwerkgeräten und MIBs über SNMP.Synopsis Verwenden Sie SNMP :: Info; Meine $ INFO = NEUE SNMP :: Info (# AUTO entdecken mehr Spezifische Geräteklasse AUTOPECFECY => 1, debug => 1, # Der Rest wird an SNMP: Session Desthost => 'Router', Community => 'Public' , Version => 2) oder Matrize "kann nicht mit Gerät hergestellt werden.n; MEIN $ ERR = $ INFO-> Fehler (); Die "SNMP-Communitys oder -version, die wahrscheinlich falsch mit dem Gerät verbunden ist. $ errn", wenn definiert $ err; $ Name = $ Info-> Name (); $ class = $ Info-> Klasse (); Drucken "SNMP :: Info verwendet diese Geräteklasse: $ classn"; # Finden Sie den Duplex-Status für die Ports Meine $ Interfaces = $ INFO-> Schnittstellen (). mein $ i_duplex = $ info-> i_duplex (); # Holen Sie sich CDP-Nachbarn, meine $ c_if = $ Info-> c_if (); meine $ c_ip = $ info-> c_ip (); mein $ c_port = $ info-> c_port (); # Daten ausdrucken pro Port Foreach My $ iid (Schlüssel% $ Schnittstellen) {My $ Duplex = $ i_duplex -> {$ iid}; # Physische Anschlussname ausdrucken, nicht SNMP-IID My $ -Port = $ Schnittstellen -> {$ iid}; drucken "$ port:"; Drucken Sie "$ Duplex Duplex", wenn er $ Duplex definiert ist; # Die CDP-Tabelle hat Tabelleneinträge anders als die Schnittstellentabellen. # So verwenden wir C_IF, um die Karte von CDP-Table in die Schnittstellentabelle zu erhalten. my% c_map = umgekehrt% $ c_if; mein $ c_key = $ c_map {$ iid}; es sei denn (definiert $ c_key) {drucken "nn"; nächste; } My $ nave_ip = $ c_ip -> {$ c_key}; mein $ nave_port = $ c_port -> {$ c_key}; drucken "Angeschlossen an $ navig_ip / $ nave_portn", falls definiert $ nave_ip; drucken "n"; } Anforderungen: · Perl.


Snmp :: info. Zugehörige Software