Adapted to NET-SNMP version: 5.2.3

This commit is contained in:
hjp 2006-10-19 14:19:02 +00:00
parent 32199d9d7c
commit 382b39f4be
1 changed files with 9 additions and 4 deletions

View File

@ -1,6 +1,6 @@
#!/usr/bin/perl -w #!/usr/bin/perl -w
# #
# $Id: mac-port,v 1.1 2001-04-11 14:31:29 hjp Exp $ # $Id: mac-port,v 1.2 2006-10-19 14:19:02 hjp Exp $
# #
# find the port of a baystack 350 T switch to which a given # find the port of a baystack 350 T switch to which a given
# mac address is connected. # mac address is connected.
@ -21,11 +21,16 @@ my $switch = $ARGV[0];
my @dmac = map { hex } @hmac; my @dmac = map { hex } @hmac;
my $object = "17.4.3.1.2." . join(".", @dmac); my $object = "SNMPv2-SMI::mib-2.17.4.3.1.2." . join(".", @dmac);
system("snmpget", $switch, "public", $object); # snmpget -v 1 -c public 143.130.49.11 SNMPv2-SMI::mib-2.17.4.3.1.2.0.22.212.55.173.185
system("snmpget", "-v", "1", "-c", "public", $switch, $object);
# $Log: mac-port,v $ # $Log: mac-port,v $
# Revision 1.1 2001-04-11 14:31:29 hjp # Revision 1.2 2006-10-19 14:19:02 hjp
# Adapted to NET-SNMP version: 5.2.3
#
# Revision 1.1 2001/04/11 14:31:29 hjp
# mac-port: convert mac address to switch port using snmp. # mac-port: convert mac address to switch port using snmp.
# #