Option Explicit
'2015 02 02 version
'List network cards with connected or Disconnected state

'http://msdn.microsoft.com/en-us/library/gg196652%28v=vs.85%29.aspx

Dim strComputer
Dim objWMIService, colItems
Dim objItem

Wscript.echo "Liste des cartes réseaux connectées ou désactivées :"

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2") 
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapter Where AdapterType = 'Ethernet 802.3'")
'Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapter Where NetEnabled = True AND AdapterType = 'Ethernet 802.3'")

'We look for the firt available Ethernet network card GUID
For Each objItem in colItems

	If (objItem.NetEnabled = True) Or (objItem.NetEnabled = False) Then 'Quand une carte est désactivée, elle ne retourne rien quand on interroge .NetEnabled A désactivée par contre elle retourne false, et si elle est connectée elle retourne true
		Wscript.Echo "NetConnectionId: " & objItem.NetConnectionId
		Wscript.Echo VbTab & "Name : " & objItem.Name
		Wscript.Echo VbTab & "ProductName : " & objItem.ProductName
		Wscript.Echo VbTab & "MACAddress : " & objItem.MACAddress
		Wscript.Echo VbTab & "Manufacturer : " & objItem.Manufacturer
		Wscript.Echo VbTab & "GUID : " & objItem.GUID
		Wscript.Echo VbTab & "Description : " & objItem.Description
		Wscript.Echo VbTab & "AdapterType : " & objItem.AdapterType
		Wscript.Echo VbTab & "AdapterTypeID : " & objItem.AdapterTypeID
		Wscript.Echo VbTab & "NetEnabled : " & objItem.NetEnabled
		Wscript.Echo VbTab & "PNPDeviceID : " & objItem.PNPDeviceID
		
		'Wscript.Echo "Availability : " & objItem.Availability
		
		Wscript.Echo ""
		'objItem.Disable 'In order to disable the network card
		'Exit for
	
	End If

Next
Set objWMIService = Nothing