changer l'adresse ip d'une carte reseau definie

Version imprimable

bonjour, je cherche un script pour changer l'ip d'une carte reseau (sachant que je suis sous XP et que l'ordinateur possede 2 cartes reseaux).
J'ai trouvé le code suivant mais ca donne la meme adresse a toutes les cartes reseaux :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
trComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2" )
Set colNetAdapters = objWMIService.ExecQuery _
    ("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE" )
strIPAddress = Array("192.168.1.141" )
strSubnetMask = Array("255.255.255.0" )
strGateway = Array("192.168.1.100" )
strGatewayMetric = Array(1)
For Each objNetAdapter in colNetAdapters
    errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)
    errGateways = objNetAdapter.SetGateways(strGateway, 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

Pourriez vous m'aider, d'avance merci

bonjour,
si tu as deux cartes, ton code doit au moins avoir deux valeurs IP distinctes... :roll:
un exemple qui suppose que les cartes sont dans la même plage d'adresses et exploitent la même passerelle
Code:

1 2 3 4 5 6 7 8 9 10 11 12 ... strIPAddress = Array("192.168.1.141") strIPAddress1 = Array("192.168.1.142") i = 0 For Each objNetAdapter in colNetAdapters if i = 0 then errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask) else errEnable = objNetAdapter.EnableStatic(strIPAddress1, strSubnetMask) end if i = i + 1 ...

02/09/2011, 13h14
solaris13

je veux definir une adresse ip sur une des deux cartes reseaux, pas les deux.

alors ceci

Code:

1
2
3
4
5
6
7
8
strIPAddress = Array("192.168.1.141")
i = 0
For Each objNetAdapter in colNetAdapters
  if (i = 0 ou i = 1) then
    errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)
 end if
 i = i + 1
 ...

la partie en rouge est à modifier en fonction de la carte ciblée

02/09/2011, 20h01
solaris13

parfait, merci beaucoup!