network adaptor speed

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

network adaptor speed

Logged in as: Guest

arrSession:exec spGetSession 2,2,3115

	Active Users: There are 0 members and 0 guests.
	Users viewing this topic: none

Printable Version

All Forums >> [Scripting] >> WSH & Client Side VBScript >> network adaptor speed
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1]

Message

<< Older Topic Newer Topic >>

network adaptor speed - 5/25/2005 8:08:08 AM

robszar

Posts: 182
Score: 0
Joined: 2/27/2005
From:
Status: offline

is there a way to determine network adaptor speed, this script is not returning those values

Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\.\root\cimv2")

Set colItems = objWMIService.ExecQuery("Select * from Win32_NetworkAdapter")

For Each objItem in colItems
If objItem.NetConnectionStatus = "2" Then
Wscript.Echo "Adapter Type: " & objItem.AdapterType

Select Case objItem.AdapterTypeID
Case 0 strAdapterType = "Ethernet 802.3"
Case 1 strAdapterType = "Token Ring 802.5"
Case 2 strAdapterType = "Fiber Distributed Data Interface (FDDI)"
Case 3 strAdapterType = "Wide Area Network (WAN)"
Case 4 strAdapterType = "LocalTalk"
Case 5 strAdapterType = "Ethernet using DIX header format"
Case 6 strAdapterType = "ARCNET"
Case 7 strAdapterType = "ARCNET (878.2)"
Case 8 strAdapterType = "ATM"
Case 9 strAdapterType = "Wireless"
Case 10 strAdapterType = "Infrared Wireless"
Case 11 strAdapterType = "Bpc"
Case 12 strAdapterType = "CoWan"
Case 13 strAdapterType = "1394"
End Select

Wscript.Echo "Adapter Type Id: " & strAdapterType
Wscript.Echo "AutoSense: " & objItem.AutoSense
Wscript.Echo "Description: " & objItem.Description
Wscript.Echo "Device ID: " & objItem.DeviceID
Wscript.Echo "Index: " & objItem.Index
Wscript.Echo "MAC Address: " & objItem.MACAddress
Wscript.Echo "Manufacturer: " & objItem.Manufacturer
Wscript.Echo "Maximum Number Controlled: " & objItem.MaxNumberControlled
Wscript.Echo "Maximum Speed: " & objItem.MaxSpeed
Wscript.Echo "Name: " & objItem.Name
Wscript.Echo "Net Connection ID: " & objItem.NetConnectionID
Wscript.Echo "Net Connection Status: " & objItem.NetConnectionStatus
For Each strNetworkAddress in objItem.NetworkAddresses
Wscript.Echo "NetworkAddress: " & strNetworkAddress
Next
Wscript.Echo "Permanent Address: " & objItem.PermanentAddress
Wscript.Echo "PNP Device ID: " & objItem.PNPDeviceID
Wscript.Echo "Product Name: " & objItem.ProductName
Wscript.Echo "Service Name: " & objItem.ServiceName
Wscript.Echo "Speed: " & objItem.Speed
End If
Next

OUTPUT
Adapter Type: Ethernet 802.3
Adapter Type Id: Ethernet 802.3
AutoSense:
Description: Broadcom NetXtreme Gigabit Ethernet
Device ID: 8
Index: 8
MAC Address: 00:0D:9D:9A:00:00
Manufacturer: Broadcom
Maximum Number Controlled: 0
Maximum Speed:
Name: Broadcom NetXtreme Gigabit Ethernet
Net Connection ID: Local Area Connection
Net Connection Status: 2
NetworkAddress:
Permanent Address:
PNP Device ID: PCI\VEN_14E4&DEV_1696&SUBSYS_12BC103C&REV_03\4&3A321F38&0&10F0
Product Name: Broadcom NetXtreme Gigabit Ethernet
Service Name: b57w2k
Speed: