> Hi,
>
> I have searched but not found any info on how to get driver info like
> link-speed-and-duplex form Windows 2000/2003 boxes.
>
> Anybody know any good Perl things or how to get this from Windows API
> or maybe WMI??
>
> Leik - Oslo
You could try this (vbscript):
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from
Win32_NetworkAdapter",,48)
For Each objItem in colItems
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
Next
I am sure that someone could translate this into Win32-Perl...
-Erich-
_______________________________________________
Perl-Win32-Admin mailing list
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
