OVH Cloud OVH Cloud

suffixe DNS

3 réponses
Avatar
relpas
Lorsqu'on ajoute une station dans un domaine a l'aide d'un script , peut
egalement faire en sorte que l'adresse du serveur soit ajoutee dans les
parametres DNS de la station client, ainsi que le suffixe DNS du serveur?,
avec NETSH peut etre?

3 réponses

Avatar
Jonathan BISMUTH
Bonsoir relpas,

tu as tout bon NETSH peut marcher avec, mais pourquoi ne pas passer par une
modification du registre, directement en script?
Un exemple en AutoIT permettant en plus de "trouver la bonne carte" en cas
de multiples réinstallations du poste ou d'un changement de carte :

;##########################################################################################################
;############# DEBUT
#####################################################################################
;##########################################################################################################

#include <Array.au3>
Opt("ExpandEnvStrings", 1)a

;##########################################################################################################
;############# RECUPERATION DE LA BONNE CARTE PAR ROUTE PRINT
############################################
;##########################################################################################################
RunWait(@ComSpec & " /C " & "route print 0.0.0.0 |find ""0.0.0.0"" >
%SystemDrive%route1.tmp")

$file = FileReadLine ("%SystemDrive%route1.tmp")
;MsgBox (0,"",@Tempdir)
$part = StringSplit ($file," ")
;_ArrayDisplay ($part,"tab")

;##########################################################################################################
;############# Tri du tableau -SORT- puis suppression des charactères
d'espacement -DELETE- #############
;############# rapatriement des 2 valeurs possible IP et Passerelle pour
gérer le SORT par taille #########
;##########################################################################################################

_ArraySort( $part)
;_ArrayDisplay ($part, "sort")
$iString = 1
While $iString <> 0
$iString = _ArrayBinarySearch ( $part, "" )
If Not @error Then
_ArrayDelete ( $part, $iString)
Elsea
$istring =0
EndIf
Wend
;_ArrayDisplay ($part,"Tab filtré")

$IP0 = _ArrayToString ($part, @TAB, 0, 0)
$IP1 = _ArrayToString ($part, @TAB, 1, 1)
$IP2 = _ArrayToString ($part, @TAB, 2, 2)
$IP3 = _ArrayToString ($part, @TAB, 3, 3)
$IP4 = _ArrayToString ($part, @TAB, 4, 4)
$IP5 = _ArrayToString ($part, @TAB, 5, 5)

$i = 1
While 1
$RKey = RegEnumKey ("HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindows
NTCurrentVersionNetworkCards", $i)
If @error = -1 Then Exitloop
;msgbox (0,"",$RKey)

$RSubKey = Regread ("HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindows
NTCurrentVersionNetworkCards"&$RKey, "ServiceName")
;msgbox (0,"SERVICENAME DANS LE REGISTRE",$RSubkey)

$RR = RegRead
("HKEY_LOCAL_MACHINESYSTEMCurrentControlSetServicesTCPIPParametersInterfaces"&$RSubkey,"DefaultGateway")
;MsgBox (0,"IP DANS LE REGISTRE",$RR)

$RDHCP = RegRead
("HKEY_LOCAL_MACHINESYSTEMCurrentControlSetServicesTCPIPParametersInterfaces"&$RSubkey,"EnableDHCP")
If $RDHCP = "0" then
If $RR == $IP0 or $RR == $IP1 or $RR == $IP2 or $RR == $IP3 or $RR == $IP4
or $RR == $IP5 Then
;MsgBox (0,"MODIFICATION","Modification DNS")
$RM = RegWrite
("HKEY_LOCAL_MACHINESYSTEMCurrentControlSetServicesTCPIPParametersInterfaces"&$RSubkey,"NameServer","REG_SZ","10.128.191.227,10.128.191.225")
Endif
Endif
$i = $i + 1
Wend

;##########################################################################################################
;############# FIN
#####################################################################################
;##########################################################################################################

Cordialement,
--
Jonathan BISMUTH
MCSE 2000/ADSI-AutoIT Scripter
Transcript (ID: 691839, code: MCSE2000)
www.portail-mcse.net
pour me contacter http://cerbermail.com/?z5pCI2OyS6
"relpas" a écrit dans le message de news:

Lorsqu'on ajoute une station dans un domaine a l'aide d'un script , peut
egalement faire en sorte que l'adresse du serveur soit ajoutee dans les
parametres DNS de la station client, ainsi que le suffixe DNS du serveur?,
avec NETSH peut etre?


Avatar
relpas
MErci de ce code, que je testerais si je ne trouve pas de soluc avec netsh


Bonsoir relpas,

tu as tout bon NETSH peut marcher avec, mais pourquoi ne pas passer par une
modification du registre, directement en script?
Un exemple en AutoIT permettant en plus de "trouver la bonne carte" en cas
de multiples réinstallations du poste ou d'un changement de carte :

;##########################################################################################################
;############# DEBUT
#####################################################################################
;##########################################################################################################

#include <Array.au3>
Opt("ExpandEnvStrings", 1)a

;##########################################################################################################
;############# RECUPERATION DE LA BONNE CARTE PAR ROUTE PRINT
############################################
;##########################################################################################################
RunWait(@ComSpec & " /C " & "route print 0.0.0.0 |find ""0.0.0.0"" >
%SystemDrive%route1.tmp")

$file = FileReadLine ("%SystemDrive%route1.tmp")
;MsgBox (0,"",@Tempdir)
$part = StringSplit ($file," ")
;_ArrayDisplay ($part,"tab")

;##########################################################################################################
;############# Tri du tableau -SORT- puis suppression des charactères
d'espacement -DELETE- #############
;############# rapatriement des 2 valeurs possible IP et Passerelle pour
gérer le SORT par taille #########
;##########################################################################################################

_ArraySort( $part)
;_ArrayDisplay ($part, "sort")
$iString = 1
While $iString <> 0
$iString = _ArrayBinarySearch ( $part, "" )
If Not @error Then
_ArrayDelete ( $part, $iString)
Elsea
$istring =0
EndIf
Wend
;_ArrayDisplay ($part,"Tab filtré")

$IP0 = _ArrayToString ($part, @TAB, 0, 0)
$IP1 = _ArrayToString ($part, @TAB, 1, 1)
$IP2 = _ArrayToString ($part, @TAB, 2, 2)
$IP3 = _ArrayToString ($part, @TAB, 3, 3)
$IP4 = _ArrayToString ($part, @TAB, 4, 4)
$IP5 = _ArrayToString ($part, @TAB, 5, 5)

$i = 1
While 1
$RKey = RegEnumKey ("HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindows
NTCurrentVersionNetworkCards", $i)
If @error = -1 Then Exitloop
;msgbox (0,"",$RKey)

$RSubKey = Regread ("HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindows
NTCurrentVersionNetworkCards"&$RKey, "ServiceName")
;msgbox (0,"SERVICENAME DANS LE REGISTRE",$RSubkey)

$RR = RegRead
("HKEY_LOCAL_MACHINESYSTEMCurrentControlSetServicesTCPIPParametersInterfaces"&$RSubkey,"DefaultGateway")
;MsgBox (0,"IP DANS LE REGISTRE",$RR)

$RDHCP = RegRead
("HKEY_LOCAL_MACHINESYSTEMCurrentControlSetServicesTCPIPParametersInterfaces"&$RSubkey,"EnableDHCP")
If $RDHCP = "0" then
If $RR == $IP0 or $RR == $IP1 or $RR == $IP2 or $RR == $IP3 or $RR == $IP4
or $RR == $IP5 Then
;MsgBox (0,"MODIFICATION","Modification DNS")
$RM = RegWrite
("HKEY_LOCAL_MACHINESYSTEMCurrentControlSetServicesTCPIPParametersInterfaces"&$RSubkey,"NameServer","REG_SZ","10.128.191.227,10.128.191.225")
Endif
Endif
$i = $i + 1
Wend

;##########################################################################################################
;############# FIN
#####################################################################################
;##########################################################################################################

Cordialement,
--
Jonathan BISMUTH
MCSE 2000/ADSI-AutoIT Scripter
Transcript (ID: 691839, code: MCSE2000)
www.portail-mcse.net
pour me contacter http://cerbermail.com/?z5pCI2OyS6
"relpas" a écrit dans le message de news:

Lorsqu'on ajoute une station dans un domaine a l'aide d'un script , peut
egalement faire en sorte que l'adresse du serveur soit ajoutee dans les
parametres DNS de la station client, ainsi que le suffixe DNS du serveur?,
avec NETSH peut etre?







Avatar
Jonathan BISMUTH
pas de soucis,

passe nous revoir si besoin est ;)

--
Jonathan BISMUTH
MCSE 2000/ADSI-AutoIT Scripter
Transcript (ID: 691839, code: MCSE2000)
www.portail-mcse.net
pour me contacter http://cerbermail.com/?z5pCI2OyS6
"relpas" a écrit dans le message de news:

MErci de ce code, que je testerais si je ne trouve pas de soluc avec netsh


Bonsoir relpas,

tu as tout bon NETSH peut marcher avec, mais pourquoi ne pas passer par
une
modification du registre, directement en script?
Un exemple en AutoIT permettant en plus de "trouver la bonne carte" en
cas
de multiples réinstallations du poste ou d'un changement de carte :

;##########################################################################################################
;############# DEBUT
#####################################################################################
;##########################################################################################################

#include <Array.au3>
Opt("ExpandEnvStrings", 1)a

;##########################################################################################################
;############# RECUPERATION DE LA BONNE CARTE PAR ROUTE PRINT
############################################
;##########################################################################################################
RunWait(@ComSpec & " /C " & "route print 0.0.0.0 |find ""0.0.0.0"" >
%SystemDrive%route1.tmp")

$file = FileReadLine ("%SystemDrive%route1.tmp")
;MsgBox (0,"",@Tempdir)
$part = StringSplit ($file," ")
;_ArrayDisplay ($part,"tab")

;##########################################################################################################
;############# Tri du tableau -SORT- puis suppression des charactères
d'espacement -DELETE- #############
;############# rapatriement des 2 valeurs possible IP et Passerelle pour
gérer le SORT par taille #########
;##########################################################################################################

_ArraySort( $part)
;_ArrayDisplay ($part, "sort")
$iString = 1
While $iString <> 0
$iString = _ArrayBinarySearch ( $part, "" )
If Not @error Then
_ArrayDelete ( $part, $iString)
Elsea
$istring =0
EndIf
Wend
;_ArrayDisplay ($part,"Tab filtré")

$IP0 = _ArrayToString ($part, @TAB, 0, 0)
$IP1 = _ArrayToString ($part, @TAB, 1, 1)
$IP2 = _ArrayToString ($part, @TAB, 2, 2)
$IP3 = _ArrayToString ($part, @TAB, 3, 3)
$IP4 = _ArrayToString ($part, @TAB, 4, 4)
$IP5 = _ArrayToString ($part, @TAB, 5, 5)

$i = 1
While 1
$RKey = RegEnumKey ("HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindows
NTCurrentVersionNetworkCards", $i)
If @error = -1 Then Exitloop
;msgbox (0,"",$RKey)

$RSubKey = Regread ("HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindows
NTCurrentVersionNetworkCards"&$RKey, "ServiceName")
;msgbox (0,"SERVICENAME DANS LE REGISTRE",$RSubkey)

$RR = RegRead
("HKEY_LOCAL_MACHINESYSTEMCurrentControlSetServicesTCPIPParametersInterfaces"&$RSubkey,"DefaultGateway")
;MsgBox (0,"IP DANS LE REGISTRE",$RR)

$RDHCP = RegRead
("HKEY_LOCAL_MACHINESYSTEMCurrentControlSetServicesTCPIPParametersInterfaces"&$RSubkey,"EnableDHCP")
If $RDHCP = "0" then
If $RR == $IP0 or $RR == $IP1 or $RR == $IP2 or $RR == $IP3 or $RR ==
$IP4
or $RR == $IP5 Then
;MsgBox (0,"MODIFICATION","Modification DNS")
$RM = RegWrite
("HKEY_LOCAL_MACHINESYSTEMCurrentControlSetServicesTCPIPParametersInterfaces"&$RSubkey,"NameServer","REG_SZ","10.128.191.227,10.128.191.225")
Endif
Endif
$i = $i + 1
Wend

;##########################################################################################################
;############# FIN
#####################################################################################
;##########################################################################################################

Cordialement,
--
Jonathan BISMUTH
MCSE 2000/ADSI-AutoIT Scripter
Transcript (ID: 691839, code: MCSE2000)
www.portail-mcse.net
pour me contacter http://cerbermail.com/?z5pCI2OyS6
"relpas" a écrit dans le message de
news:

Lorsqu'on ajoute une station dans un domaine a l'aide d'un script ,
peut
egalement faire en sorte que l'adresse du serveur soit ajoutee dans les
parametres DNS de la station client, ainsi que le suffixe DNS du
serveur?,
avec NETSH peut etre?