Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
4303 connectés 

  FORUM HardWare.fr
  Windows & Software

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

 
 


Dernière réponse
Sujet : configuration du reseau (IP, gateway, dns) par script comment faire ?
bl@p_psx

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

Votre réponse
Nom d'utilisateur    Pour poster, vous devez être inscrit sur ce forum .... si ce n'est pas le cas, cliquez ici !
Le ton de votre message                        
                       
Votre réponse
[b][i][u][strike][spoiler][fixed][cpp][url][email][img][*]   
 
   [quote]
 
Options

 
Vous avez perdu votre mot de passe ?


Vue Rapide de la discussion
bl@p_psx

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

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 !!
bl@p_psx 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 ...
jamiroq78

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)
bl@p_psx Echec du changement de réseau ....  
 
je testerais ca chez moi plutot qu'ici ( au taf )...
jamiroq78

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

bl@p_psx

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

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.
ShonGail http://forum.hardware.fr/icones/flag1.gif
bl@p_psx

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
Je@nb Ben netsh c vraiment excellent, et le script est simple à faire, cherche un peu :)
jamiroq78

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
bl@p_psx bein, utilise netsh ... ya un script tout pret pour fixe/dhcp
jamiroq78

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)

bl@p_psx drapal ( je me pert souvent dans les meandres de bellamyjc, et je finis par plus rien trouver ! lol )
El Pollo Diablo Ou avec la commande netsh : http://www.bellamyjc.net/fr/windows2000.html#NETSH
akizan 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
jamiroq78 sous windows 2000 et XP .
 
merci d'avance

Forum MesDiscussions.Net, Version 2010.2
(c) 2000-2011 Doctissimo

Copyright © 1997-2025 Groupe LDLC (Signaler un contenu illicite / Données personnelles)