come posso fare x ottenere la velocità della scheda di rete?
con questo code:
Set SWs = Nothing
Dim objWMIService As Object
Dim colItems As Object
Dim objItem As Object
Set objWMIService = GetObject("winmgmts:\\.\root\CIMV2")
Set colItems = objWMIService.ExecQuery( _
"SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled=true", , 48)
For Each objItem In colItems
DoEvents
Label5 = "Interface: " & objItem.Caption
DoEvents
Label4 = "MAC Address: " & objItem.MACAddress
DoEvents
Label6 = "IP Address: " & Join(objItem.IPAddress, ",")
DoEvents
Label7 = "IP Subnet: " & Join(objItem.IPSubnet, ",")
DoEvents
ottengo alcune informazioni, ma per la velocità?

Rispondi quotando

