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 |
