Select Code to Download

1  #!/usr/bin/perl -w
2
3  use strict;
...
27 print "$live active port(s)\n";
28 print "$down inactive port(s)\n";
29 print "$shut disabled port(s)\n";

interfaces.ifTable.ifEntry.ifAdminStatus.1 = up(1)
interfaces.ifTable.ifEntry.ifAdminStatus.2 = up(1)
interfaces.ifTable.ifEntry.ifAdminStatus.3 = up(1)
...
interfaces.ifTable.ifEntry.ifDescr.3 = FastEthernet0/2
interfaces.ifTable.ifEntry.ifDescr.4 = FastEthernet0/3
interfaces.ifTable.ifEntry.ifDescr.5 = FastEthernet0/4