#!/usr/bin/perl 
use strict; 
use warnings; 
use Getopt::Long; 
use SnmpTable; 
use Net::MAC; 
use Net::SNMP; 
use Net::SNMP::Interfaces; 
 
my $ifname; 
my $hostname; 
my $community; 
my $version = 1; 
 
GetOptions( "ifname=s"      => \$ifname, 
            "host=s"        => \$hostname, 
            "community=s"   => \$community, 
            "protocol:s"    => \$version); 
 
my $interfaces = Net::SNMP::Interfaces->new(Hostname => $hostname, Community => $community); 
my $inter = $interfaces->interface($ifname); 
 
#On récupere l'identifiant de l'interface $ifname 
my $ifindex = $inter->index(); 
#Vitesse 
my $vitesse = $inter->ifHighSpeed(); 
#Alias 
my $ifalias = $inter->ifAlias(); 
 
 
#Recherche des VLANs 
my $numeroportbridge; 
my $vlan_trouve; 
 
my $oid_cisco_vlans = "1.3.6.1.4.1.9.9.46.1.3.1.1.2.1"; 
my $vlans = SnmpTable->new($hostname, $oid_cisco_vlans, $community); 
$vlans->connexion(); 
my %vl = $vlans->requete(); 
my @tab = keys(%vl); 
 
foreach my $i (@tab) { 
    if ($i<1000) { 
        my $comvlan = $community."@".$i; 
        print $comvlan."\n"; 
    } 
} 
printf "Nom de l'interface : %s --> ifindex = %s, Vitesse = %s, Alias = %s\n", $ifname, $ifindex, $vitesse, $ifalias;