Afficher les paramètres réseaux de l'ordinateur
Cet exemple de script avec son code permet d'afficher l'adresse IP, le masque, la passerelle ainsi que le nom de l'ordinateur sur lequel est exécuté le programme.
Code du script VBS
' *******************************************************************************************************
' Affiche les paramétres IP de l'ordinateur
' *******************************************************************************************************
Call ConfigOrdi()
'********************************************************************************************************
Sub ConfigOrdi()
Dim NomOrdinateur,Parametres,ConfigurationIP
On error resume next
set Parametres = GetObject("winmgmts:{impersonationLevel=impersonate}!//" & NomOrdinateur).ExecQuery _
("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled=TRUE")
If Err.Number <> 0 Then
wscript.echo " Paramètres non accessibles ?!? "
Else
for each ConfigurationIP in Parametres
MsgBox "-------------Configuration IP de l'ordinateur------------ " & vbcrlf & vbcrlf & _
"Nom de l'ordinateur" & vbtab & " : " & ConfigurationIP.DNSHostName & vbcrlf & vbcrlf & _
"Adresse IP " & vbtab & " : " & ConfigurationIP.IPAddress(0) & vbcrlf & _
"Masque " & vbtab & vbtab & " : " & ConfigurationIP.IPSubnet(0) & vbcrlf & _
"Passerelle " & vbtab & " : " & ConfigurationIP.DefaultIPGateway(0) & vbcrlf
Next
End If
End Sub
' *******************************************************************************************************
| 