configuration du reseau (IP, gateway, dns) par script comment faire ?

configuration du reseau (IP, gateway, dns) par script comment faire ? - Windows & Software

Marsh Posté le 22-10-2003 à 12:19:34    

sous windows 2000 et XP .
 
merci d'avance


---------------
"Rengaines ton arrogance et essaies plutôt d'aider ceux qui débutent : ils ont besoin de toi."
Reply

Marsh Posté le 22-10-2003 à 12:19:34   

Reply

Marsh Posté le 22-10-2003 à 16:19:41    

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

Reply

Marsh Posté le 22-10-2003 à 16:48:44    

Reply

Marsh Posté le 22-10-2003 à 17:00:30    

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

Reply

Marsh Posté le 22-10-2003 à 17:19:06    

Akizan a écrit :

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


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)


---------------
"Rengaines ton arrogance et essaies plutôt d'aider ceux qui débutent : ils ont besoin de toi."
Reply

Marsh Posté le 22-10-2003 à 17:20:34    

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

Reply

Marsh Posté le 22-10-2003 à 18:39:11    

BL@P_pSx a écrit :

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


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


---------------
"Rengaines ton arrogance et essaies plutôt d'aider ceux qui débutent : ils ont besoin de toi."
Reply

Marsh Posté le 22-10-2003 à 20:57:00    

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

Reply

Marsh Posté le 23-10-2003 à 08:25:30    

jamiroq78 a écrit :


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


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

Code :
  1. @echo off
  2. set carte="LAN"
  3. set adrfixe=192.168.0.143
  4. set masque=255.255.255.0
  5. set passerelle=192.168.0.1
  6. set adrDNS1=192.168.0.2
  7. set adrDNS2=192.168.0.49
  8. set adrWINS=192.168.0.49
  9. SET /P lan=Adressage DHCP (O/N)? :
  10. if %lan%==o goto IPDHCP
  11. if %lan%==O goto IPDHCP
  12. goto IPfixe
  13. :IPfixe
  14. netsh interface ip set address %carte% static %adrfixe% %masque% %passerelle% 1
  15. netsh interface ip set dns %carte% static %adrDNS1%
  16. netsh interface ip add dns %carte% %adrDNS2%
  17. netsh interface ip set wins %carte% static %adrWINS%
  18. goto fin
  19. :IPDHCP
  20. netsh interface ip set address %carte% dhcp
  21. netsh interface ip set dns %carte% dhcp
  22. netsh interface ip set wins %carte% dhcp
  23. :fin


---------------
:Moultiplayers:.:Quatuor Chevalier:.:Admin G15-france.com:.:Wiki -G15-france:.:-Papa-:.
Reply

Marsh Posté le 23-10-2003 à 09:38:35    

http://forum.hardware.fr/icones/flag1.gif

Reply

Marsh Posté le 23-10-2003 à 09:38:35   

Reply

Marsh Posté le 23-10-2003 à 09:44:54    

BL@P_pSx a écrit :


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

Code :
  1. @echo off
  2. set carte="LAN"
  3. set adrfixe=192.168.0.143
  4. set masque=255.255.255.0
  5. set passerelle=192.168.0.1
  6. set adrDNS1=192.168.0.2
  7. set adrDNS2=192.168.0.49
  8. set adrWINS=192.168.0.49
  9. SET /P lan=Adressage DHCP (O/N)? :
  10. if %lan%==o goto IPDHCP
  11. if %lan%==O goto IPDHCP
  12. goto IPfixe
  13. :IPfixe
  14. netsh interface ip set address %carte% static %adrfixe% %masque% %passerelle% 1
  15. netsh interface ip set dns %carte% static %adrDNS1%
  16. netsh interface ip add dns %carte% %adrDNS2%
  17. netsh interface ip set wins %carte% static %adrWINS%
  18. goto fin
  19. :IPDHCP
  20. netsh interface ip set address %carte% dhcp
  21. netsh interface ip set dns %carte% dhcp
  22. netsh interface ip set wins %carte% dhcp
  23. :fin




ca s'appelle se faire macher le boulot,  :sarcastic:  
 
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.


---------------
"Rengaines ton arrogance et essaies plutôt d'aider ceux qui débutent : ils ont besoin de toi."
Reply

Marsh Posté le 23-10-2003 à 11:24:36    

jamiroq78 a écrit :


ca s'appelle se faire macher le boulot,  :sarcastic:  
 
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 !!!
 

Reply

Marsh Posté le 23-10-2003 à 15:01:12    

BL@P_pSx a écrit :


 
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] :d
 

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


---------------
"Rengaines ton arrogance et essaies plutôt d'aider ceux qui débutent : ils ont besoin de toi."
Reply

Marsh Posté le 23-10-2003 à 15:05:39    

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

Reply

Marsh Posté le 23-10-2003 à 15:10:41    

BL@P_pSx a écrit :

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)


---------------
"Rengaines ton arrogance et essaies plutôt d'aider ceux qui débutent : ils ont besoin de toi."
Reply

Marsh Posté le 23-10-2003 à 15:11:33    

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 ...

Reply

Marsh Posté le 23-10-2003 à 15:17:33    

BL@P_pSx a écrit :

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 !!


Message édité par jamiroq78 le 23-10-2003 à 15:19:06

---------------
"Rengaines ton arrogance et essaies plutôt d'aider ceux qui débutent : ils ont besoin de toi."
Reply

Marsh Posté le 23-10-2003 à 15:18:50    

jamiroq78 a écrit :


shit faux que je trouve pourquoi chez moi, et attention tu dois lancer le vbs avec les droits admin loca llll
 
normal noromo byciclette velo !!


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

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed