Chinaunix首页 | 论坛 | 博客

guofs123的ChinaUnix博客

首页　| 　博文目录　| 　关于我

guofs123

  • 博客访问： 182377
  • 博文数量： 16
  • 博客积分： 170
  • 博客等级： 入伍新兵
  • 技术积分： 753
  • 用 户 组： 普通用户
  • 注册时间： 2012-04-11 10:57
文章分类

全部博文（16）

文章存档

2017年（3）

2016年（2）

2015年（3）

2014年（1）

2013年（2）

2012年（5）

我的朋友
最近访客
推荐博文
相关博文
cisco扩展命令view-nic:通过snmp对cisco交换机接口数据进行采集和分析.(原创)

分类： 网络与安全

2012-04-19 10:17:13

背景
 
    在日常维护cisco设备时,常用到"sh int counters"命令,但该命令不提供排序功能,不太方便.
    于是采用perl写了一个类似的脚本,可以帮忙对交换机接口状态一目了然,且支持排序.
 
接口参数
    该脚本主要是对如下参数进行采集和排序.

点击(此处)折叠或打开

  1. #sh int g1/0/1
  2. GigabitEthernet1/0/1 is up, line protocol is up (connected)
  3.         | | |
  4.         | | +--------------------------------------1.3.6.1.4.1.9.2.2.1.1.2
  5.         | +------------------------------------------------------------1.3.6.1.2.1.2.2.1.8
  6.         +---------------------------------------------------------------------------+--Index:1.3.6.1.2.1.2.2.1.1
  7.                                                                                     +--Type:1.3.6.1.2.1.2.2.1.3
  8.                                                                                     +--Name:1.3.6.1.2.1.2.2.1.2
  9.                                                                                     +--Name:1.3.6.1.2.1.31.1.1.1.1
  10.   Hardware is Gigabit Ethernet, address is ec30.91ca.3481 (bia ec30.91ca.3481)
  11.   Description: link-cisco4507r
  12.   MTU 1500 bytes, BW 1000000 Kbit, DLY 10 usec,
  13.      reliability 255/255, txload 6/255, rxload 2/255
  14.   Encapsulation ARPA, loopback not set
  15.   Keepalive not set
  16.   Full-duplex, 1000Mb/s, link type is auto, media type is 1000BaseSX SFP
  17.   input flow-control is off, output flow-control is unsupported
  18.   ARP type: ARPA, ARP Timeout 04:00:00
  19.   Last input 00:00:00, output 00:00:00, output hang never
  20.   Last clearing of "show interface" counters never
  21.   Input queue: 0/75/0/0 (size/max/drops/flushes); Total output drops: 1416375
  22.                                                                         |
  23.                                                                         +------------1.3.6.1.2.1.2.2.1.19
  24.                                                                                      或1.3.6.1.4.1.9.2.2.1.1.27
  25.   Queueing strategy: fifo
  26.   Output queue: 0/0 (size/max)
  27.   5 minute input rate 9130000 bits/sec, 3706 packets/sec
  28.                          | |
  29.                          | +-------------------------+-----5分钟平均值：1.3.6.1.4.1.9.2.2.1.1.7
  30.                          | +-----即时值（毫秒级）：1.3.6.1.4.1.9.2.2.1.1.3
  31.                          +-------------------------------------------5分钟平均值：1.3.6.1.4.1.9.2.2.1.1.6
  32.   5 minute output rate 25827000 bits/sec, 3713 packets/sec
  33.                          | |
  34.                          | +-------------------------+-----5分钟平均值：1.3.6.1.4.1.9.2.2.1.1.9
  35.                          | +-----即时值（毫秒级）：1.3.6.1.4.1.9.2.2.1.1.4
  36.                          +-------------------------------------------5分钟平均值：1.3.6.1.4.1.9.2.2.1.1.8
  37.      5588544812 packets input, 1594789568486 bytes, 0 no buffer
  38.          | |
  39.          | +---------------------------------1.3.6.1.2.1.31.1.1.1.6
  40.          +-----------------------------------------------------------单播+广播+组播，其中单播的OID是：1.3.6.1.2.1.2.2.1.11
  41.      Received 32813253 broadcasts (31962960 multicasts)
  42.                   | |
  43.                   | +------------------------------组播：1.3.6.1.2.1.31.1.1.1.8
  44.                   +--------------------------------------------------广播+组播，广播的OID是：1.3.6.1.2.1.31.1.1.1.9
  45.      23 runts, 0 giants, 0 throttles
  46.      23 input errors, 0 CRC, 0 frame, 0 overrun, 0 ignored
  47.       | |
  48.       | +--------------------------------------------1.3.6.1.4.1.9.2.2.1.1.12
  49.       +-------------------------------------------------------------1.3.6.1.2.1.2.2.1.14
  50.      0 watchdog, 31962960 multicast, 0 pause input
  51.      0 input packets with dribble condition detected
  52.      4979391462 packets output, 3499294634681 bytes, 0 underruns
  53.          | |
  54.          | +--------------------------------1.3.6.1.2.1.31.1.1.1.10
  55.          +----------------------------------------------------------单播+组播+广播
  56.                                                                     单播：1.3.6.1.2.1.31.1.1.1.11或1.3.6.1.2.1.2.2.1.17
  57.                                                                     组播：1.3.6.1.2.1.31.1.1.1.12
  58.                                                                     广播：1.3.6.1.2.1.31.1.1.1.13
  59.      0 output errors, 0 collisions, 1 interface resets
  60.      | | |
  61.      | | +-----------------------------1.3.6.1.4.1.9.2.2.1.1.17
  62.      | +-------------------------------------------1.3.6.1.4.1.9.2.2.1.1.25
  63.      +--------------------------------------------------------------1.3.6.1.2.1.2.2.1.20
  64.      0 babbles, 0 late collision, 0 deferred
  65.      0 lost carrier, 0 no carrier, 0 PAUSE output
  66.      0 output buffer failures, 0 output buffers swapped out


 

使用方式:


 

点击(此处)折叠或打开

  1. Usage: view-nic Remote-Option [OID-Option] [Sort-Option] [Other-Option]

  3. Note:只支持cisco设备，不支持串口

  5. Remote-Options:
  6.          -H <hostname> 交换机管理IP
  7.          -c <community> SNMP的Community字串，默认为public

  9. OID-Option
  10.         -m "InputRatepbm"=>"1.3.6.1.4.1.9.2.2.1.1.3" 每毫秒Input方面的包数量
  11.             "OutputRatepbm"=>"1.3.6.1.4.1.9.2.2.1.1.4" 每毫秒Output方面的包数量

  13.         -r "Input5minRatebps"=>"1.3.6.1.4.1.9.2.2.1.1.6" 每5分钟Input方面的字节数量
  14.              "Out5minRatebps"=>"1.3.6.1.4.1.9.2.2.1.1.8" 每5分钟Output方面的字节数量

  16.         -R "Input5minRatepbs"=>"1.3.6.1.4.1.9.2.2.1.1.7" 每5分钟Input方面的包数量
  17.              "Out5minRatepbs"=>"1.3.6.1.4.1.9.2.2.1.1.9" 每5分钟Output方面的包数量

  19.         -P "InputUcastPkts"=>"1.3.6.1.2.1.2.2.1.11" Input方向单播数量
  20.              "OutputUcastPkts"=>"1.3.6.1.2.1.31.1.1.1.11" Output方向单播数量

  22.         -M "InputMcastPkts"=>"1.3.6.1.2.1.31.1.1.1.8" Input方向组播数量
  23.              "OutputMcastPkts"=>"1.3.6.1.2.1.31.1.1.1.12" Output方向组播数量

  25.         -B "InputBcastPkts"=>"1.3.6.1.2.1.31.1.1.1.9" Input方向广播数量
  26.              "OutputBcastPkts"=>"1.3.6.1.2.1.31.1.1.1.13" Output方向广播数量

  28.         -b "InputBytes"=>"1.3.6.1.2.1.2.2.1.10" Input方向单播数量
  29.              "OutputBytes"=>"1.3.6.1.2.1.2.2.1.16" Output方向单播数量

  31.         -e "InputError"=>"1.3.6.1.2.1.2.2.1.14" Input方向错包数量
  32.              "OutputError"=>"1.3.6.1.2.1.2.2.1.20" Output方向错包数量

  34.         -C "InputCRC"=>"1.3.6.1.4.1.9.2.2.1.1.12" Input方向的CRC数量

  36.         -t "OutputResets"=>"1.3.6.1.4.1.9.2.2.1.1.17" Output方向的interface resets数量

  38.         -D "OutputDrop"=>"1.3.6.1.2.1.2.2.1.19" Output方向的丢包数量

  40.         -a All 选中上面所有参数

  42. Sort-Option
  43.          -s <char> Only OID-Option char,more detail as below.
  44.                                 
  45.                                 参数 排序档位
  46.                                 ---- -------------
  47.                                 mI InputRatepbm
  48.                                 mO OutputRatepbm
  49.                                 rI Input5minRatebps
  50.                                 rO Out5minRatebps
  51.                                 RI Input5minRatepbs
  52.                                 RO Out5minRatepbs
  53.                                 MI InputMcastPkts
  54.                                 MO OutputMcastPkts
  55.                                 BI InputBcastPkts
  56.                                 BO OutputBcastPkts
  57.                                 bI InputBytes
  58.                                 bO OutputBytes
  59.                                 eI InputError
  60.                                 eO OutputError
  61.                                 C InputCRC
  62.                                 t OutputResets
  63.                                 D OutputDrop

  65.          -S 0 or 1 0 递增,1 递减

  67. Other-Option
  68.          -h or -v Help script Usage

例:

[root@localhost ~]# view-nic -H 10.1.1.200 -c public -R -s RO
Index   Name    Input5minRatepbs        Out5minRatepbs
1       Vl1     0       0
3       Vl3     14      0
10101   Gi0/1   897     2
10008   Fa0/8   1       6
10023   Fa0/23  0       891
Index   Name    Input5minRatepbs        Out5minRatepbs

 


源代码


点击(此处)折叠或打开

  1. #!/usr/bin/perl
  2. # Version : 0.1
  3. # Date : 2012-04-18
  5. # Licence : GPL - http://www.fsf.org/licenses/gpl.txt

  7. use strict;
  8. use Net::SNMP qw{ :asn1 :snmp :translate };
  9. use Getopt::Std;

  11. my $script = GetScriptName($0);
  12. my $script_version = "0.1";


  15. my $ipaddress = "127.0.0.1";
  16. my $port = 161;
  17. my $version = "snmpv2c";
  18. my $community = "public";
  19. my $timeout = 2;
  20. my $status = 0;

  22. my @FieldName = ( #it's crucial option
  23.     "Name", #0
  24.     "InputRatepbm", #1
  25.     "OutputRatepbm", #2
  26.     "Input5minbps", #3
  27.     "Out5minbps", #4
  28.     "Input5minpbs", #5
  29.     "Out5minpbs", #6
  30.     "InputUcastPkts", #7
  31.     "OutputUcastPkts", #8
  32.     "InputMcastPkts", #9
  33.     "OutputMcastPkts", #10
  34.     "InputBcastPkts", #11
  35.     "OutputBcastPkts", #12
  36.     "InputBytes", #13
  37.     "OutputBytes", #14
  38.     "InputError", #15
  39.     "OutputError", #16
  40.     "InputCRC", #17
  41.     "OutputResets", #18
  42.     "OutputDrop", #19
  43.     "Outcollisions" #20
  44. );

  46. my %InterfaceOID_orgin = ( #it's crucial option view-Option sort-char
  47.      $FieldName[0] => "1.3.6.1.2.1.31.1.1.1.1", #0 "Name" n/a n/a
  48.      $FieldName[1] => "1.3.6.1.4.1.9.2.2.1.1.3", #1 "InputRatepbm" m or a mI
  49.      $FieldName[2] => "1.3.6.1.4.1.9.2.2.1.1.4", #2 "OutputRatepbm" m or a mO
  50.      $FieldName[3] => "1.3.6.1.4.1.9.2.2.1.1.6", #3 "Input5minRatebps" r or a rI
  51.      $FieldName[4] => "1.3.6.1.4.1.9.2.2.1.1.8", #4 "Out5minRatebps" r or a rO
  52.      $FieldName[5] => "1.3.6.1.4.1.9.2.2.1.1.7", #5 "Input5minRatepbs" R or a RI
  53.      $FieldName[6] => "1.3.6.1.4.1.9.2.2.1.1.9", #6 "Out5minRatepbs" R or a RO
  54.      $FieldName[7] => "1.3.6.1.2.1.2.2.1.11", #7 "InputUcastPkts" P or a PI
  55.      $FieldName[8] => "1.3.6.1.2.1.31.1.1.1.11", #8 "OutputUcastPkts" P or a PO
  56.      $FieldName[9] => "1.3.6.1.2.1.31.1.1.1.8", #9 "InputMcastPkts" M or a MI
  57.      $FieldName[10] => "1.3.6.1.2.1.31.1.1.1.12", #10 "OutputMcastPkts" M or a MO
  58.      $FieldName[11] => "1.3.6.1.2.1.31.1.1.1.9", #11 "InputBcastPkts" B or a BI
  59.      $FieldName[12] => "1.3.6.1.2.1.31.1.1.1.13", #12 "OutputBcastPkts" B or a BO
  60.      $FieldName[13] => "1.3.6.1.2.1.31.1.1.1.6", #13 "InputBytes" b or a bI
  61.      $FieldName[14] => "1.3.6.1.2.1.31.1.1.1.10", #14 "OutputBytes" b or a bO
  62.      $FieldName[15] => "1.3.6.1.2.1.2.2.1.14", #15 "InputError" e or a eI
  63.      $FieldName[16] => "1.3.6.1.2.1.2.2.1.20", #16 "OutputError" e or a eO
  64.      $FieldName[17] => "1.3.6.1.4.1.9.2.2.1.1.12", #17 "InputCRC" C or a C
  65.      $FieldName[18] => "1.3.6.1.4.1.9.2.2.1.1.17", #18 "OutputResets" t or a t
  66.      $FieldName[19] => "1.3.6.1.2.1.2.2.1.19", #19 "OutputDrop" D or a D
  67.      $FieldName[20] => "1.3.6.1.4.1.9.2.2.1.1.25" #20 "Outcollisions" o or a o
  68. );


  71. my %InterfaceOID; #it's crucial option.


  74. my $SortTable="n"; #defulte sort table is "Name",it's member of @SortName. it's crucial option.
  75. my $SortType=0; #0 increase,1 decrease ,it's crucial option.
  76. my %SortName; #only n,m,r,R,P,M,B,b,e,C,t,D. it's crucial option.
  77. #my %SortName = (
  78. #achars Sort-Field
  79. #---- -------------
  80. #"mI"=>$FieldName[1], #InputRatepbm
  81. #"mO"=>$FieldName[2], #OutputRatepbm
  82. #"rI"=>$FieldName[3], #Input5minRatebps
  83. #"rO"=>$FieldName[4], #Out5minRatebps
  84. #"RI"=>$FieldName[5], #Input5minRatepbs
  85. #"RO"=>$FieldName[6], #Out5minRatepbs,
  86. #"PI"=>$FieldName[7] #"InputUcastPkts",
  87. #"PO"=>$FieldName[8] #"OutputUcastPkts",
  88. #"MI"=>$FieldName[9], #"InputMcastPkts",
  89. #"MO"=>$FieldName[10], #"OutputMcastPkts",
  90. #"BI"=>$FieldName[11], #"InputBcastPkts",
  91. #"BO"=>$FieldName[12], #"OutputBcastPkts",
  92. #"bI"=>$FieldName[13], #"InputBytes",
  93. #"bO"=>$FieldName[14], #"OutputBytes",
  94. #"eI"=>$FieldName[15], #"InputError",
  95. #"eO"=>$FieldName[16], #"OutputError",
  96. #"C"=>$FieldName[17], #"InputCRC",
  97. #"t"=>$FieldName[18], #"OutputResets",
  98. #"D"=>$FieldName[19], #"OutputDrop",
  99. #"o"=>$FieldName[20] #"Outcollisions"
  100. #);



  104. #my $InterfaceObj = { #OID List , it's crucial option.
  105. # "Name"=>"Fa1/0/1", #1.3.6.1.2.1.31.1.1.1.1
  106. # "InputRatepbm"=>"234", #1.3.6.1.4.1.9.2.2.1.1.3
  107. # "Input5minRatebps"=>"123", #1.3.6.1.4.1.9.2.2.1.1.6
  108. # "Input5minRatepbs"=>"324", #1.3.6.1.4.1.9.2.2.1.1.7
  109. # "InputUcastPkts"=>"1", #1.3.6.1.2.1.2.2.1.11
  110. # "InputMcastPkts"=>"1", #1.3.6.1.2.1.31.1.1.1.8
  111. # "InputBcastPkts"=>"1", #1.3.6.1.2.1.31.1.1.1.9
  112. # "InputBytes"=>"1", #1.3.6.1.2.1.2.2.1.10
  113. # "InputError"=>"1", #1.3.6.1.2.1.2.2.1.14
  114. # "InputCRC"=>"1", #1.3.6.1.4.1.9.2.2.1.1.12
  115. # "OutputRatepbm"=>"234", #1.3.6.1.4.1.9.2.2.1.1.4
  116. # "Out5minRatebps"=>"123", #1.3.6.1.4.1.9.2.2.1.1.8
  117. # "Out5minRatepbs"=>"324", #1.3.6.1.4.1.9.2.2.1.1.9
  118. # "OutputUcastPkts"=>"1", #1.3.6.1.2.1.31.1.1.1.11
  119. # "OutputMcastPkts"=>"1", #1.3.6.1.2.1.31.1.1.1.12
  120. # "OutputBcastPkts"=>"1", #1.3.6.1.2.1.31.1.1.1.13
  121. # "OutputBytes"=>"1", #1.3.6.1.2.1.2.2.1.16
  122. # "OutputError"=>"1", #1.3.6.1.2.1.2.2.1.20
  123. # "OutputResets"=>"1", #1.3.6.1.4.1.9.2.2.1.1.17
  124. # "OutputDrop"=>"321" #1.3.6.1.2.1.2.2.1.19
  125. # "Outcollisions"=>"34" #1.3.6.1.4.1.9.2.2.1.1.25
  126. #};

  128. #my %tbNIC = (
  129. # "10101" => $InterfaceObj-1,
  130. # "10102" => $InterfaceObj-2,
  131. # "10103" => $InterfaceObj-3,
  132. # ...
  133. # "90101" => $InterfaceObj-x
  134. #)



  138. if (@ARGV < 1) {
  139.      print "Too few arguments\n";
  140.      usage();
  141. }


  144. #######################################################################################
  145. #get script option
  146. #######################################################################################
  147. my %opt=();
  148. getopts("hvH:c:mrRPMBbeCtDs:S:aod",\%opt);

  150. if($opt{h} || $opt{v})
  151. {
  152.     usage();
  153.     exit(0);
  154. }

  156. $ipaddress = $opt{H} if defined $opt{H} ;
  157. $community = $opt{c} if defined $opt{c} ;

  159. $InterfaceOID{$FieldName[0]} = $InterfaceOID_orgin{$FieldName[0]};
  160. if ((defined $opt{m}) || (defined $opt{a}))
  161. {
  162.    $InterfaceOID{$FieldName[1]}=$InterfaceOID_orgin{$FieldName[1]};
  163.    $InterfaceOID{$FieldName[2]}=$InterfaceOID_orgin{$FieldName[2]};
  164.    $SortName{"mI"}=$FieldName[1];
  165.    $SortName{"mO"}=$FieldName[2];
  166. }
  167. if ((defined $opt{r}) || (defined $opt{a}))
  168. {
  169.    $InterfaceOID{$FieldName[3]}=$InterfaceOID_orgin{$FieldName[3]};
  170.    $InterfaceOID{$FieldName[4]}=$InterfaceOID_orgin{$FieldName[4]};
  171.    $SortName{"rI"}=$FieldName[3];
  172.    $SortName{"rO"}=$FieldName[4];
  173. }
  174. if ((defined $opt{R}) || (defined $opt{a}))
  175. {
  176.    $InterfaceOID{$FieldName[5]}=$InterfaceOID_orgin{$FieldName[5]};
  177.    $InterfaceOID{$FieldName[6]}=$InterfaceOID_orgin{$FieldName[6]};
  178.    $SortName{"RI"}=$FieldName[5];
  179.    $SortName{"RO"}=$FieldName[6];
  180. }
  181. if ((defined $opt{P}) || (defined $opt{a}))
  182. {
  183.    $InterfaceOID{$FieldName[7]}=$InterfaceOID_orgin{$FieldName[7]};
  184.    $InterfaceOID{$FieldName[8]}=$InterfaceOID_orgin{$FieldName[8]};
  185.    $SortName{"PI"}=$FieldName[7];
  186.    $SortName{"PO"}=$FieldName[8];
  187. }
  188. if ((defined $opt{M}) || (defined $opt{a}))
  189. {
  190.    $InterfaceOID{$FieldName[9]}=$InterfaceOID_orgin{$FieldName[9]};
  191.    $InterfaceOID{$FieldName[10]}=$InterfaceOID_orgin{$FieldName[10]};
  192.    $SortName{"MI"}=$FieldName[9];
  193.    $SortName{"MO"}=$FieldName[10];
  194. }
  195. if ((defined $opt{B}) || (defined $opt{a}))
  196. {
  197.    $InterfaceOID{$FieldName[11]}=$InterfaceOID_orgin{$FieldName[11]};
  198.    $InterfaceOID{$FieldName[12]}=$InterfaceOID_orgin{$FieldName[12]};
  199.    $SortName{"BI"}=$FieldName[11];
  200.    $SortName{"BO"}=$FieldName[12];
  201. }
  202. if ((defined $opt{b}) || (defined $opt{a}))
  203. {
  204.    $InterfaceOID{$FieldName[13]}=$InterfaceOID_orgin{$FieldName[13]};
  205.    $InterfaceOID{$FieldName[14]}=$InterfaceOID_orgin{$FieldName[14]};
  206.    $SortName{"bI"}=$FieldName[13];
  207.    $SortName{"bO"}=$FieldName[14];
  208. }
  209. if ((defined $opt{e}) || (defined $opt{a}))
  210. {
  211.    $InterfaceOID{$FieldName[15]}=$InterfaceOID_orgin{$FieldName[15]};
  212.    $InterfaceOID{$FieldName[16]}=$InterfaceOID_orgin{$FieldName[16]};
  213.    $SortName{"eI"}=$FieldName[15];
  214.    $SortName{"eO"}=$FieldName[16];
  215. }
  216. if ((defined $opt{C}) || (defined $opt{a}))
  217. {
  218.    $InterfaceOID{$FieldName[17]}=$InterfaceOID_orgin{$FieldName[17]};
  219.    $SortName{"C"}=$FieldName[17];
  220. }
  221. if ((defined $opt{t}) || (defined $opt{a}))
  222. {
  223.    $InterfaceOID{$FieldName[18]}=$InterfaceOID_orgin{$FieldName[18]};
  224.    $SortName{"t"}=$FieldName[18];
  225. }
  226. if ((defined $opt{D}) || (defined $opt{a}))
  227. {
  228.    $InterfaceOID{$FieldName[19]}=$InterfaceOID_orgin{$FieldName[19]};
  229.    $SortName{"D"}=$FieldName[19];
  230. }
  231. if ((defined $opt{o}) || (defined $opt{a}))
  232. {
  233.    $InterfaceOID{$FieldName[20]}=$InterfaceOID_orgin{$FieldName[20]};
  234.    $SortName{"o"}=$FieldName[20];
  235. }

  237. if (defined $opt{s})
  238. {
  239.    if (exists $SortName{$opt{s}})
  240.    {
  241.       $SortTable = $opt{s};
  242.    }
  243.    else
  244.    {
  245.       print "\n***********************Error*************************************\n\n";
  246.       my @aabb = keys(%SortName);
  247.       print "Options 's' valus is @aabb\n\n";
  248.       usage();
  249.       exit 0;
  250.    }
  251. }
  252. if (defined $opt{S})
  253. {
  254.    
  255.    if (($opt{S} eq "0") || ($opt{S} eq "1") )
  256.    {
  257.       $SortType = $opt{S};
  258.    }
  259.    else
  260.    {
  261.       print "\n***********************Error*************************************\n\n";
  262.       print "Options 'S' value is 0 or 1 only\n";
  263.       usage();
  264.       exit(0);
  265.    }
  266. }

  268. #if (defined $opt{d})
  269. #{
  270. # print this interface list what it'sline proctocol is down
  271. #}

  273. #test code
  274. #method:1
  275. my $index;
  276. my $value;
  277. while (($index,$value) = each(%InterfaceOID))
  278. {
  279.    print "$index : $value\n";
  280. }
  281. #Method 2
  282. #my @test = values(%InterfaceOID);
  283. #print "OID-List:@test\n";
  284. #
  285. #print "Option s value(SortTable):$SortTable\n";
  286. #print "Option S value(SortType):$SortType\n";
  287. #my @aabb = keys(%SortName);
  288. #printf "SortOption: @aabb\n";

  290. #-------------------------End-----------------------------------------

  292. # Create the SNMP session
  293. my ($session, $error) = Net::SNMP->session(
  294.      -community => $community,
  295.      -hostname => $ipaddress,
  296.      -port => $port,
  297.      -version => $version,
  298.      -timeout => $timeout
  299. );
  300. if (!defined $session)
  301. {
  302.     printf "ERROR: %s.\n", $error;
  303.     exit 1;
  304. }

  306. main();

  308. $session->close(); # Close the session
  309. exit 0; # exit this program

  311. ####################################################################
  312. ####################################################################
  313. # sub program #
  314. ####################################################################
  315. ####################################################################
  316. sub main()
  317. {

  319.     #######################################################################################
  320.     #get interface ifIndex
  321.     #######################################################################################

  323.     #step1: get ifIndex of all interface.
  324.     my $OID_ifTable = '1.3.6.1.2.1.2.2.1.1';
  325.     my $result = $session->get_table( -baseoid => $OID_ifTable );
  326.     if (!defined $result) {
  327.        printf "ERROR: %s\n", $session->error();
  328.        $session->close();
  329.        exit 1;
  330.     }
  331.     my @InterFaceIndex;
  332.     foreach ($session->var_bind_names())
  333.     {
  334.        if (oid_base_match($OID_ifTable,$_))
  335.        {
  336.           my $v=$session->var_bind_list()->{$_};
  337.           push @InterFaceIndex ,$v;
  338.        }
  339.     }
  340.     #print "@InterFaceIndex\n";

  342.     #step2:choice interface what this status up and ifType 6/53 and routeVLAN.
  343.     my $IfIndex;
  344.     my $OIDIfName;
  345.     my $OIDIfType;
  346.     my $OIDIfStatus;
  347.     my $reIfName;
  348.     my $reIfType;
  349.     my $reIfStatus;
  350.     my @InterFaceIndexView; #it's crucial option.
  351.     #print "OIDIfName, reIfName, reIfType, reIfStatus\n";
  352.     foreach $IfIndex(@InterFaceIndex)
  353.     {
  354.        $OIDIfName="1.3.6.1.2.1.2.2.1.2.$IfIndex";
  355.        $OIDIfType="1.3.6.1.2.1.2.2.1.3.$IfIndex";
  356.        $OIDIfStatus="1.3.6.1.2.1.2.2.1.8.$IfIndex";
  357.        #print "$IfIndex,$OIDIfName,$OIDIfType,$OIDIfStatus\n";
  358.        my $re = $session->get_request(-varbindlist=>[$OIDIfName,$OIDIfType,$OIDIfStatus]);
  359.        $reIfName = $session->var_bind_list()->{$OIDIfName};
  360.        $reIfType = $session->var_bind_list()->{$OIDIfType};
  361.        $reIfStatus = $session->var_bind_list()->{$OIDIfStatus};
  362.        my $L2VLAN = substr($reIfName,0,8);
  363.        if (defined $opt{d})
  364.        {
  365.           #print this interface list what it'sline proctocol is down
  366.           if ( ($reIfStatus eq "2") && ( ($reIfType eq "6") || ($reIfType eq "53") ) && ($L2VLAN ne "unrouted") )
  367.           {
  368.              #print "$OIDIfName, $reIfName, $reIfType, $reIfStatus\n";
  369.              push @InterFaceIndexView ,$IfIndex;
  370.           }
  371.        }
  372.        else
  373.        {
  374.           #print this interface list what it'sline proctocol is up
  375.           if ( ($reIfStatus eq "1") && ( ($reIfType eq "6") || ($reIfType eq "53") ) && ($L2VLAN ne "unrouted") )
  376.           {
  377.              #print "$OIDIfName, $reIfName, $reIfType, $reIfStatus\n";
  378.              push @InterFaceIndexView ,$IfIndex;
  379.           }
  380.        }
  381.     }
  382.     #foreach (@InterFaceIndexView)
  383.     #{ print "$_\n";}

  385.     #######################################################################################
  386.     #create interface info database.
  387.     #######################################################################################
  388.     my @InterfaceOIDList;
  389.     my $tempIfIndex;
  390.     my %tbNIC; #it's crucial option.
  391.     foreach $tempIfIndex(@InterFaceIndexView)
  392.     {
  393.         @InterfaceOIDList = map($_ . "." . $tempIfIndex,values(%InterfaceOID));
  394.         #print "@InterfaceOIDList\n";
  395.         my $re = $session->get_request(-varbindlist=>[@InterfaceOIDList]);
  396.         my $InterFace; #obj save Interface info.
  397.         my $OIDtp;

  399.         #set obj->{"Name"}
  400.         #$OIDtp = $InterfaceOID{$FieldName[0]}.".".$tempIfIndex;
  401.         #$InterFace -> {$FieldName[0]} = $session->var_bind_list()->{$OIDtp};
  402.         my $keyID;
  403.         foreach $keyID (keys(%InterfaceOID))
  404.         {
  405.             $OIDtp = $InterfaceOID{$keyID}.".".$tempIfIndex;
  406.             $InterFace -> {$keyID} = $session->var_bind_list()->{$OIDtp};
  407.         }

  409.         #save obj to %tbNIC
  410.         $tbNIC{$tempIfIndex} = $InterFace;
  411.     }

  413.     #view : Method 1
  414.     my $index;
  415.     my $obj;
  416.     my $str;
  417.     my @FliedGroup = values(%SortName);
  418.     my $Tile="Index\t" . $FieldName[0] . "\t" ;
  419.     foreach (@FliedGroup)
  420.     {
  421.        $Tile = $Tile . "\t" . $_ ;
  422.     }
  423.     print "$Tile\n";

  425.     if ($SortTable eq "n")
  426.     {
  427.        #sort by "Index"
  428.        my $Key;

  430.        sub asc_sort
  431.        {
  432.            $a <=> $b;
  433.        }

  435.        foreach $Key (sort asc_sort(keys(%tbNIC)))
  436.        {
  437.            $str = "$Key\t" . $tbNIC{$Key}->{$FieldName[0]};
  438.            foreach (@FliedGroup)
  439.            {
  440.                $str = $str . "\t" . $tbNIC{$Key}->{$_};
  441.            }
  442.            print "$str\n";
  443.        }
  444.     }
  445.     else
  446.     {
  447.        #sort
  448.        #step 1 : create sort index table
  449.        #Process
  450.        # 1. find SortObj from $SortTable.
  451.        # 2. find Sort Field from %SortName by $SortTable
  452.        # 3. crate index table from %tbNIC with ifIndex and sortField;
  453.        # 4. sort and print
  454.        my $SortTBName = $SortName{$SortTable};
  455.        #print $SortTBName,"\n";
  456.        my %dbIndex;
  457.        my $Ifindex;
  458.        my $SortFileNameTP;
  459.        while (($Ifindex,$SortFileNameTP) = each(%tbNIC))
  460.        {
  461.           $dbIndex{$Ifindex} = $SortFileNameTP->{$SortTBName};
  462.        }
  463.        
  464.        sub asc_sort_0
  465.        {
  466.            $dbIndex{$a} <=> $dbIndex{$b};
  467.        }

  469.        sub asc_sort_1
  470.        {
  471.            $dbIndex{$b} <=> $dbIndex{$a};
  472.        }

  474.        my $Key;
  475.        my $Value;
  476.        if ($SortType)
  477.        {
  478.            foreach $Key (sort asc_sort_1(keys(%dbIndex)))
  479.            {
  480.                $str = "$Key\t" . $tbNIC{$Key}->{$FieldName[0]};
  481.                foreach (@FliedGroup)
  482.                {
  483.                    $str = $str . "\t" . $tbNIC{$Key}->{$_};
  484.                }
  485.                print "$str\n";
  486.            }
  487.        }
  488.        else
  489.        {
  490.            foreach $Key (sort asc_sort_0(keys(%dbIndex)))
  491.            {
  492.                $str = "$Key\t" . $tbNIC{$Key}->{$FieldName[0]};
  493.                foreach (@FliedGroup)
  494.                {
  495.                    $str = $str . "\t" . $tbNIC{$Key}->{$_};
  496.                }
  497.                print "$str\n";
  498.            }

  500.        }
  501.     }
  502.     #print other info
  503.     print "$Tile\n";
  504.     my $index;
  505.     my $value;
  506.     while (($index,$value) = each(%InterfaceOID))
  507.     {
  508.        print "$index : $value\n";
  509.     }
  510.     #----------------------------------End-------------------------------------
  511. }



  515. sub usage {
  516.     print << "USAGE";

  518. --------------------------------------------------------------------    
  519. $script v$script_version

  521. View Interface status with SNMP Protocol on Cisco Switch and Route devices.

  523. Note: not support serial interface.


  526. Usage: $script Remote-Option [OID-Option] [Sort-Option] [Other-Option]

  528. Remote-Options:
  529.          -H         Hostname or IP address
  530.          -c         Community (default is public)

  532. OID-Option
  533.     -m    $FieldName[1]    $InterfaceOID_orgin{$FieldName[1]}
  534.         $FieldName[2]    $InterfaceOID_orgin{$FieldName[2]}

  536.         -r $FieldName[3]    $InterfaceOID_orgin{$FieldName[3]}
  537.                 $FieldName[4]    $InterfaceOID_orgin{$FieldName[4]}

  539.         -R $FieldName[5]    $InterfaceOID_orgin{$FieldName[5]}
  540.                 $FieldName[6]    $InterfaceOID_orgin{$FieldName[6]}

  542.         -P $FieldName[7]    $InterfaceOID_orgin{$FieldName[7]}
  543.                 $FieldName[8]    $InterfaceOID_orgin{$FieldName[8]}

  545.         -M $FieldName[9]    $InterfaceOID_orgin{$FieldName[9]}
  546.                 $FieldName[10]    $InterfaceOID_orgin{$FieldName[10]}

  548.         -B $FieldName[11]    $InterfaceOID_orgin{$FieldName[11]}
  549.                 $FieldName[12]    $InterfaceOID_orgin{$FieldName[12]}

  551.         -b $FieldName[13]    $InterfaceOID_orgin{$FieldName[13]}
  552.                 $FieldName[14]    $InterfaceOID_orgin{$FieldName[14]}

  554.         -e $FieldName[15]    $InterfaceOID_orgin{$FieldName[15]}
  555.                 $FieldName[16]    $InterfaceOID_orgin{$FieldName[16]}

  557.         -C $FieldName[17]    $InterfaceOID_orgin{$FieldName[17]}

  559.         -t $FieldName[18]    $InterfaceOID_orgin{$FieldName[18]}

  561.         -D $FieldName[19]    $InterfaceOID_orgin{$FieldName[19]}

  563.     -o    $FieldName[20]    $InterfaceOID_orgin{$FieldName[20]}

  565.         -a    All

  567. Sort-Option
  568.          -s         Only OID-Option char,more detail as below.
  569.       
  570.                                 chars Sort-Field
  571.                                 ---- -------------
  572.                                 mI $FieldName[1]
  573.                                 mO $FieldName[2]
  574.                                 rI $FieldName[3]
  575.                                 rO $FieldName[4]
  576.                                 RI $FieldName[5]
  577.                                 RO $FieldName[6]
  578.                                 PI $FieldName[7]
  579.                                 PO $FieldName[8]
  580.                                 MI $FieldName[9]
  581.                                 MO $FieldName[10]
  582.                                 BI $FieldName[11]
  583.                                 BO $FieldName[12]
  584.                                 bI $FieldName[13]
  585.                                 bO $FieldName[14]
  586.                                 eI $FieldName[15]
  587.                                 eO $FieldName[16]
  588.                                 C $FieldName[17]
  589.                                 t $FieldName[18]
  590.                                 D $FieldName[19]
  591.                 o $FieldName[20]

  593.          -S 0 or 1        0 increase,1 decrease

  595.          -d view this interface what it's line proctocol is down.
  596.                                 default view up interface.

  598. Other-Option
  599.      -h or -v         Help script Usage

  601. --------------------------------------------------------------------    
  602.    
  603. This program is free software; you can redistribute it or modify
  604. it under the terms of the GNU General Public License
  605. --------------------------------------------------------------------

  607. USAGE
  608.      exit 1;
  609. }


  612. sub GetScriptName
  613. {
  614.    my @str = @_;
  615.    my $len = rindex($str[0],"/");
  616.    return substr($str[0],$len + 1);
  617. }


安装:

将上面的代码用vi保存为view-nic,并设置可执行权限.

使用帮助:

#view-nic -v

 


 

 


 

阅读(2956) | 评论(0) | 转发(0) |
0

上一篇：nagios插件:通过snmp采集数据并实现告警(原创).

下一篇：(原创)cisco设备管理扩展命令tl-telnet:大量cisco设备批量运行配置命令

给主人留下些什么吧！~~
关于我们 | 关于IT168 | 联系方式 | 广告合作 | 法律声明 | 免费注册

Copyright 2001-2010 ChinaUnix.net All Rights Reserved 北京皓辰网域网络信息技术有限公司. 版权所有

感谢所有关心和支持过ChinaUnix的朋友们

16024965号-6