网络接口利用率监控VBS脚本代码（Windows）

'程序名称: btlwchk_netinterface.vbs
'程序用途: 监测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