Computer=InputBox ("Nom de l'ordinateur à tester où rien pour celui-ci : ","IpConfig")
On error resume next 
set IPConfigSet = GetObject("winmgmts:{impersonationLevel=impersonate}!//" & Computer).ExecQuery _ 
("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled=TRUE") 
If Err.Number<>0 Then 
     wscript.echo " - non accessible -" 
Else 
for each IPConfig in IPConfigSet 
     MsgBox " Configuration réseau de l'ordinateur " & computer & vbcrlf & vbcrlf & _ 
          " Carte " & vbtab & vbtab & " : " & IPConfig.Description & vbcrlf & _ 
          " adresse MAC " & vbtab & " : " & IPConfig.MACAddress & vbcrlf & _ 
          " adresse IP " & vbtab & " : " & IPConfig.IPAddress(0) & vbcrlf & _ 
          " DNSHostName " & vbtab & " : " & IPConfig.DNSHostName _ 
          ,,"Configuration  " 
     Next 
End If