[原创]网络接口利用率监控VBS脚本…

来源：互联网发布：mac 充电器编辑：程序博客网时间：2024/06/05 18:39

'程序名称: btlwchk_netinterface.vbs

'版权信息:     Copyright (c) 2011 guangzhou bluetechtechnology 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 * fromWin32_PerfRawData_Tcpip_NetworkInterface",,48)
DimBytesTotalPersec1(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 * fromWin32_PerfRawData_Tcpip_NetworkInterface",,48)
DimBytesTotalPersec2(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