監(jiān)測(cè)windows主機(jī)網(wǎng)絡(luò)接口利用率的vbs代碼

'程序名稱:      btlwchk_netinterface.vbs

'版權(quán)信息:      Copyright (c)  2011 guangzhou bluetech technology Incorporated.All rights reserved
'程序用途:      監(jiān)測(cè)windows主機(jī)網(wǎng)絡(luò)接口利用率
'創(chuàng)建日期:      2011-09-1
'作者信息:      zhangkai
'運(yùn)行環(huán)境:      vbs
'處理參數(shù)

MonSubject="NetInterface"
Set Args=WScript.Arguments
If (Args.Count1) 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
  '計(jì)算利用率
  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)
  
  '計(jì)算BytesReceivedPerSec
  BytesReceivedPerSec(j) = (BytesReceivedPerSec2(j) - BytesReceivedPerSec1(j)) / ((TimeValue2(j) - TimeValue1(j)) / TimeBase)/1024
  BytesReceivedPerSec(j) = round(BytesReceivedPerSec(j),2)
  
  '計(jì)算BytesSentPerSec
  BytesSentPerSec(j) = (BytesSentPerSec2(j) - BytesSentPerSec1(j)) / ((TimeValue2(j) - TimeValue1(j)) / TimeBase)/1024
  BytesSentPerSec(j) = round(BytesSentPerSec(j),2)
  
  '計(jì)算PacketsReceivedPerSec
  PacketsReceivedPerSec(j) = (PacketsReceivedPerSec2(j) - PacketsReceivedPerSec1(j)) / ((TimeValue2(j) - TimeValue1(j)) / TimeBase)
  PacketsReceivedPerSec(j) = round(PacketsReceivedPerSec(j),2)
  
  '計(jì)算PacketsSentPerSec
  PacketsSentPerSec(j) = (PacketsSentPerSec2(j) - PacketsSentPerSec1(j)) / ((TimeValue2(j) - TimeValue1(j)) / TimeBase)
  PacketsSentPerSec(j) = round(PacketsSentPerSec(j),2)
  
  '計(jì)算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