Script para cambiar los dns

19/07/2007 - 00:44 por Ivan Reyes | Informe spam
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

Preguntas similare

Leer las respuestas

#1 Javier Inglés [MS MVP]
19/07/2007 - 09:56 | Informe spam
Automating TCP/IP Networking on Clients
Part 5: Scripting DNS on Clients
http://www.microsoft.com/technet/sc...c_dns.mspx

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

Salu2!!
Javier Inglés
https://mvp.support.microsoft.com/p...B5567431B0
MS MVP, Windows Server-Directory Services



"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
#2 Desiderio Ondo.
19/07/2007 - 10:06 | Informe spam
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
#3 Fernando Reyes [MS MVP]
19/07/2007 - 19:09 | Informe spam
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
#4 Fernando Reyes [MS MVP]
19/07/2007 - 19:12 | Informe spam
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
#5 Ramon Jiménez
19/07/2007 - 22:49 | Informe spam
jeje...estoy de acuerdo...:-)

Ramon Jimenez


"Fernando Reyes [MS MVP]"
wrote in message 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
Ads by Google
Help Hacer una preguntaSiguiente Respuesta Tengo una respuesta
Search Busqueda sugerida