Option Explicit '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, objItem Dim varNbrCartes, varNomCarte Dim WSHShell, Commande Dim varIp, varMask, varGateway, varDNS, varSetDHCP Dim CheminScriptActuel CheminScriptActuel = Left(wscript.scriptfullname,Len(wscript.scriptfullname)-Len(wscript.scriptname)-1) 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 NetConnectionId = 'Interne'") Set WSHShell = CreateObject("WScript.Shell") varNbrCartes = 0 varNomCarte = "" 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 varNomCarte = objItem.NetConnectionId 'Wscript.Echo "NetConnectionId: " & objItem.NetConnectionId 'Wscript.Echo "Name : " & objItem.Name 'Wscript.Echo "GUID : " & objItem.GUID 'Wscript.Echo "Description : " & objItem.Description 'Wscript.Echo "AdapterType : " & objItem.AdapterType 'Wscript.Echo "NetEnabled : " & objItem.NetEnabled 'Wscript.Echo "Availability : " & objItem.Availability 'objItem.Disable 'In order to disable the network card Commande = CheminScriptActuel & "\nvspbind.exe /d """ & varNomCarte & """ ms_tcpip6" Wscript.echo "Passage de la commande " & Commande WSHShell.Run Commande End If Next Set objWMIService = Nothing Set WSHShell = Nothing