网络接口利用率监控VBS脚本代码（Windows）
发布时间：2016-12-03 18:41:31 所属栏目：Asp教程 来源：站长网
导读：复制代码 代码如下: '程序名称: btlwchk_netinterface.vbs '程序用途: 监测windows主机网络接口利用率 '创建日期: 2011-09-1 '作者信息: zhangkai '运行环境: vbs '处理参数 MonSubject="NetInterface" Set Args=WScript.Arguments If (Args.Countlt;1) Th
|
复制代码 代码如下: '程序名称: btlwchk_netinterface.vbs '程序用途: 监测windows主机网络接口利用率 '创建日期: 2011-09-1 '作者信息: zhangkai '运行环境: vbs '处理参数 MonSubject="NetInterface" Set Args=WScript.Arguments If (Args.Countlt;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 "nagioslibexeclibcomm.vbs" '输出版本和帮助信息 getverhelp strcid,"v1.00"," lt;cidgt;" strComputer = "." Set objWMIService = GetObject("winmgmts:" "{impersonationLevel=impersonate}!" strComputer "rootcimv2") '第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 （编辑：淮北站长网） 【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容! |
