Tried several version of wmi-scripts but none gives link speed and duplex. Thanks for givin' it a shot.
Does SMS of other asset program does this? I guess one needs to build up a little database over vendors and their settings to match the registry entries... Leik - Oslo -----Original Message----- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Erich Beyrent Sent: 24. januar 2005 21:17 To: [email protected] Subject: RE: Network info > 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 _______________________________________________ Perl-Win32-Admin mailing list [email protected] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
