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