显示网卡当前速度的脚本

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

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