Cambiar rápidamente la IP de tu ordenador

0 Flares Twitter 0 Facebook 0 Google+ 0 LinkedIn 0 Buffer 0 Email -- 0 Flares ×

Ya estaba un poco harto de tener que cambiar manualmente la IP de mi ordenador cada vez que iba a un sitio diferente.

Me explicaré mejor porque tal vez al lector le parezca raro eso de “cambiar la IP del ordenador”. En general, en la mayoría de las redes a los que nos conectamos (en casa, en el hotel, en la oficina…) hay un equipo, llamado el servidor de DHCP, que es el que se encarga de asignar las direcciones IP a los ordenadores que entran en la red. La dirección IP, dicho de una manera muy muy resumida, es la forma en que los ordenadores se identifican unos a otros en una red informática.

Resulta que, debido a que presto un servicio de asistencia 7×14 a uno de mis clientes,  me veo en la penosa (sobre todo para mi espalda) obligacíon de llevar siempre conmigo mi ordenador con Windows7. Y también resulta que en algunos de los lugares en los que me veo obligado a conectar con las bases de datos tienen establecidas determinadas medidas de seguridad informática con objeto de evitar la entrada de intrusos. Una de las más comunes es que no se ofrezca ese servicio de DHCP que hemos mencionado antes1.

Para poder trabajar no tenía más remedio que entrar en la configuración de red del ordenador y cambiar a mano su dirección IP… Cualquiera que ya lo haya echo sabe que es una lata porque para empezar tienes que acordarte (o consultar) una secuencia de números a menudo difícil de retener. No vale cualquiera, debe ser una específica que te haya aprobado el responsable de la red. En mi casa, por ejemplo, sólo mi propio ordenador tiene abiertos unos puertos especiales en el router. Si utilizo otra dirección, hay aplicaciones que no funcionarán.

Así que un día me cansé y decidí escribir un script para hacer el cambio rápido. Tengo una copia con un nombre diferente para particularizarlo para cada uno de los emplazamientos desde los que trabajo. Aquí os dejo el código para Windows Scrip Host. Espero que os resulte útil.

CÓDIGO PARA CAMBIAR DIRECCIÓN IP

' Script para cambiar la IP de nuestro ordenador de forma rápida
' Yo tengo una versión diferente para cada sitio donde me conecto:
' ip_oficina.vbs
' ip_casa.vbs
' ip_casapadres.vbs
' ...
' 
' Agradecimiento a stackoverflow
' http://stackoverflow.com/questions/11441030/change-ip-address-using-vbs-on-windows-7
'
'=====================================================================
' Primero, asegurémonos de ejecutar el fichero como administrador
Set WshShell = WScript.CreateObject("WScript.Shell")
If WScript.Arguments.length = 0 Then
Set ObjShell = CreateObject("Shell.Application")
ObjShell.ShellExecute "wscript.exe", """" & _
WScript.ScriptFullName & """" &_
 " RunAsAdministrator", , "runas", 1
Else

' Ya hemos entrado como administrador, definamos algunas variables
Dim strIPAddress
Dim strSubnetMask
Dim strGateway
Dim intGatewayMetric
Dim strDns1
Dim strDns2

' Ahora, las direcciones IP que queramos establecer esto es lo único
' que tienes que cambiar
strIPAddress = "192.168.1.1"
strSubnetMask = "255.255.255.0"
strGateway = "192.168.1.255"
intGatewayMetric = 1
' Las DNS también, sea la del propio router o 
' las de google, como en el ejemplo
'strDns1 = "192.168.1.1"
strDns1 = "8.8.8.8"
strDns2 = "8.8.4.4"
'strDns2 = "10.0.0.1"

' Ejecutamos las órdenes para configurar la red
Set objShell = WScript.CreateObject("Wscript.Shell")
objshell.Popup "Starting", 1, WScript.ScriptFullName,0
objShell.Run "netsh interface ip set address name=""Conexión de red inalámbrica 5"" static " & strIPAddress & " " & strSubnetMask & " " & strGateway & " " & intGatewayMetric, 0, True
objShell.Run "netsh interface ip set dns name=""Conexión de red inalámbrica 5"" static "& strDns1, 0, True
objShell.Run "netsh interface ip add dns name=""Conexión de red inalámbrica 5"" addr="& strDns2, 0, True
objshell.Popup "Done", 2, WScript.ScriptFullName,0

' liberamos memoria
Set objShell = Nothing

' Salimos
WScript.Quit

End If

									

Saludos.

0 Flares Twitter 0 Facebook 0 Google+ 0 LinkedIn 0 Buffer 0 Email -- 0 Flares ×
Notas:
  1. A este respecto, recomiendo leer a daboweb, que aunque data del 2007 sigue siendo válido. []

Acerca de Vicente Millán

Consultant at DATAEBRO CRM and online education consultant
Esta entrada fue publicada en Featured, Scripts y etiquetada , , . Guarda el enlace permanente.