监测windows主机网络接口利用率的vbs代码
更新时间:2020年6月30日 23:54 点击:1528
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
这篇文章就介绍到这了
下一篇: VBS进程判断代码
相关文章
C#使用FileSystemWatcher控件实现的文件监控功能示例
这篇文章主要介绍了C#使用FileSystemWatcher控件实现的文件监控功能,结合实例形式分析了C# FileSystemWatcher组件的功能及监控文件更改情况的具体使用技巧,需要的朋友可以参考下...2020-06-25percona-toolkit对MySQL的复制和监控类操作教程
复制类工具 1. pt-heartbeat 功能介绍: 监控mysql复制延迟 用法介绍: pt-heartbeat [OPTION...] [DSN] --update|--monitor|--check|--stop 测量复制落后主mysql或者主PostgreSQL多少时间,你可以使用这个脚本去更新主或...2015-11-24- 这篇文章主要介绍了C#实现简单屏幕监控的方法,涉及C#的图标隐藏及屏幕截图等技巧,具有一定参考借鉴价值,需要的朋友可以参考下...2020-06-25
- 这篇文章主要介绍了解决druid监控页面SQL不显示的问题,具有很好的参考价值,希望对大家有所帮助。如有错误或未考虑完全的地方,望不吝赐教...2021-06-19
- 这篇文章主要介绍了MongoDb CPU利用率过高问题如何解决,文中通过示例代码介绍的非常详细,对大家的学习或者工作具有一定的参考学习价值,需要的朋友可以参考下...2020-12-08
- 这篇文章主要介绍了安装配置Zabbix来监控MySQL的基本教程,Zabbix拥有web页面端显示数据的功能,文中的安装环境为CentOS系统,需要的朋友可以参考下...2015-12-25
- zabbix是一个基于WEB界面的提供分布式系统监视以及网络监视功能的企业级的开源解决方案。这篇文章主要介绍了Zabbix监控方案-官方最新4.4版本,需要的朋友可以参考下...2021-05-07
- 为了监控web程序的静态文件是否被恶意改动,所以学习了一下FileSystemWatcher 类对文件的监控,由于还在初级阶段,这里只贴一下关于FileSystemWatcher学习的一些代码...2020-04-25
- 这篇文章主要介绍了linux zabbix自定义监控及报警实现过程解析,文中通过示例代码介绍的非常详细,对大家的学习或者工作具有一定的参考学习价值,需要的朋友可以参考下...2020-08-21
- 本文不会讲如何搭建企业的运维监控系统,有兴趣的可以去找找成熟的比如Zabbix、Prometheus,甚至比较简单的Wgcloud都能满足一定的需求,不在此赘述。本文讲解如何使用Springboot admin对spring boot项目进行应用监控,感兴趣的朋友一起看看吧...2021-06-20
- 这篇文章主要介绍了C#监控文件夹变化的方法,通过FileSystemWatcher类的方法来实现对文件夹的监控,是非常实用的技巧,需要的朋友可以参考下...2020-06-25
- 这篇文章主要介绍了Zabbix系统端口监控状态,可以使用zabbix自带的key进行监控...2021-05-07
- 这篇文章主要为大家介绍了zabbix如何自定义监控nginx状态的实现过程,有需要的朋友可以借鉴参考下,希望能够有所帮助,祝大家多多进步...2021-10-30
zabbix监控Nginx/Tomcat/MySQL的详细教程
这篇文章主要介绍了zabbix监控Nginx/Tomcat/MySQL的详细教程,本文给大家介绍的非常详细,具有一定的参考借鉴价值,需要的朋友可以参考下...2021-05-07- 这篇文章主要介绍了如何通过 Python 和 OpenCV 实现目标数量监控,本文通过实例代码图文的形式给大家介绍的非常详细,具有一定的参考借鉴价值,需要的朋友可以参考下...2020-04-30
- 这篇文章主要介绍了如何使用Sentry 监控你的Spring Boot应用,文中通过示例代码介绍的非常详细,对大家的学习或者工作具有一定的参考学习价值,需要的朋友们下面随着小编来一起学习学习吧...2020-11-09
- 这篇文章主要介绍了C# 监控 Windows 文件夹的方法,本文给大家介绍的非常详细,对大家的学习或工作具有一定的参考借鉴价值,需要的朋友可以参考下...2020-06-25
- 这篇文章主要介绍了使用c#监控网站是否正常的功能示例,大家参考使用吧...2020-06-25
c#使用filesystemwatcher实时监控文件目录的添加和删除
本文主要描述如何通过c#实现实时监控文件目录下的变化,包括文件和目录的添加,删除,修改和重命名等操作...2020-06-25- 这篇文章主要介绍了利用zabbix监控ogg进程(Windows平台)的步骤,帮助大家监控windows平台下的ogg程序,感兴趣的朋友可以参考下...2021-05-07