Ajouter des suffixes DNS

**NéoX** · 07/09/2006, 15h28

Bonjour,
Voila je souhaite configurer intégralement la connexion d'une carte réseau, j'ai deja réussi a configurer l'ip, le masque, les adresse DNS principale/secondaire, les adresses WINS principale/secondaire, la passerelle par default

il me manque plus que les suffixes DNS sous la forme adresse1.com et adresse2.com pour finir mon travail.... qui pourrai m'aider???
J'ai essayer d'utiliser SetDNSSuffixSearchOrder mais sans succé...

Pour étre préci:
Je voudrais que ca me range ces deux adresse dans le tableau se trouvant dans : paramétre TCPI/IP avancé / onglet DNS
et qui a pour titre : ajouter ces sufixes DNS (dans l'ordre)

voici mon code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
 
 
Dim strIPAddress, strSubnetMask, errEnable, strGateway, strDNS, strDNSDomain, strWins1, strWins2
strIPAddress = Array("172.25.203.122")
strSubnetMask = Array("255.255.255.0")
strGateway = Array("172.25.203.1")
strWins1 =  "172.30.1.8"
strWins2 =  "172.30.1.5"
strDNS = array("172.30.1.5","172.30.1.8")
 
strDNSDomain = array("adress1.com","adress2.com")
 
Set objWMIService2 = getObject("winmgmts:\\" & NomPC & "\root\cimv2")
Set colItems2 = objWMIService2.ExecQuery("Select * from Win32_NetworkAdapterConfiguration where IPEnabled = true",,48)
For Each objItem2 in colItems2
 
''''Configure l'ip du poste avec sont masque ed sous réseau
errEnable = objItem2.EnableStatic(strIPAddress, strSubnetMask)
''''Configure la passerelle
errEnable = objItem2.setgateways(strGateway)
''''Configure l'adresse du wins principale et secondaire	
objItem2.SetWINSServer strWins1 , strWins2
''''configure les adresses DNS
errEnable = objItem2.SetDNSServerSearchOrder(strDNS)
 
''''A partir de la ca marche plus.... sniff	
errEnable = objItem2.SetDNSSuffixSearchOrder (strDNSDomain) 
next

J'ai mit volontairement tous mon code car je pense qu'il sera surement utile pour certaine personne

**ced600** · 07/09/2006, 16h20

Tu recupere koi comme code d'erreur ?

**NéoX** · 07/09/2006, 16h31

il me retourne 0 en gros il me dit que c'est ok et que j'ai pas besoin de redémarer
mais voila ca me change rien dans mes propriété.

**ced600** · 07/09/2006, 16h49

La je ne vois pas, ca devrait marcher.
Est tu sur que "strDNSDomain" contient bien des valeurs au moment ou tu fait appel à "SetDNSSuffixSearchOrder" ?

**NéoX** · 07/09/2006, 17h10

mon strDNSDomain contien:
strDNSDomain = array("adress1.com","adress2.com")

Ca doit étre ma facon d'utiliser SetDNSSuffixSearchOrder qui n'est pas bonne....

**ced600** · 07/09/2006, 17h25

J'ai trouvé ca :
"La méthode SetDNSSuffixSearchOrder permet de définir l'ordre de recherche de suffixe en tant que tableau d'éléments"
Donc il semblerais que cette méthode ne definisse qu'un ordre.

Voici un lien qui reprend la description des objets WMI et notemment celui de Win32_NetworkAdapterConfiguration, en FRANCAIS :
http://www.secretswindows.com/index....networking.htm

Tu devrais t'intéresser à "SetDNSDomain", il me semble que cette méthode fait ce que tu souhaites.

**NéoX** · 07/09/2006, 17h30

je suis déja dessu looool
Mais y a rien qui me permet de résoudre mon probléme...

**NéoX** · 07/09/2006, 17h34

sinon pour repondre au setDNSDomain il ne permet de mettre qu'une seul adresse mais moi j'ai deux adresse a utiliser...

**ced600** · 08/09/2006, 10h03

Lorsque que tu ajoutes une adresse avec "setDNSDomain", est ce que la précédente adresse est écrasé ?
Si ce n'est pas le cas, alors tu peut faire une boucle et enregistrer les adresses avec "setDNSDomain" autant de fois que tu as d'adresses.

**NéoX** · 08/09/2006, 13h31

en faite setDNSDomain rempli la propriété suffixe DNS pour cette connexion, j'ai fait ma boucle elle fonctionne mais elle m'ecrase ma premiere adresse pour y placer ma seconde...

**ced600** · 08/09/2006, 17h02

Essaye ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Set WSHShell = CreateObject("WScript.Shell")
WSHShell.RegWrite "HKEYLOCALMACHINE\System\CurrentControlSet\Services\TCPIP\Parameters\SearchList" "testadatum.com,test2adatum.net,test3adatum.gov" "REG_SZ"

Tu peut mettre jusqu'à 6 domaines.
J'ai eu cette information ici :
http://support.microsoft.com/default...%3Bfr%3B275553
La clé concerné est valable sous Win2000 et WinXP.

**NéoX** · 25/09/2006, 16h14

Merci cedric,
je vien de revenir de formation et j'ai vu ton aide...

Je me suis un peu cresé la tête car la traduction avai retiré des , lool alors apres
quelque test j'ai enfin trouvé la solution et maintenan tous marche a merveille...

Je tennai a donné mon code qui pourra jen suis sur servir a pas mal de personne car lors de mes recherche ca resté souvent sans suite

Enfin voila ca marche et j'invite toute personne voulant travailler sur leur connexion réseau a consulter ce bout de code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
 
Option Explicit
On Error Resume Next
 
Dim NomPC, Card,  objWMIService, WSHShell
Dim objItem, colItems, ip, strComputer
 
Dim strIPAddress, strSubnetMask, errEnable, strGateway, strDNS, strDNSDomain, strWins1, strWins2
strIPAddress = Array("192.168.203.122")
strSubnetMask = Array("255.255.255.0")
strGateway = Array("192.168.203.1")
strWins1 =  "192.168.1.8"
strWins2 =  "192.168.1.5"
strDNS = array("192.168.1.5","192.168.1.8")
strDNSDomain1 = "dns1.com,dns2.com"
strComputer = "."
 
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
 
 
'Recuperation du nom du post
Set colItems = objWMIService.ExecQuery("Select * from Win32_ComputerSystem",,48)
For Each objItem in colItems
  NomPC = objItem.Caption
Next
 
 
Set objWMIService = Nothing
Set colItems = Nothing
 
Set objWMIService = getObject("winmgmts:\\" & NomPC & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration where IPEnabled = true",,48)
For Each objItem in colItems
		''Configure la passerelle
		errEnable = objItem.setgateways(strGateway)
		''Configure l'adresse du wins principale et secondaire	
		objItem.SetWINSServer strWins1 , strWins2
		''configure les adresses DNS
		errEnable = objItem.SetDNSServerSearchOrder(strDNS)	
		''Configure l'ip du poste avec sont masque ed sous réseau
  		errEnable = objItem.EnableStatic(strIPAddress, strSubnetMask)		
Next  	
 
'Configure la liste des serveurs dns 
SET WSHShell = CreateObject("WScript.Shell")
WSHShell.RegWrite "HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\TCPIP\Parameters\SearchList",strDNSDomain,"REG_SZ"

Voili voulou et encore un grand merci a toi cédric

Invité · 01/11/2012, 18h30

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
On Error Resume Next
 
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
 
Set colNetCards = objWMIService.ExecQuery _
("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True")
 
For Each objNetCard in colNetCards
Wscript.Echo objNetCard.SetDNSDomain("adress1.com")
Next

Invité · 02/11/2012, 00h58

Bonjour,

Petite erreur dans le code, il faut retirer le 1 de (strDNSDomain1) de la ligne 15.

Pourriez-vous m'aider à adapter ce code pour windows 7 SVP?

Ajouter des suffixes DNS

VBScript

Discussions similaires

Partager

Partager