Discussion :

[NéoX]

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]

Tu recupere koi comme code d'erreur ?

[NéoX]

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]

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]

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

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

[ced600]

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.