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

Publicar un comentario

Entradas populares de este blog

El juego del impávido.

Se cuenta que en la lujuriosa Francia del siglo XVIII, algunos anfitriones obsequiaban a sus invitados con el divertido juego de “El Impávido”. Este consistía en sentar a los caballeros, desprovistos de pantalones y calzón, en torno a una gran mesa redonda con largos faldones que llegaban hasta el suelo. La esposa del anfitrión se introducía debajo de la mesa, y elegía aleatoriamente a uno de los sedentes, introduciéndose entre sus piernas, por debajo del faldón, y procediendo a practicarle una fellatio. De este modo, y sucesivamente, la dama iba probando todos y cada uno de los penes de los invitados sin ser vista desde la parte superior de la mesa. El objeto del juego, era adivinar quien estaba siendo en cada momento objeto de la succión, basándose únicamente en el rostro de los participantes, que, como el propio nombre del juego indica, habían de permanecer “impávidos” para ocultar su condición de “felados”. Cuando alguien creía descubrir que otro jugador estaba siendo objeto de
Leer más

HowTo Cambiar campo "Archivar como" para que se asemejer a "Nombre completo"

Bien, el problema surgió con mi primer smartphone, resulta que cuando sincroniza con activesync coje por defecto el campo "Archivar como" de outlook para el nombre de los contactos. Ésto para mi era un problema puesto que estaba acostumbrado al orden en mi anterior teléfono que los ordenaba por nombre completo por lo cual estaban confeccionados para ello y con ésto me salían cosas tan feas como "Fress, Lorena" en mis contactos. La solución existente es entrar uno a uno en todos los contactos e ir cambiando ésto para que aparezca Nombre Apellido en vez de Apellido, Nombre. Ni que decir tiene que esto es un engorro o una soberana putada, pues bien mi solución a ésto ha sido una macro en VBscript que os enseño ahora mismo. - Para el que nunca lo haya hecho, con la carpeta contactos como actual se va uno a "Herramientas>Macro>Editor de Visual Basic. - Agregas un nuevo módulo. - Pegas el siguiente código. Sub reordenarContactos() Dim items As items, item A
Leer más

VS2008 C# Centrar un formulario en pantalla.

Seguro que os toca las narices como a mi que cuando arrancais vuestra flamante app se carguen los formularios por la parte de la pantalla que le sale de ahí, pues bien, para que salga centrado en la pantalla hacéis lo siguiente: En el evento Load del form que queráis centrar en pantalla: this.Top = (Screen.PrimaryScreen.WorkingArea.Height - this.Height) / 2; this.Left = (Screen.PrimaryScreen.WorkingArea.Width - this.Width) / 2;
Leer más