DDR爱好者之家 Design By 杰米
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
这篇文章就介绍到这了
DDR爱好者之家 Design By 杰米
广告合作:本站广告合作请联系QQ:858582 申请时备注:广告合作(否则不回)
免责声明:本站资源来自互联网收集,仅供用于学习和交流,请遵循相关法律法规,本站一切资源不代表本站立场,如有侵权、后门、不妥请联系本站删除!
免责声明:本站资源来自互联网收集,仅供用于学习和交流,请遵循相关法律法规,本站一切资源不代表本站立场,如有侵权、后门、不妥请联系本站删除!
DDR爱好者之家 Design By 杰米
暂无评论...
更新日志
2024年04月29日
2024年04月29日
- 《护林猿神》游戏特色玩法介绍
- 罗美玲.2007-我是罗美玲【华研国际】【FLAC+CUE】
- 弦子.2010-天真【喜欢音乐】【WAV+CUE】
- 翁倩玉.1973-风儿多可爱【海山】DTS【WAV分轨】
- 口碑回暖极具潜力!《恶意不息》媒体赞誉宣传片释出
- 《剑星》开发商谈公司DNA:开玩笑称是臀部
- 走近科学能拍三集:无人的祭祀用品店夜间突然起火
- 达达乐队.2000-天使【华纳】【WAV+CUE】
- 翁立友.2011-梦世间经典集【豪记】【WAV+CUE】
- 陈芯怡.2023-漫行日志【鼎乐】【FLAC分轨】
- 韩宝仪《舞女泪》24K黄金母盘直刻 正版CD低速原抓[WAV+CUE][463M]
- 群星《2024上海国际高端音影展纪念版CD》[WAV分轨][415M]
- 邓丽君《闽南语金曲集》[DSF][1G]
- dnf第10季战令奖励一览
- dnf结婚戒指怎么升级