Script para cambiar los dns

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:
Mostrar la cita

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

"Fernando Reyes [MS MVP]" wrote:

Mostrar la cita

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