显示网卡当前速度的脚本

显示网卡当前速度的脚本,速度是指网卡的连接速度，就是鼠标放到网卡图标上显示的速度

On Error Resume Next

Const wbemFlagReturnImmediately = &h10
Const wbemFlagForwardOnly = &h20

arrComputers = Array("localhost")
For Each strComputer In arrComputers
WScript.Echo
WScript.Echo "=========================================="
WScript.Echo "Computer: " & strComputer
WScript.Echo "=========================================="

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_PerfFormattedData_Tcpip_NetworkInterface", "WQL", _
wbemFlagReturnImmediately + wbemFlagForwardOnly)

For Each objItem In colItems
nicspeed=objItem.CurrentBandwidth
WScript.Echo nicspeed
mnicspeed=int(nicspeed)/1000000
WScript.Echo "CurrentBandwidth: " & cstr(mnicspeed) & " M"
WScript.Echo "Name: " & objItem.Name
Next
Next