btlwchk_netinterface.vbs

1. '程序名称:      btlwchk_netinterface.vbs
   
2. 
   
3. '版权信息:      Copyright (c)  2011 guangzhou bluetech technology Incorporated.All rights reserved
   
4. '程序用途:      监测windows主机网络接口利用率
   
5. '创建日期:      2011-09-1
   
6. '作者信息:      zhangkai
   
7. '运行环境:      vbs
   
8. '处理参数
   
9. 
   
10. MonSubject="NetInterface"
    
11. Set Args=WScript.Arguments
    
12. If (Args.Count<1) Then
    
13.  Wscript.Echo MonSubject & " -1:command line error"
    
14.  WScript.Quit(3)
    
15. End If
    
16. strcid=Args(0)
    
17. '获取工作目录
    
18. tmparr=Split(Wscript.ScriptFullName,"",-1)
    
19. g_strworkdir=tmparr(0)
    
20. narr=UBound(tmparr,1)
    
21. For i=1 to narr-3
    
22.     g_strworkdir=g_strworkdir & "" & tmparr(i)
    
23. Next
    
24. '装载公共库
    
25. set g_fileSys = createObject ("Scripting.FileSystemObject")
    
26. Sub includeFile (fSpec)
    
27.     dim file, fileData
    
28.     set file = g_fileSys.openTextFile (fSpec)
    
29.     fileData = file.readAll ()
    
30.     file.close
    
31.     executeGlobal fileData
    
32.     set file = nothing 
    
33. end sub
    
34. includeFile g_strworkdir & "\nagios\libexec\libcomm.vbs"
    
35. 
    
36. 
    
37. '输出版本和帮助信息
    
38. getverhelp strcid,"v1.00"," <cid>"
    
39. 
    
40. strComputer = "."  
    
41. Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\" & strComputer & "\root\cimv2") 
    
42. 
    
43. '第1次采样
    
44. Set colItems = objWMIService.ExecQuery("Select * from Win32_PerfRawData_Tcpip_NetworkInterface",,48)
    
45. Dim BytesTotalPersec1(20),TimeValue1(20),Name1(20),CurrentBandwidth(20),BytesReceivedPerSec1(20),BytesSentPerSec1(20),PacketsReceivedPerSec1(20),PacketsSentPerSec1(20),_
    
46. BytesTotalPersec(20),PercentNetwork(20),BytesReceivedPerSec(20),BytesSentPerSec(20),PacketsReceivedPerSec(20),PacketsSentPerSec(20)
    
47. n=0
    
48. For Each objItem in colItems
    
49.   Name1(n) = objItem.Name
    
50.   BytesTotalPersec1(n) = objItem.BytesTotalPersec
    
51.   BytesReceivedPerSec1(n) = objItem.BytesReceivedPerSec
    
52.   BytesSentPerSec1(n) = objItem.BytesSentPerSec
    
53.   PacketsReceivedPerSec1(n) = objItem.PacketsReceivedPerSec
    
54.   PacketsSentPerSec1(n) = objItem.PacketsSentPerSec
    
55.   TimeValue1(n) = objItem.Timestamp_PerfTime
    
56.   CurrentBandwidth(n) = objItem.CurrentBandwidth
    
57.   TimeBase = objItem.Frequency_PerfTime
    
58.   n=n+1
    
59. Next
    
60. 
    
61. '第2次采样
    
62. WScript.Sleep 1000
    
63. Set colItems = objWMIService.ExecQuery("Select * from Win32_PerfRawData_Tcpip_NetworkInterface",,48)
    
64. Dim BytesTotalPersec2(20),TimeValue2(20),Name2(20),BytesReceivedPerSec2(20),BytesSentPerSec2(20),PacketsReceivedPerSec2(20),PacketsSentPerSec2(20)
    
65. k=0
    
66. For Each objItem in colItems
    
67.   Name2(k) = objItem.Name
    
68.      BytesTotalPersec2(k) = objItem.BytesTotalPersec
    
69.   BytesReceivedPerSec2(k) = objItem.BytesReceivedPerSec
    
70.   BytesSentPerSec2(k) = objItem.BytesSentPerSec
    
71.   PacketsReceivedPerSec2(k) = objItem.PacketsReceivedPerSec
    
72.   PacketsSentPerSec2(k) = objItem.PacketsSentPerSec
    
73.   TimeValue2(k) = objItem.Timestamp_PerfTime
    
74.   k=k+1
    
75. Next
    
76. 
    
77. j=0
    
78. For i=0 to n-1
    
79.  If TimeValue2(j) - TimeValue1(j) = 0 Then
    
80.   strnetwork = "BytesTotalPersec=0"
    
81.  Else
    
82.   '带宽利用率= （BytesReceivedPerSec + BytesSentPerSec）*8*100/ CurrentBandwidth
    
83.   '计算利用率
    
84.   BytesTotalPersec(j) = (BytesTotalPersec2(j) - BytesTotalPersec1(j)) / ((TimeValue2(j) - TimeValue1(j)) / TimeBase)
    
85.   PercentNetwork(j) = BytesTotalPersec(j)*8*100 / CurrentBandwidth(j)
    
86.   PercentNetwork(j) = round(PercentNetwork(j),2)
    
87.   
    
88.   '计算BytesReceivedPerSec
    
89.   BytesReceivedPerSec(j) = (BytesReceivedPerSec2(j) - BytesReceivedPerSec1(j)) / ((TimeValue2(j) - TimeValue1(j)) / TimeBase)/1024
    
90.   BytesReceivedPerSec(j) = round(BytesReceivedPerSec(j),2)
    
91.   
    
92.   '计算BytesSentPerSec
    
93.   BytesSentPerSec(j) = (BytesSentPerSec2(j) - BytesSentPerSec1(j)) / ((TimeValue2(j) - TimeValue1(j)) / TimeBase)/1024
    
94.   BytesSentPerSec(j) = round(BytesSentPerSec(j),2)
    
95.   
    
96.   '计算PacketsReceivedPerSec
    
97.   PacketsReceivedPerSec(j) = (PacketsReceivedPerSec2(j) - PacketsReceivedPerSec1(j)) / ((TimeValue2(j) - TimeValue1(j)) / TimeBase)
    
98.   PacketsReceivedPerSec(j) = round(PacketsReceivedPerSec(j),2)
    
99.   
    
100.   '计算PacketsSentPerSec
     
101.   PacketsSentPerSec(j) = (PacketsSentPerSec2(j) - PacketsSentPerSec1(j)) / ((TimeValue2(j) - TimeValue1(j)) / TimeBase)
     
102.   PacketsSentPerSec(j) = round(PacketsSentPerSec(j),2)
     
103.   
     
104.   '计算CurrentBandwidth
     
105.   CurrentBandwidth(j) = CInt(CurrentBandwidth(j)/1000/1000)
     
106.  End If
     
107.  If j = 0 Then
     
108.   Wscript.Echo MonSubject & " 0:OK|Name=" & Name1(j) & ",PercentNetwork=" & PercentNetwork(j) & ",BytesReceivedPerSec=" & BytesReceivedPerSec(j) & ",BytesSentPerSec=" & BytesSentPerSec(j) _
     
109.   & ",PacketsReceivedPerSec=" & PacketsReceivedPerSec(j) & ",PacketsSentPerSec=" & PacketsSentPerSec(j) & ",CurrentBandwidth=" & CurrentBandwidth(j)
     
110.  End If
     
111.  'Wscript.Echo MonSubject & " 0:OK|" & Name1(j) & ",PercentNetwork=" & PercentNetwork
     
112.  j=j+1
     
113. Next

复制代码

这篇文章就介绍到这了

来源：互联网
免责声明：如果侵犯了您的权益，请联系站长（1277306191@qq.com），我们会及时删除侵权内容，谢谢合作！