• 企业400电话
  • 微网小程序
  • AI电话机器人
  • 电商代运营
  • 全 部 栏 目

    企业400电话 网络优化推广 AI电话机器人 呼叫中心 网站建设 商标✡知产 微网小程序 电商运营 彩铃•短信 增值拓展业务
    监测windows主机网络接口利用率的vbs代码

    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.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
      '计算利用率
      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

    这篇文章就介绍到这了

    上一篇:磁盘IO利用率监控VBS脚本(windows)
    下一篇:vbs定期监控 值个班,定期瞄一下
  • 相关文章
  • 

    © 2016-2020 巨人网络通讯 版权所有

    《增值电信业务经营许可证》 苏ICP备15040257号-8

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