const sPrimary = "192.168.178.1" 
const sSecondary = "192.168.178.2" 
 
Dim oWMI, oNIC, colNIC, DNSServers 
 
Set oWMI = GetObject("winmgmts:\\" & "." & "\root\cimv2") 
Set colNIC = oWMI.ExecQuery ("SELECT * FROM Win32_NetworkAdapterConfiguration" & _
  "WHERE IPEnabled = True") 
 
For Each oNIC In colNIC 
DNSServers = Array(PrimaryDNS, SecondaryDNS) 
oNIC.SetDNSServerSearchOrder (DNSServers) 
Next

ciao
Elwood

Wer sp?ter bremst, ist l?nger schnell