MSNdis_NetworkLinkSpeed

I am trying to retreive the instances of this class but the results are
blank - no instances are returned.

When you review the class definition it has only two properties,
inbound and outbound with no KEY defined.

Example code is below.

=======================================

Option Explicit

Dim objlocator,objWBEMServicesWMI
Dim objWBEMCollAdapters,objWBEMAdapter

Set objlocator = CreateObject("WbemScripting.SWbemLocator")
Set objWBEMServicesWMI = objlocator.ConnectServer("","root\wmi")

'get collection of adapters
Set objWBEMCollAdapters = objWBEMServicesWMI.ExecQuery("select * from
MSNdis_NetworkLinkSpeed")

MsgBox("collection number=" & objWBEMCollAdapters.count)

For Each objWBEMAdapter In objWBEMCollAdapters
MsgBox("outbound speed=" & objWBEMAdapter.outbound)
Next

.

Loading