[系统相关] 批处理如何获取电脑当前上传/下载网速？或者某个程序？

rem 另存为 ANSI 编码
' & cls & cscript.exe /nologo /e:vbscript "%~f0" & pause & exit

n = 3    '几秒刷新一次。改成0则表示只显示一次数据，不循环刷新

Set oWMI = GetObject("Winmgmts:\\.\Root\Cimv2")
Set oRefresher = CreateObject("WbemScripting.SWbemRefresher")
Set oNet = oRefresher.AddEnum(oWMI, "Win32_PerfFormattedData_Tcpip_Networkinterface")

Do
    oRefresher.Refresh()
    For Each i In oNet.ObjectSet
        s = "上行 " & i.BytesSentPersec     & vbCrLf & _
            "下行 " & i.BytesReceivedPersec & vbCrLf
        WScript.Echo s
    Next
    If n = 0 Then WScript.Quit()
    WScript.Sleep n * 1000
Loop
复制代码

@echo off
title 网速
mode con cols=50 lines=6
echo.
set "CUU="
set /p=[?25l<nul
echo,    下行                  上行
:test
wmic path Win32_PerfFormattedData_Tcpip_Networkinterface get BytesSentPersec,BytesReceivedPersec
echo,%CUU%
timeout /t 1 /nobreak>nul
goto test
复制代码