Cambiar Proxy Universidad de La Frontera de forma fácil y transparente para el usuario.

13 septiembre, 2008 at 01:28

ScreenShot

Ya es un problema bastante extendido en la universidad el hecho de estar cambiando el maldito proxy de la Universidad de La Frontera cada vez que llegas a casa a conectarte a tu red wireless y viceversa cuando llegas nuevamente a la universidad. Si bien hay varias soluciones como pluggin para firefox por ejemplo, muchas veces terminan siendo bastante molestas, inútiles, lentas y hasta complicadas en algunos casos.

Hoy  les explicaré la forma que uso yo (en windows, analogamente se puede hacer en Linux) y que creo es el método más simple que he encontrado.

El concepto es hacer 2 accesos directos a un programa que transparentemente  cambia el proxy al hacer un solo click en él, para este caso yo he implementado una barra estilo MacOSX en  la cual he incoorporado los links , asi es que se ven algo así :

 

proxyOff_0 proxyOn

El código de cada uno es bastante simple y sólo basta con abrir un editor de texto y copiarlos y luego guardar el archivo como .vbs que es el lenguaje interpretado por el Windows Scripting Host de Microsoft  y que viene incluido por defecto en todos los windows.
En caso de ser una máquina basada en linux usar el scripting en bash análogo modificando las variables de entorno %HTTP_PROXY% y %FTP_PROXY%.
El código para cada una en widows sería :
Código ProxyOn.vbs

dim proxy

proxy = «ftp=proxy1.ufro.cl:80;http=proxy1.ufro.cl:80»

Set shell = CreateObject(«WScript.Shell»)

PE= «1»

dim strRegPath

strRegPath = «HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\»

Call shell.RegWrite( strRegPath & «ProxyServer», proxy, «REG_SZ»)
Call shell.RegWrite( strRegPath & «ProxyEnable», PE, «REG_DWORD»)

Set oWshShell = Nothing

Código ProxyOff.vbs

dim proxy

proxy = «ftp=proxy1.ufro.cl:80;http=proxy1.ufro.cl:80»

Set shell = CreateObject(«WScript.Shell»)

PE= «0»

dim strRegPath

strRegPath = «HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\»

Call shell.RegWrite( strRegPath & «ProxyServer», proxy, «REG_SZ»)
Call shell.RegWrite( strRegPath & «ProxyEnable», PE, «REG_DWORD»)

Set oWshShell = Nothing

Como hemos visto básicamente lo que hacen ambos script es modificar la variable del registro que indica el proxy del sistema, para verificar si cambio o no el proxy verificar la ventana de configuracion de proxy del sistema. Ojo que solo funciona para aquellas aplicaciones que toman el valor de esta variable del valor global del sistema. Pueden verificar si funciona en las opciones de red de Ms Internet Explorer.

Adicionalmente existe otra forma de hacerlo para lso fanáticos de las terminales. Ejecutar proxycfg desde una consola en dos y utilizar las opciones que indica en proxycfg -?, claro que para este caso ya no pasa a ser tan transparente para el usuario, sin embargo lo dejo como dato curioso.

Ojalá le sirva a más de alguien de la Universidad de La Frontera.

CambiarProxy
Título: CambiarProxy (0 click)
Leyenda:
Filename: cambiarproxy.zip
Size: 16 KB