监测windows主机网络接口利用率的vbs代码_VBS

btlwchk_netinterface.vbs

				?

									'程序名称:      btlwchk_netinterface.vbs

									'版权信息:      Copyright (c)  2011 guangzhou bluetech technology Incorporated.All rights reserved

									'程序用途:      监测windows主机网络接口利用率

									'创建日期:      2011-09-1

									'作者信息:      zhangkai

									'运行环境:      vbs

									'处理参数

									MonSubject="NetInterface"

									Set Args=WScript.Arguments

									If (Args.Count<1) Then

									 Wscript.Echo MonSubject & " -1:command line error"

									 WScript.Quit(3)

									End If

									strcid=Args(0)

									'获取工作目录

									tmparr=Split(Wscript.ScriptFullName,"\",-1)

									g_strworkdir=tmparr(0)

									narr=UBound(tmparr,1)

									For i=1 to narr-3

									    g_strworkdir=g_strworkdir & "\" & tmparr(i)

									Next

									'装载公共库

									set g_fileSys = createObject ("Scripting.FileSystemObject")

									Sub includeFile (fSpec)

									    dim file, fileData

									    set file = g_fileSys.openTextFile (fSpec)

									    fileData = file.readAll ()

									    file.close

									    executeGlobal fileData

									    set file = nothing 

									end sub

									includeFile g_strworkdir & "\nagios\libexec\libcomm.vbs"

									'输出版本和帮助信息

									getverhelp strcid,"v1.00"," <cid>"

									strComputer = "."  

									Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") 

									'第1次采样

									Set colItems = objWMIService.ExecQuery("Select * from Win32_PerfRawData_Tcpip_NetworkInterface",,48)

									Dim BytesTotalPersec1(20),TimeValue1(20),Name1(20),CurrentBandwidth(20),BytesReceivedPerSec1(20),BytesSentPerSec1(20),PacketsReceivedPerSec1(20),PacketsSentPerSec1(20),_

									BytesTotalPersec(20),PercentNetwork(20),BytesReceivedPerSec(20),BytesSentPerSec(20),PacketsReceivedPerSec(20),PacketsSentPerSec(20)

									n=0

									For Each objItem in colItems

									  Name1(n) = objItem.Name

									  BytesTotalPersec1(n) = objItem.BytesTotalPersec

									  BytesReceivedPerSec1(n) = objItem.BytesReceivedPerSec

									  BytesSentPerSec1(n) = objItem.BytesSentPerSec

									  PacketsReceivedPerSec1(n) = objItem.PacketsReceivedPerSec

									  PacketsSentPerSec1(n) = objItem.PacketsSentPerSec

									  TimeValue1(n) = objItem.Timestamp_PerfTime

									  CurrentBandwidth(n) = objItem.CurrentBandwidth

									  TimeBase = objItem.Frequency_PerfTime

									  n=n+1

									Next

									'第2次采样

									WScript.Sleep 1000

									Set colItems = objWMIService.ExecQuery("Select * from Win32_PerfRawData_Tcpip_NetworkInterface",,48)

									Dim BytesTotalPersec2(20),TimeValue2(20),Name2(20),BytesReceivedPerSec2(20),BytesSentPerSec2(20),PacketsReceivedPerSec2(20),PacketsSentPerSec2(20)

									k=0

									For Each objItem in colItems

									  Name2(k) = objItem.Name

									     BytesTotalPersec2(k) = objItem.BytesTotalPersec

									  BytesReceivedPerSec2(k) = objItem.BytesReceivedPerSec

									  BytesSentPerSec2(k) = objItem.BytesSentPerSec

									  PacketsReceivedPerSec2(k) = objItem.PacketsReceivedPerSec

									  PacketsSentPerSec2(k) = objItem.PacketsSentPerSec

									  TimeValue2(k) = objItem.Timestamp_PerfTime

									  k=k+1

									Next

									j=0

									For i=0 to n-1

									 If TimeValue2(j) - TimeValue1(j) = 0 Then

									  strnetwork = "BytesTotalPersec=0"

									 Else

									  '带宽利用率= （BytesReceivedPerSec + BytesSentPerSec）*8*100/ CurrentBandwidth

									  '计算利用率

									  BytesTotalPersec(j) = (BytesTotalPersec2(j) - BytesTotalPersec1(j)) / ((TimeValue2(j) - TimeValue1(j)) / TimeBase)

									  PercentNetwork(j) = BytesTotalPersec(j)*8*100 / CurrentBandwidth(j)

									  PercentNetwork(j) = round(PercentNetwork(j),2)

									  '计算BytesReceivedPerSec

									  BytesReceivedPerSec(j) = (BytesReceivedPerSec2(j) - BytesReceivedPerSec1(j)) / ((TimeValue2(j) - TimeValue1(j)) / TimeBase)/1024

									  BytesReceivedPerSec(j) = round(BytesReceivedPerSec(j),2)

									  '计算BytesSentPerSec

									  BytesSentPerSec(j) = (BytesSentPerSec2(j) - BytesSentPerSec1(j)) / ((TimeValue2(j) - TimeValue1(j)) / TimeBase)/1024

									  BytesSentPerSec(j) = round(BytesSentPerSec(j),2)

									  '计算PacketsReceivedPerSec

									  PacketsReceivedPerSec(j) = (PacketsReceivedPerSec2(j) - PacketsReceivedPerSec1(j)) / ((TimeValue2(j) - TimeValue1(j)) / TimeBase)

									  PacketsReceivedPerSec(j) = round(PacketsReceivedPerSec(j),2)

									  '计算PacketsSentPerSec

									  PacketsSentPerSec(j) = (PacketsSentPerSec2(j) - PacketsSentPerSec1(j)) / ((TimeValue2(j) - TimeValue1(j)) / TimeBase)

									  PacketsSentPerSec(j) = round(PacketsSentPerSec(j),2)

									  '计算CurrentBandwidth

									  CurrentBandwidth(j) = CInt(CurrentBandwidth(j)/1000/1000)

									 End If

									 If j = 0 Then

									  Wscript.Echo MonSubject & " 0:OK|Name=" & Name1(j) & ",PercentNetwork=" & PercentNetwork(j) & ",BytesReceivedPerSec=" & BytesReceivedPerSec(j) & ",BytesSentPerSec=" & BytesSentPerSec(j) _

									  & ",PacketsReceivedPerSec=" & PacketsReceivedPerSec(j) & ",PacketsSentPerSec=" & PacketsSentPerSec(j) & ",CurrentBandwidth=" & CurrentBandwidth(j)

									 End If

									 'Wscript.Echo MonSubject & " 0:OK|" & Name1(j) & ",PercentNetwork=" & PercentNetwork

									 j=j+1

									Next