监测windows主机网络接口利用率的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.argumentsIf (Args.Count1) Then Wscript.Echo MonSubject &
     " -1:command line error" WScript.QuIT(3)End Ifstrcid=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 subincludeFile 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=0For 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+1Next'第2次采样WScript.Sleep 1000Set 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=0For 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+1Nextj=0For 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+1Next

这篇文章就介绍到这了

声明：本文内容由网友自发贡献，本站不承担相应法律责任。对本内容有异议或投诉，请联系2913721942#qq.com核实处理，我们将尽快回复您，谢谢合作！