sous windows 2000 et XP .
 
merci d'avance

en VBS :
 
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

Ou avec la commande netsh : http://www.bellamyjc.net/fr/windows2000.html#NETSH

drapal ( je me pert souvent dans les meandres de bellamyjc, et je finis par plus rien trouver ! lol )

ca j'aime beaucoup (je l'ai trouvé aussi
 
le seul GROS pb c que si tu essaies de revenir avec un DHCP
 

strComputer = "."
 
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2" )
Set colNetAdapters = objWMIService.ExecQuery _
("Select * from Win32_NetworkAdapterConfiguration where Index=0" )
 
For Each objNetAdapter in colNetAdapters
 
 'errDisableStatic = objNetAdapter.DisableStatic()
 errEnableDHCP = objNetAdapter.EnableDHCP()
 errRenewDHCP = objNetAdapter.RenewDHCPLease()
 
 If errRenewDHCP = 0 Then
  WScript.Echo "Changement de réseau effectué."
 Else
  WScript.Echo "Echec du changement de réseau."
 End If
Next

 
ben ca marche pas car ce con de windobe garde la gateway par defaut (celle definie en static)

bein, utilise netsh ... ya un script tout pret pour fixe/dhcp

ah oui , et ..ou est - il ?
 
merci a toi d'avance

Ben netsh c vraiment excellent, et le script est simple à faire, cherche un peu

 
http://www.bellamyjc.net/fr/windows2000.html#NETSH
 
Exemple de script permettant de choisir entre configuration statique ou dynamique ...
 

ca s'appelle se faire macher le boulot,    
 
et donc grand merci a toi, je teste.
 
sinon pour la voie par WSH j'ai peut etre une idée pour parrer le bug.

 
bein oui, comme ca, tu vas tester, et me dire si ca marche ...  
 
Je fait pas mal de lan ( j'en organise aussi ) et ya souvent des DHCP, et chez moi, je suis en IP fixe sur mon reseau ... tu teste le script, tu dis si ca marche, et c'est benef pour moi !!!
 

eh bien comme t'es un mec cool :
 
ENJOY [MADE BY JAMIROQ]
 

 
'On Error Resume Next
 
'Configure Dynamic IP
 
strComputer = "."
'strDNSServers = Array("10.7.1.10","10.7.1.50" )
ID_NIC = Chr(34) & "0" & Chr(34)
Const HKLM=&H80000002 'HKEY_LOCAL_MACHINE
ipNull= Array("" )
metricNull= Array("" )
 
Dim registryKey1, registryKey2, registryKey3, registryKey4, registryKey5, registryKey6
 
Set WshShell = WScript.CreateObject("WScript.Shell" )
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2" )
'Set colNetAdapters = objWMIService.ExecQuery ("Select * from Win32_NetworkAdapterConfiguration where Index=0" ) ou avec critere TCPIP Enable
Set objNetAdapter= Getobject("winmgmts:Win32_NetworkAdapterConfiguration=" & ID_NIC)
Set oReg=GetObject("winmgmts:!root/default:StdRegProv" )
 
 
'For Each objNetAdapter in colNetAdapters => à utliser si plusieurs cartes réseaux à traiter
 
 'On active le DHCP puis on demande un bail
 
 errEnableDHCP = objNetAdapter.EnableDHCP(True)
 errRenewDHCP = objNetAdapter.RenewDHCPLease(True)
' errDNSSErvers = objNetAdapter.SetDNSServerSearchOrder(strDNSServers)
 
 If errRenewDHCP = 0 Then
 
  'On supprime la GateWay par défaut (correction bug de la méthode EnableDHCP Kro$oft)
 
  registryKey1 = "SYSTEM\CurrentControlSet\Services\" & objNetAdapter.SettingID & "\Parameters\Tcpip"
  registryKey2 = "SYSTEM\ControlSet001\Services\" & objNetAdapter.SettingID & "\Parameters\Tcpip"
  registryKey3 = "SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Interfaces\" & objNetAdapter.SettingID
  registryKey4 = "SYSTEM\ControlSet001\Services\Tcpip\Parameters\Interfaces\" & objNetAdapter.SettingID
  registryKey5 = "SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Interfaces\" & objNetAdapter.SettingID
  registryKey6 = "SYSTEM\ControlSet001\Services\Tcpip\Parameters\Interfaces\" & objNetAdapter.SettingID
 
  erro = oReg.SetMultiStringValue (HKLM, registryKey1, "DefaultGateway", ipNull)
  erro = oReg.SetMultiStringValue (HKLM, registryKey2, "DefaultGateway", ipNull)
 
  erro = oReg.SetMultiStringValue (HKLM , registryKey3,"DefaultGateway", ipNull)
  erro = oReg.SetMultiStringValue (HKLM , registryKey4,"DefaultGateway", ipNull)
  erro = oReg.SetMultiStringValue (HKLM , registryKey5,"DefaultGatewayMetric", metricNull)
  erro = oReg.SetMultiStringValue (HKLM , registryKey6,"DefaultGatewayMetric" , metricNull)
 
  WScript.Echo "Changement de réseau effectué."
 Else
  WScript.Echo "Echec du changement de réseau. Erreur : " & errRenewDHCP  
 End If
 
'Next => à utliser si plusieurs cartes réseaux à traiter
 
WScript.Echo  "Fin de la configuration réseau"
 

 
C en wsh (vbs) et en plus ca corrige le bug de la gateway qui surcharge la config DHCP ..et ca roxx et c de moi !!!

Echec du changement de réseau ....  
 
je testerais ca chez moi plutot qu'ici ( au taf )...

why ?
tu as quoi comme plateforme ?
 
(moi Win2k SP3)

2k sp3 : erreur  
NT4 sp6 : erreur
 
j'ai pas pris le tps de regarder le fichier, j'ai juste fait un copier coller dans un fichier VBS vide ...

shit !!! faut que je trouve une autre plateform a tester, et attention tu dois lancer le vbs avec les droits admin loca llll
 
normal normo byciclette velo !!

 
no pb pour l'admin ... c moi !    donc, j'ai bien les droits admin ....