Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl

...
my $session = new SNMP::Session(DestHost => $ARGV[0], Community =>$ARG
+V[1]);
my $numInts = $session->get('1.3.6.1.2.1.2.1.0');
print "Number of Interfaces: $numInts\n";
  2. or download this
    #!/usr/bin/perl

...
    print "$ip -> $mac\n"; 
};
($ip,$mac) = $session->getnext($vars);
  3. or download this
    
#!/usr/bin/perl
...
print "SNMP::Info determined this device to fall
       under subclass: $class\n";