Script para cambiar los dns

Hola, Iván:

Las consultas referentes a programación, te recomiendo
las formules en su correspondiente foro (desarrollo). Aquí
somos Administradores de dominios, y tendemos a hacer
las tareas que indicas de otro modo (por lo menos yo),
tratando de programar lo menos posible.

Como sugerencia personal, te recomiendo accedas al editor
de políticas de tu <DC_server> y en la ruta "Conf. del equipo
=> Plantillas admin. => Red => Cliente DNS" hallarás una
directiva de nombre "Servidores DNS", en el que separado por
comas, puedes asignar las IP's de los <DNS_servers> de tu
red corporativa. Debería darte el mismo resultado (si son PC's
cliente de tu entorno de dominio).

Después de todo, si tu ano no está muy alegre con lo que te he
indicado, te recomiendo accedas a:
https://www.microsoft.com/spain/tec...pting.mspx

Y te enseñarán cómo sacar.. ¡petróleo! por script.


Sin mover el trasero de mi sitio
espero haberte servido de "alluda". Un saludo.
==> · Desiderio Ondo Oyana
· Ingeniero en Informática
· Microsoft® Certified Systems Engineer - MCSE
· Visita mi website: http://pantuflo.escet.urjc.es/~desitech
==>


"Ivan Reyes" escribió en el mensaje
news:
> Hola tengo este script qu me permite cambiar los dns primario y secundario
> remotamente, pero es una por una con esta variable strComputer = "."
>
> Como puedo modificar el script para que lo cambie a un grupo de
> computadoras
> y no solo a una?
>
> Les envio el script, correnlo en sus PC ´s y les cambia la configuración
> de
> sus dns servers en su tarjeta de red.
>
>
> On Error Resume Next
>
> strComputer = "."
> arrNewDNSServerSearchOrder = Array("192.168.0.1", "192.168.0.2")
>
> Set objWMIService = GetObject("winmgmts:" _
> & "{impersonationLevel=impersonate}!\\" & strComputer & "oot\cimv2")
> Set colNicConfigs = objWMIService.ExecQuery _
> ("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")
>
> WScript.Echo VbCrLf & "Computer: " & strComputer
>
> For Each objNicConfig In colNicConfigs
> WScript.Echo VbCrLf & " Network Adapter " & objNicConfig.Index
> WScript.Echo " DNS Server Search Order - Before:"
> If Not IsNull(objNicConfig.DNSServerSearchOrder) Then
> For Each strDNSServer In objNicConfig.DNSServerSearchOrder
> WScript.Echo " " & strDNSServer
> Next
> End If
> intSetDNSServers = _
> objNicConfig.SetDNSServerSearchOrder(arrNewDNSServerSearchOrder)
> If intSetDNSServers = 0 Then
> WScript.Echo " Replaced DNS server search order list."
> Else
> WScript.Echo " Unable to replace DNS server search order list."
> End If
> Next
>
> WScript.Echo VbCrLf & String(80, "-")
>
> Set colNicConfigs = objWMIService.ExecQuery _
> ("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")
>
> For Each objNicConfig In colNicConfigs
> WScript.Echo VbCrLf & " Network Adapter " & objNicConfig.Index
> WScript.Echo " DNS Server Search Order - After:"
> If Not IsNull(objNicConfig.DNSServerSearchOrder) Then
> For Each strDNSServer In objNicConfig.DNSServerSearchOrder
> WScript.Echo " " & strDNSServer
> Next
> End If
> Next
>
> Copienlo a un notepad y guardenlo como dns-replace.vbs y correanlo como
> cscript dns-replace.vbs y listo pero tengo duda como agregar una lista de
> PC´s...
>
> Gracias

Mira si te vale este script:

Script VBScript Para Cambiar La Configuración DNS De Varios Equipos
http://urpiano.wordpress.com/2007/0...s-equipos/

Un saludo
Fernando Reyes [MS MVP]
MCSE Windows 2000 / 2003
MCSA Windows Server 2003
http://freyes.svetlian.com
http://urpiano.wordpress.com
RSS: http://urpiano.wordpress.com/feed
freyes.champú@champú.mvps.org
(Aclárate la cabeza si quieres escribirme)


"Ivan Reyes" escribió en el mensaje de
noticias news:
> Hola tengo este script qu me permite cambiar los dns primario y secundario
> remotamente, pero es una por una con esta variable strComputer = "."
>
> Como puedo modificar el script para que lo cambie a un grupo de
> computadoras
> y no solo a una?
>
> Les envio el script, correnlo en sus PC ´s y les cambia la configuración
> de
> sus dns servers en su tarjeta de red.
>
>
> On Error Resume Next
>
> strComputer = "."
> arrNewDNSServerSearchOrder = Array("192.168.0.1", "192.168.0.2")
>
> Set objWMIService = GetObject("winmgmts:" _
> & "{impersonationLevel=impersonate}!\\" & strComputer & "oot\cimv2")
> Set colNicConfigs = objWMIService.ExecQuery _
> ("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")
>
> WScript.Echo VbCrLf & "Computer: " & strComputer
>
> For Each objNicConfig In colNicConfigs
> WScript.Echo VbCrLf & " Network Adapter " & objNicConfig.Index
> WScript.Echo " DNS Server Search Order - Before:"
> If Not IsNull(objNicConfig.DNSServerSearchOrder) Then
> For Each strDNSServer In objNicConfig.DNSServerSearchOrder
> WScript.Echo " " & strDNSServer
> Next
> End If
> intSetDNSServers = _
> objNicConfig.SetDNSServerSearchOrder(arrNewDNSServerSearchOrder)
> If intSetDNSServers = 0 Then
> WScript.Echo " Replaced DNS server search order list."
> Else
> WScript.Echo " Unable to replace DNS server search order list."
> End If
> Next
>
> WScript.Echo VbCrLf & String(80, "-")
>
> Set colNicConfigs = objWMIService.ExecQuery _
> ("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")
>
> For Each objNicConfig In colNicConfigs
> WScript.Echo VbCrLf & " Network Adapter " & objNicConfig.Index
> WScript.Echo " DNS Server Search Order - After:"
> If Not IsNull(objNicConfig.DNSServerSearchOrder) Then
> For Each strDNSServer In objNicConfig.DNSServerSearchOrder
> WScript.Echo " " & strDNSServer
> Next
> End If
> Next
>
> Copienlo a un notepad y guardenlo como dns-replace.vbs y correanlo como
> cscript dns-replace.vbs y listo pero tengo duda como agregar una lista de
> PC´s...
>
> Gracias

Desiderio, no hay grupo de VBScript en español como tal y VBScript es una
herramienta muy poderosa puesta en manos de un administrador. Por ello no
me parece que estos grupos de server españoles no sean adecuados para
cuestiones de VBScript, máxime si lo que se piden son script que realicen
tareas propias de administradores. ¡Vamos, que no me espantes la
clientela, porfa! -(|:oÞ

Un saludo
Fernando Reyes [MS MVP]
MCSE Windows 2000 / 2003
MCSA Windows Server 2003
http://freyes.svetlian.com
http://urpiano.wordpress.com
RSS: http://urpiano.wordpress.com/feed
freyes.champú@champú.mvps.org
(Aclárate la cabeza si quieres escribirme)


"Desiderio Ondo." escribió en el mensaje de noticias
news:

Hola, Iván:

Las consultas referentes a programación, te recomiendo
las formules en su correspondiente foro (desarrollo). Aquí
somos Administradores de dominios, y tendemos a hacer
las tareas que indicas de otro modo (por lo menos yo),
tratando de programar lo menos posible.

Como sugerencia personal, te recomiendo accedas al editor
de políticas de tu <DC_server> y en la ruta "Conf. del equipo
=> Plantillas admin. => Red => Cliente DNS" hallarás una
directiva de nombre "Servidores DNS", en el que separado por
comas, puedes asignar las IP's de los <DNS_servers> de tu
red corporativa. Debería darte el mismo resultado (si son PC's
cliente de tu entorno de dominio).

Después de todo, si tu ano no está muy alegre con lo que te he
indicado, te recomiendo accedas a:
https://www.microsoft.com/spain/tec...pting.mspx

Y te enseñarán cómo sacar.. ¡petróleo! por script.


Sin mover el trasero de mi sitio
...espero haberte servido de "alluda". Un saludo.
==>> · Desiderio Ondo Oyana
· Ingeniero en Informática
· Microsoft® Certified Systems Engineer - MCSE
· Visita mi website: http://pantuflo.escet.urjc.es/~desitech
==>>


"Ivan Reyes" escribió en el mensaje
news:

Hola tengo este script qu me permite cambiar los dns primario y
secundario
remotamente, pero es una por una con esta variable strComputer = "."

Como puedo modificar el script para que lo cambie a un grupo de
computadoras
y no solo a una?

Les envio el script, correnlo en sus PC ´s y les cambia la configuración
de
sus dns servers en su tarjeta de red.


On Error Resume Next

strComputer = "."
arrNewDNSServerSearchOrder = Array("192.168.0.1", "192.168.0.2")

Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "oot\cimv2")
Set colNicConfigs = objWMIService.ExecQuery _
("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled =
True")

WScript.Echo VbCrLf & "Computer: " & strComputer

For Each objNicConfig In colNicConfigs
WScript.Echo VbCrLf & " Network Adapter " & objNicConfig.Index
WScript.Echo " DNS Server Search Order - Before:"
If Not IsNull(objNicConfig.DNSServerSearchOrder) Then
For Each strDNSServer In objNicConfig.DNSServerSearchOrder
WScript.Echo " " & strDNSServer
Next
End If
intSetDNSServers = _
objNicConfig.SetDNSServerSearchOrder(arrNewDNSServerSearchOrder)
If intSetDNSServers = 0 Then
WScript.Echo " Replaced DNS server search order list."
Else
WScript.Echo " Unable to replace DNS server search order list."
End If
Next

WScript.Echo VbCrLf & String(80, "-")

Set colNicConfigs = objWMIService.ExecQuery _
("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled =
True")

For Each objNicConfig In colNicConfigs
WScript.Echo VbCrLf & " Network Adapter " & objNicConfig.Index
WScript.Echo " DNS Server Search Order - After:"
If Not IsNull(objNicConfig.DNSServerSearchOrder) Then
For Each strDNSServer In objNicConfig.DNSServerSearchOrder
WScript.Echo " " & strDNSServer
Next
End If
Next

Copienlo a un notepad y guardenlo como dns-replace.vbs y correanlo como
cscript dns-replace.vbs y listo pero tengo duda como agregar una lista
de
PC´s...

Gracias

Hola a todos:

Ante todo, ruego mis más sinceras disculpas si alguien ha podido
sentirse ofendido, pero en ningún momento he dado a entender
que no se pudieran formular preguntas/consultas orientadas a la
programación en éste foro (de hecho, especifico claramente un
"yo por lo menos" para excluir a los súper-maestros ;)

Reconozco que me pica el ano en cuanto leo líneas de código, y
daba por hecho que en el foro "microsoft.public.es.desarrollo" se
centraban en todo tipo de códigos tanto para "online" (.jps, .php...)
como para "local" (.vbs, c#...). Es evidente que estaba erróneo.
En todo caso, suponía que mi propuesta de resolución le resultaría
más... "visual" (por no decir sencilla), pero que conste: en ningún
momento he tenido intención de causar molestias a ningún miembro
de éste o cualquier otro foro. Asimismo, agradezco la información
facilitada, ya que yo también quiero aprender de los expertos.

No puedo prometer que no volveré a equivocarme (¡ojalá pudiera!)
pero sí puedo decir que haré lo imposible por no "molestar" a la
gente. Me gustaría conseguir el MS-MVP y creo que ése no sería el
camino correcto.


Un saludo.
==> · Desiderio Ondo Oyana
· Ingeniero en Informática
· Microsoft® Certified Systems Engineer - MCSE
· Visita mi website: http://pantuflo.escet.urjc.es/~desitech
==>


"Fernando Reyes [MS MVP]"
escribió en el mensaje
news:

Desiderio, no hay grupo de VBScript en español como tal y VBScript es una
herramienta muy poderosa puesta en manos de un administrador. Por ello no
me parece que estos grupos de server españoles no sean adecuados para
cuestiones de VBScript, máxime si lo que se piden son script que realicen
tareas propias de administradores. ¡Vamos, que no me espantes la
clientela, porfa! -(|:oÞ

Un saludo
Fernando Reyes [MS MVP]
MCSE Windows 2000 / 2003
MCSA Windows Server 2003
http://freyes.svetlian.com
http://urpiano.wordpress.com
RSS: http://urpiano.wordpress.com/feed
freyes.champú@champú.mvps.org
(Aclárate la cabeza si quieres escribirme)


"Desiderio Ondo." escribió en el mensaje de noticias
news:

Hola, Iván:

Las consultas referentes a programación, te recomiendo
las formules en su correspondiente foro (desarrollo). Aquí
somos Administradores de dominios, y tendemos a hacer
las tareas que indicas de otro modo (por lo menos yo),
tratando de programar lo menos posible.

Como sugerencia personal, te recomiendo accedas al editor
de políticas de tu <DC_server> y en la ruta "Conf. del equipo
=> Plantillas admin. => Red => Cliente DNS" hallarás una
directiva de nombre "Servidores DNS", en el que separado por
comas, puedes asignar las IP's de los <DNS_servers> de tu
red corporativa. Debería darte el mismo resultado (si son PC's
cliente de tu entorno de dominio).

Después de todo, si tu ano no está muy alegre con lo que te he
indicado, te recomiendo accedas a:
https://www.microsoft.com/spain/tec...pting.mspx

Y te enseñarán cómo sacar.. ¡petróleo! por script.


Sin mover el trasero de mi sitio
...espero haberte servido de "alluda". Un saludo.
==>>> · Desiderio Ondo Oyana
· Ingeniero en Informática
· Microsoft® Certified Systems Engineer - MCSE
· Visita mi website: http://pantuflo.escet.urjc.es/~desitech
==>>>


"Ivan Reyes" escribió en el
mensaje news:

Hola tengo este script qu me permite cambiar los dns primario y
secundario
remotamente, pero es una por una con esta variable strComputer = "."

Como puedo modificar el script para que lo cambie a un grupo de
computadoras
y no solo a una?

Les envio el script, correnlo en sus PC Žs y les cambia la
configuración de
sus dns servers en su tarjeta de red.


On Error Resume Next

strComputer = "."
arrNewDNSServerSearchOrder = Array("192.168.0.1", "192.168.0.2")

Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "oot\cimv2")
Set colNicConfigs = objWMIService.ExecQuery _
("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled =
True")

WScript.Echo VbCrLf & "Computer: " & strComputer

For Each objNicConfig In colNicConfigs
WScript.Echo VbCrLf & " Network Adapter " & objNicConfig.Index
WScript.Echo " DNS Server Search Order - Before:"
If Not IsNull(objNicConfig.DNSServerSearchOrder) Then
For Each strDNSServer In objNicConfig.DNSServerSearchOrder
WScript.Echo " " & strDNSServer
Next
End If
intSetDNSServers = _
objNicConfig.SetDNSServerSearchOrder(arrNewDNSServerSearchOrder)
If intSetDNSServers = 0 Then
WScript.Echo " Replaced DNS server search order list."
Else
WScript.Echo " Unable to replace DNS server search order list."
End If
Next

WScript.Echo VbCrLf & String(80, "-")

Set colNicConfigs = objWMIService.ExecQuery _
("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled =
True")

For Each objNicConfig In colNicConfigs
WScript.Echo VbCrLf & " Network Adapter " & objNicConfig.Index
WScript.Echo " DNS Server Search Order - After:"
If Not IsNull(objNicConfig.DNSServerSearchOrder) Then
For Each strDNSServer In objNicConfig.DNSServerSearchOrder
WScript.Echo " " & strDNSServer
Next
End If
Next

Copienlo a un notepad y guardenlo como dns-replace.vbs y correanlo como
cscript dns-replace.vbs y listo pero tengo duda como agregar una lista
de
PCŽs...

Gracias

Mi estimado Fernando eres un maestro, me funciono excelentemente tu
script,
muchas graciassaludos desde Monterrey, Mexico...

"Fernando Reyes [MS MVP]" wrote:

Mira si te vale este script:

Script VBScript Para Cambiar La Configuración DNS De Varios Equipos
http://urpiano.wordpress.com/2007/0...s-equipos/

Un saludo
Fernando Reyes [MS MVP]
MCSE Windows 2000 / 2003
MCSA Windows Server 2003
http://freyes.svetlian.com
http://urpiano.wordpress.com
RSS: http://urpiano.wordpress.com/feed
freyes.champú@champú.mvps.org
(Aclárate la cabeza si quieres escribirme)


"Ivan Reyes" escribió en el mensaje
de
noticias news:
> Hola tengo este script qu me permite cambiar los dns primario y
> secundario
> remotamente, pero es una por una con esta variable strComputer = "."
>
> Como puedo modificar el script para que lo cambie a un grupo de
> computadoras
> y no solo a una?
>
> Les envio el script, correnlo en sus PC ´s y les cambia la
> configuración
> de
> sus dns servers en su tarjeta de red.
>
>
> On Error Resume Next
>
> strComputer = "."
> arrNewDNSServerSearchOrder = Array("192.168.0.1", "192.168.0.2")
>
> Set objWMIService = GetObject("winmgmts:" _
> & "{impersonationLevel=impersonate}!\\" & strComputer & "oot\cimv2")
> Set colNicConfigs = objWMIService.ExecQuery _
> ("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled =
> True")
>
> WScript.Echo VbCrLf & "Computer: " & strComputer
>
> For Each objNicConfig In colNicConfigs
> WScript.Echo VbCrLf & " Network Adapter " & objNicConfig.Index
> WScript.Echo " DNS Server Search Order - Before:"
> If Not IsNull(objNicConfig.DNSServerSearchOrder) Then
> For Each strDNSServer In objNicConfig.DNSServerSearchOrder
> WScript.Echo " " & strDNSServer
> Next
> End If
> intSetDNSServers = _
> objNicConfig.SetDNSServerSearchOrder(arrNewDNSServerSearchOrder)
> If intSetDNSServers = 0 Then
> WScript.Echo " Replaced DNS server search order list."
> Else
> WScript.Echo " Unable to replace DNS server search order list."
> End If
> Next
>
> WScript.Echo VbCrLf & String(80, "-")
>
> Set colNicConfigs = objWMIService.ExecQuery _
> ("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled =
> True")
>
> For Each objNicConfig In colNicConfigs
> WScript.Echo VbCrLf & " Network Adapter " & objNicConfig.Index
> WScript.Echo " DNS Server Search Order - After:"
> If Not IsNull(objNicConfig.DNSServerSearchOrder) Then
> For Each strDNSServer In objNicConfig.DNSServerSearchOrder
> WScript.Echo " " & strDNSServer
> Next
> End If
> Next
>
> Copienlo a un notepad y guardenlo como dns-replace.vbs y correanlo como
> cscript dns-replace.vbs y listo pero tengo duda como agregar una lista
> de
> PC´s...
>
> Gracias