1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
| 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 |
Partager