Cambiar las DNS desde un fichero .reg

07/06/2004 - 13:35 por Daniel Rebollo | Informe spam
Quisiera como se pueden cambiar las DNS en las conexiones de red de 50
pc's que no utilizan DHCP.

He encontrado un script en vbs, pero me gustaria saber si se puede hacer
de otra manera.

Preguntas similare

Leer las respuestas

#1 Vulpes
07/06/2004 - 14:00 | Informe spam
Se puede hacer directamente mediante comandos de XP. Mira
en una consola de comandos (cmd.exe), el comando:

netsh interface ip set dns

Realmente el comando NETSH es potentisimo. Revisalo, pero
para tu caso particuloar con lo anterior servirá.

Igualmente, tambien te permita hacerlo en red con:

netsh set machine /?

pero esto ultimo no lo he probado.


Vulpes vs Corvus



[Filtrado por bobo] <- KillFile para los horteras
Ille Corvus

[Filtrado por inculto] <- Troll con cero aportaciones
Maximilian Heel



Quisiera como se pueden cambiar las DNS en las conexiones


de red de 50
pc's que no utilizan DHCP.

He encontrado un script en vbs, pero me gustaria saber si


se puede hacer
de otra manera.

.

Respuesta Responder a este mensaje
#2 Antonio FD
08/06/2004 - 13:23 | Informe spam
Hola,
Recientemente he visto la necesidad de algun administrador de tener que configurar toda una red de 50 pcs o mas y verse obligado a cambiar algun parametro dns en el adaptador, con estos scripts podemos agilizar el trabajo.

Para cambiar dns del controlador de windows server 2000 o 2003, cambiar midominio.com por el que sea

Codigo script 1

'Inicio
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "oot\cimv2")
Set colNetCards = objWMIService.ExecQuery _
("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True")
For Each objNetCard in colNetCards
Wscript.Echo objNetCard.SetDNSDomain("midominio.com")
Next
'Final

codigo script 2

'Inicio
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "oot\cimv2")
Set colNetCards = objWMIService.ExecQuery _
("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True")
For Each objNetCard in colNetCards
arrDNSServers = Array("192.168.0.001", "192.168.0.002")
objNetCard.SetDNSServerSearchOrder(arrDNSServers)
Next
'Final
Donde 192.168.0.001 y 192.168.0.002 cambiariamos por nuestro valor adecuado,

Espero que les sea util.



Saludos

Antonio FD
MS Windows Embedded


Saludos

Antonio FD
MS Windows Embedded
"Daniel Rebollo" escribió en el mensaje news:
Quisiera como se pueden cambiar las DNS en las conexiones de red de 50
pc's que no utilizan DHCP.

He encontrado un script en vbs, pero me gustaria saber si se puede hacer
de otra manera.

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