监测windows主机网络接口利用率的vbs代码

admin VBS

2023-12-01 0 613

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.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

这篇文章就介绍到这了

您可能感兴趣的文章: