Bonjour,

J’essaye de réaliser un script VBS qui ajoute des suffixe DNS dans un ordre donnée en fonction du sous domaine ou l'on se trouve. On trouve cette option dans l'onglet DNS des propriétés avancées des paramètres TCP/IP d'une connexion réseau local, elle se nomme "Ajouter ces suffixe DNS (dans l'ordre)".

Ci joint le code que j'ai déjà réalisé à l'aide de la technet microsoft : http://technet.microsoft.com/en-us/l.../ee692588.aspx
J'arrive à rajouter mes suffixe DNS, il me reste à le faire en fonction du sous domaine où l'on se trouve, je pense que l'idéal est de récupérer l'adresse IP du poste afin de définir le sous domaine et ajouter l'ordre de suffixe dns correspondant.

Ex : Domaine 1 (192.168.100.*) ordre de recherche : domaine1, domaine2, domaine3
Domaine 2 (192.168.120.*) ordre de recherche : domaine2, domaine1, domaine3
Domaine 3 (192.168.140.*) ordre de recherche : domaine3, domaine1, domaine2

Le script :
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
On Error Resume Next
 
strComputer = "."
NewDNSSuffixSearchOrderDOMAINE1 = Array("domaine1.local", "domaine2.local", "domaine.local")
NewDNSSuffixSearchOrderDOMAINE2 = Array("domaine2.local", "domaine1.local", "domaine3.local")
NewDNSSuffixSearchOrderDOMAINE3 = Array("domaine3.local", "domaine1.local", "domaine2.local")
 
 
Set objWMIService = GetObject("winmgmts:" _
 & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colNicConfigs = objWMIService.ExecQuery _
 ("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")
 
For Each objNicConfig In colNicConfigs
 
Next
 
Set objNetworkSettings = _
 objWMIService.Get("Win32_NetworkAdapterConfiguration")
intSetSuffixes = _
 objNetworkSettings.SetDNSSuffixSearchOrder(NewDNSSuffixSearchOrderDOMAINE1)
 
Set colNicConfigs = objWMIService.ExecQuery _
 ("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")
For Each objNicConfig In colNicConfigs
  If Not IsNull(objNicConfig.DNSDomainSuffixSearchOrder) Then
    For Each strDNSSuffix In objNicConfig.DNSDomainSuffixSearchOrder
    Next
  End If
 
Next
D'avance merci de votre aide.