Cambiar IP,NETMASK y Puerta de enlace por script.

Alguna vez os habéis encontrado en la tesitura de necesitar cambiar estos datos en un ordenador al iniciar en un dominio o simplemente para que un amigo los cambie por los datos correctos o similar? Pues con el siguiente script podréis hacerlo fácilmente, es muy sencillo y va en VBScript.

strComputer = "."

Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colNetAdapters = objWMIService.ExecQuery ("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")

ip = Array("192.168.1.2")

mascara = Array("255.255.255.0")

gw = Array("192.168.1.1")

gwmetric = Array(1)

dns = Array("192.168.1.20", "212.145.4.98")

For Each objNetAdapter in colNetAdapters
errip = objNetAdapter.EnableStatic(ip, mascara)
errgw = objNetAdapter.SetGateways(gw, gwmetric)
errdns = objNetAdapter.SetDNSServerSearchOrder(dns)
Next

If (errip = 0) AND (errgw = 0) AND (errdns = 0) Then

WScript.Echo "El script se ejecuto correctamente, asignacion completada"

Else

WScript.Echo "Error"

End If

Ahora solo queda copiarlo pegarlo en un archivo de texto, cambiar los valores entre comillas por los deseados y cambiarle la extensión a .vbs y listo!

Comentarios

Entradas populares de este blog

VS2008 C# Centrar un formulario en pantalla.

VS2008 C# Ocultar la primera fila de un DataGridView ( solución para cuando no se deja )

VS2008 C# ComboBox enlazado a datos con primer elemento en blanco