Changer les paramètres IP


Cet exemple de script avec son code permet de changer les paramètres réseaux et IP d'un ordinateur sur un système windows.
Il modifie l'adresse IP, le masque et la passerelle. Dans un autre exemple, je vous montrerai comment modifier les paramètres IP du serveur DNS, les suffixes DNS, le serveur Wins, joindre un domaine...


Code du script VBS

(dans ce premier exemple, les paramètres IP sont en dur dans le script)

' *********************************************************************************************************************
' Changer IP Masque Passerelle
' *********************************************************************************************************************

On Error Resume Next

Dim objWMIService
Dim objCarteReseau
Dim strComputer
Dim ParamAdresseIP
Dim ParamAdresseMasque
Dim ParamAdressePasserelle
Dim colNetAdapters
Dim ErreurIPetMasque
Dim ErreurPasserelle

strComputer = "."
' *** Modifier les paramètres IP suivant votre convenance ***
ParamAdresseIP = Array("10.100.100.100")
ParamAdresseMasque = Array("255.255.0.0")
ParamAdressePasserelle = Array("10.100.0.254")

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colNetAdapters = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")

For Each objCarteReseau in colNetAdapters
     ErreurIPetMasque = objCarteReseau.EnableStatic(ParamAdresseIP, ParamAdresseMasque)
     If Not ErreurIPetMasque = 0 Then
    	WScript.Echo "Probleme d'attribution de l'IP du Masque de sous reseau."
    End If

     ErreurPasserelle = objNetAdapter.SetGateways(ParamAdressePasserelle)
    If Not ErreurPasserelle = 0 Then
     	WScript.Echo "Probleme d'attribution de l'IP de la passerelle."
     End If

Next
' *********************************************************************************************************************




Code du script VBS

(dans ce deuxième exemple, les paramètres IP sont à saisir au clavier)

' *********************************************************************************************************************
' Changer IP Masque Passerelle
' *********************************************************************************************************************

On Error Resume Next

Dim objWMIService
Dim objCarteReseau
Dim strComputer
Dim ParamAdresseIP
Dim ParamAdresseMasque
Dim ParamAdressePasserelle
Dim colNetAdapters
Dim ErreurIPetMasque
Dim ErreurPasserelle

strComputer = "."
' *** Modifier les paramètres IP suivant votre convenance ***
ParamAdresseIP = Inputbox ("Entrer l'adresse IP : ")
ParamAdresseMasque = Inputbox ("Entrer le masque : ")
ParamAdressePasserelle = Inputbox ("Entrer la passerelle : ")

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colNetAdapters = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")

For Each objCarteReseau in colNetAdapters
     ErreurIPetMasque = objCarteReseau.EnableStatic(ParamAdresseIP, ParamAdresseMasque)
     If Not ErreurIPetMasque = 0 Then
    	WScript.Echo "Probleme d'attribution de l'IP du Masque de sous reseau."
    End If

     ErreurPasserelle = objNetAdapter.SetGateways(ParamAdressePasserelle)
    If Not ErreurPasserelle = 0 Then
     	WScript.Echo "Probleme d'attribution de l'IP de la passerelle."
     End If

Next
' *********************************************************************************************************************


Lire la suite »






0462236