Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Script para cambiar los dns

19/07/2007 - 00:44 por Ivan Reyes | Informe spam
Ayuda Hacer una pregunta
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
email Siga el debateRespuesta 15 respuestasRespuesta Tengo una respuesta

Preguntas similare

Leer las respuestas

#11 Desiderio Ondo.
20/07/2007 - 09:42 | Informe spam
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]"
escribió en el mensaje
news:
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." escribió en el mensaje de noticias
news:%


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














Respuesta Responder a este mensaje
#12 Fernando Reyes [MS MVP]
20/07/2007 - 10:19 | Informe spam
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." escribió en el mensaje de noticias
news:%


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]"
escribió en el mensaje
news:
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." escribió en el mensaje de noticias
news:%


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


















Respuesta Responder a este mensaje
#13 Ivan Reyes
20/07/2007 - 20:44 | Informe spam
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 DHCPque desventajas le ves a DHCP versus estatica?

Gracias

"Fernando Reyes [MS MVP]" wrote:

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" escribió en el mensaje de
noticias news:
> 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
>>

Respuesta Responder a este mensaje
#14 Ramon Jiménez
21/07/2007 - 19:27 | Informe spam
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" wrote in message
news:
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 DHCPque desventajas le ves a DHCP versus estatica?

Gracias

"Fernando Reyes [MS MVP]" wrote:

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" escribió en el mensaje
de
noticias news:
> 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
>>

Respuesta Responder a este mensaje
#15 mguar5
02/07/2011 - 13:49 | Informe spam
Fernando Reyes [MS MVP] escribió el 20/07/2007 09:26 :
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"
escribió en el mensaje de
noticias news:
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
& "ootcimv2")
> 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






Fernando como andas, tienes alguna dirección de correo para hacerte algunas consultas sobre script.

Gracias
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una pregunta AnteriorRespuesta Tengo una respuesta
Search Busqueda sugerida