Script para configurar obtención de servidores DNS mediante DHCP en un equipo con DNS estática

Escenario

Tenemos varios equipos con Windows XP SP2 donde se ha configurado las conexiones de área local con servidores DNS de forma estática y queremos cambiar la configuración de la conexión de área local para que obtenga las direcciones de los servidores DNS mediante DHCP

 

Procedimientos:

• Crearemos un fichero DNS.vbs y le insertaremos el siguiente código:

On Error Resume Next strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colNetCards = objWMIService.ExecQuery _ ("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True") For Each objNetCard in colNetCards     ‘ Creamos la varibale para configurar los DNS     ‘No asignamos valor a la variable ya que pordefecto el valor es Null     ‘"Inyectamos" valor Null en el método SetDNSServerSearchOrder     Dim arrDNSServers     objNetCard.SetDNSServerSearchOrder(arrDNSServers) Next WScript.Echo "Fin de la Ejecución…"

 

• Ejecutamos el Script y comprobamos que los DNS se obtienen mediante DHCP
• Video ejempl del funcionamiento del Script

 

Enlaces de Interés

Para más información consultar script Modify the DNS Server Search Order for a Network Adapter

 

Disclaimer

Este ejemplo de script no esta soportado por el autor del artículo. Este ejemplo de script es ta provisto sin garantía de ningún tipo.

~ por fcojperez en Martes, 17 Junio 2008.