监测windows主机网络接口利用率的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"," " 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