After doing some additional research, I have uncovered a better set of code that will return the network speed. I have seen in some discussions that people are reporting that not all network cards will report their speed through the WMI object.

Also, modify the print line to handle the data differently. It is included so that the physical output can be displayed easily.

sPC = ''.''
iConnected = 2
iEthernet = 0
iWireless = 9
Set oWMIService = GetObject(''winmgmts:\'' & sPC & ''rootCIMV2'')
Set colItems = oWMIService.ExecQuery(''SELECT * FROM Win32_NetworkAdapter'', , 48)

For Each oItem In colItems
If (oItem.AdapterTypeId = iEthernet _
Or oItem.AdapterTypeId = iWireless) _
And oItem.NetConnectionStatus = iConnected Then
If IsNull(oItem.Speed) _
Then sSpeed = ''Speed not reported'' _
Else sSpeed = Left(oItem.Speed, Len(oItem.Speed) - 6) & '' MBits/s''
print oItem.Name & '': '' & sSpeed
End If
Next