Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Script para cambiar los dns

1,339 views
Skip to first unread message

Ivan Reyes

unread,
Jul 18, 2007, 6:44:01 PM7/18/07
to
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 & "\root\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

Javier Inglés [MS MVP]

unread,
Jul 19, 2007, 3:56:59 AM7/19/07
to
Automating TCP/IP Networking on Clients
Part 5: Scripting DNS on Clients
http://www.microsoft.com/technet/scriptcenter/topics/networking/05_atnc_dns.mspx

Lo pones por GPO de inicio de máquina y listo

--
Salu2!!
Javier Inglés
https://mvp.support.microsoft.com/profile=540CC20A-D91F-4E7B-A209-2CB5567431B0
MS MVP, Windows Server-Directory Services

jin...@NOSPAMmvps.org

"Ivan Reyes" <Ivan...@discussions.microsoft.com> escribió en el mensaje
news:A4CB3ED1-9073-4C72...@microsoft.com...

Desiderio Ondo.

unread,
Jul 19, 2007, 4:06:17 AM7/19/07
to

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/technet/recursos/tesoros/scripting.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" <Ivan...@discussions.microsoft.com> escribió en el mensaje
news:A4CB3ED1-9073-4C72...@microsoft.com...

Fernando Reyes [MS MVP]

unread,
Jul 19, 2007, 1:09:42 PM7/19/07
to
Mira si te vale este script:

Script VBScript Para Cambiar La Configuración DNS De Varios Equipos
http://urpiano.wordpress.com/2007/07/19/script-vbscript-para-cambiar-la-configuracion-dns-de-varios-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" <Ivan...@discussions.microsoft.com> escribió en el mensaje de
noticias news:A4CB3ED1-9073-4C72...@microsoft.com...

Fernando Reyes [MS MVP]

unread,
Jul 19, 2007, 1:12:11 PM7/19/07
to
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." <desi...@terra.es> escribió en el mensaje de noticias
news:ON9Axudy...@TK2MSFTNGP03.phx.gbl...

Ramon Jiménez

unread,
Jul 19, 2007, 4:49:03 PM7/19/07
to
jeje...estoy de acuerdo...:-)

--
Ramon Jimenez


"Fernando Reyes [MS MVP]" <te.quedas.s...@spamero.asqueroso.org>
wrote in message news:BB1898CC-84E4-4B02...@microsoft.com...

Ivan Reyes

unread,
Jul 19, 2007, 6:16:01 PM7/19/07
to
Gracias, yo también soy administrador de dominio y lo que pido es solo otra
forma de hacer tareas de administrador no veo porque no usar VBScript....y
tambien no veo porque no preguntar en este foro, en fin....

Gracias

"Desiderio Ondo." wrote:

>
>
> 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/technet/recursos/tesoros/scripting.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.

Ivan Reyes

unread,
Jul 19, 2007, 7:22:01 PM7/19/07
to
Mi estimado Fernando eres un maestro, me funciono excelentemente tu script,
muchas gracias....saludos desde Monterrey, Mexico...

Desiderio Ondo.

unread,
Jul 20, 2007, 3:20:42 AM7/20/07
to

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]" <te.quedas.s...@spamero.asqueroso.org>
escribió en el mensaje
news:BB1898CC-84E4-4B02...@microsoft.com...

Fernando Reyes [MS MVP]

unread,
Jul 20, 2007, 3:25:34 AM7/20/07
to
Hombre, tampoco es para que te pongas tan serio. ¡Ale, de penientcia me
envías un jamón de bellota! -(|: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." <desi...@terra.es> escribió en el mensaje de noticias

news:%23d5j85p...@TK2MSFTNGP06.phx.gbl...

Fernando Reyes [MS MVP]

unread,
Jul 20, 2007, 3:26:10 AM7/20/07
to
Me alegra que te haya servido, pero... no puedo evitar el preguntarme porqué
no usas DHCP.

--
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" <Ivan...@discussions.microsoft.com> escribió en el mensaje de

noticias news:38F4BD9A-8455-4D06...@microsoft.com...

Desiderio Ondo.

unread,
Jul 20, 2007, 3:42:27 AM7/20/07
to

Hola, Fernando:

Pero... ¡¡es muy caro!! ¿Podría colar un chicle de garbanzos?


Sin mover el trasero de mi sitio....

=====================================================================
· 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]" <te.quedas.s...@spamero.asqueroso.org>
escribió en el mensaje

news:03672C40-1FF7-4E6A...@microsoft.com...

Fernando Reyes [MS MVP]

unread,
Jul 20, 2007, 4:19:48 AM7/20/07
to
Bueno, mientras no esté usado o sea semi-nuevo....

--
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." <desi...@terra.es> escribió en el mensaje de noticias

news:%23gEbGGq...@TK2MSFTNGP05.phx.gbl...

Ivan Reyes

unread,
Jul 20, 2007, 2:44:08 PM7/20/07
to
Por polticas de ruteo, necesitamos que algunas PC´s accedan cierto tipo de
redes externas y las politicas estan basadas en IP´s es decir la PC de Juan
necesita usar una aplicación cliente-servidor y el servidor esta en una red
externa le damos permisos a su IP, y la unica manera de forzar que obtenga
esa IP es dejarsela estatica...y son varias IP´s.......pero vamos a evaluar
usar DHCP....que desventajas le ves a DHCP versus estatica?

Gracias

Ramon Jiménez

unread,
Jul 21, 2007, 1:27:48 PM7/21/07
to
Las ventajas son muchísimas...entre ellas

1.- Control centralizado
2.- Gestión más flexible y segura de las configuraciones IP
...

Ademas, con DHCP tienes las reservas por MAC Address, con lo que puedes
asignar siempre las mismas IP's a las máquinas que desees.

--
Ramon Jimenez


"Ivan Reyes" <Ivan...@discussions.microsoft.com> wrote in message
news:71450817-A40D-4857...@microsoft.com...

0 new messages