Cambiar los servidores DNS en los puestos mediante un script

Modificar los servidores DNS en los puestos mediante un script , 

Esto nos es útil cuando estamos realizando alguna migración de servidores, en el caso que vayamos a cambiar los servidores DNS de dirección IP o el servidor DNS de servidor, debemos cambiar en todos los puestos sus servidores DNS. Puede que los puestos estén configurados con una dirección IP dinámica por lo cual el cambio es muy simple y lo cambiaremos únicamente en el servidor DHCP. Pero.. qué pasa si nuestros puestos tienen una dirección IP fija? Que deberíamos cambiar el 'Servidor DNS preferido' y el 'Servidor DNS alternativo' o manualmente o mediante la ayuda de un simple script que podemos poner en el inicio de sesión de los puestos mediante una GPO.

El script en cuestión es el siguiente:

 

Este sería el script a ejecutar en los puestos clientes:

On Error Resume Next

strComputer = "."
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("DIRECCION_IP_SERVIDOR_DNS_1", "DIRECCION_IP_SERVIDOR_DNS_2")
     objNetCard.SetDNSServerSearchOrder(arrDNSServers)

Next

Esto nos cambiará los dos servidores DNS si nos tenemos con dirección IP fija, si sólo es uno, es cuestión de modificar el script.

Fuente: http://www.bujarra.com/ProcedimientoDNScambiarScript.html