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
' *******************************************************************************************************




Voici ce que cela donne avec l'affichage des paramètres réseaux dans une message boxe windows.


VBScripts - IP masque passerelle nom ordinateur - codes et exemples


Lire la suite »






0231898