Adapted to NET-SNMP version: 5.2.3
This commit is contained in:
parent
32199d9d7c
commit
382b39f4be
|
@ -1,6 +1,6 @@
|
|||
#!/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
|
||||
# mac address is connected.
|
||||
|
@ -21,11 +21,16 @@ my $switch = $ARGV[0];
|
|||
|
||||
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 $
|
||||
# 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.
|
||||
#
|
||||
|
|
Loading…
Reference in New Issue