le problème c´est exécuter le script j´y arrive pas

quand je clic j´ai ce message: "erreur de compilation Microsoft VBS script"

c´est windows xp que tu as ?

il faut créer un fichier .TXT puis coller le code en dessous sans les tirets :

--------------------------------------------------
-

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colNetAdapters = objWMIService.ExecQuery _
("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")

For Each objNetAdapter In colNetAdapters
errEnable = objNetAdapter.DisableDHCP()
Next

--------------------------------------------------
--

puis renomer le .TXT en .VBS

cela donner nouveau document.vbs que tu peux renomer par dhpc.vbs si tu veux ce qui est important c l´extension

j´ai xp family

ca me dit que cet objet ne gère pas cette propriété ou cette méthode "objNetAdapter.DisableDHCP()"

up

oui je vois pourquoi le script ne fonctionne pas donc attend je fais un tutoriel pour toi et je le place sur un forum

i´ll be back

avant tout essai ce nouveau script et dis moi ce que ca donne :

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colNetAdapters = objWMIService.ExecQuery _
("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")

strIPAddress = Array("192.168.0.1")
strSubnetMask = Array("255.255.255.0")
strPasserelle = Array("192.168.0.254")
strGatewayMetric = Array(1)

For Each objNetAdapter in colNetAdapters
errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)
errGateways = objNetAdapter.SetGateways(strPasserelle, strGatewaymetric)
If errEnable = 0 Then
WScript.Echo "The IP address has been changed."
Else
WScript.Echo "The IP address could not be changed."
End If
Next

pour info celui ci va configurer automatiquement ton adresse ip attention il faut le mettre sur une seule machine pas sur les deux et dis moi ce que cela donne