Diego,
Dá uma olhada no script abaixo. Fiz uma montagem de scripts que tenho que fazem algo semelhante e adaptei rapidamente para o seu caso. Não tive como testar, pois estou sem meu ambiente de teste no momento por isso não tenho como garantir
afuncionalidade, mas a idéia é essa. Caso não funcione post o erro que conserto para você em outro momento.
No arquivo servidores.txt (indique o local correto do arquivo no script) você irá colocar o nome das máquinas que terão os endereços DNS primário e secundário definidos pelo script.
Dim oFSO, sArquivo, oArquivo, sTexto, strNomeUsuario, strDominio, objUsuario
Set oFSO = CreateObject("Scripting.FileSystemObject")
sArquivo = "C:\scripts\Computadores.txt"
If oFSO.FileExists(sArquivo) Then
Set oArquivo = oFSO.OpenTextFile(sArquivo, 1)
Do While Not oArquivo.AtEndOfStream
sTexto = oArquivo.ReadLine
If Trim(sTexto) <> "" Then
strComputer= sTexto
On Error Resume Next
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colNetCards = objWMIService.ExecQuery _
("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True")
For Each objNetCard in colNetCards
arrDNSServers = Array("192.168.0.155 ", "192.168.1.200 ")
objNetCard.SetDNSServerSearchOrder(arrDNSServers)
Next
Elmo Baraúna - FSCTP / MCP / MCDST / MCSA / MCT
