Script Proxy ITB

Jadi ceritanya, lab saya itu mengganti router, dan alokasi IP juga berganti. Kalau dulu ketika terhubung dengan internet di lab langsung mendapatkan IP public sekarang kita cuma terhubung ke IP lokal. Otomatis, automatic proxy script yang dulu saya ceritakan tidak bisa digunakan lagi. Itu karena laptop saya tidak lagi mendapatkan IP public 167.205.xxx.xxx punyanya ITB.

Agak sebal juga sih, karena sekarang harus bolak-balik ganti proxy secara manual setiap ada di lab atau di kosan. Bisa saja tetap menggunakan proxy ITB dengan catatan kalau di kosan saya menggunakan VPN ITB. Tapi malas juga kalau menggunakan VPN ITB, karena torrent diblokir, kan jadinya puasa download. Hehehe… 🙂

Setelah sekian lama hidup dalam kegalauan ini, akhirnya aku memutuskan untuk keluar dari zona acak-kadut ini. Karena susah mengontrol IP dari router seperti yang dulu-dulu, maka saya buat saja script pengganti proxy. Memang tetap mengandalkan klik, tetapi jauh lebih nyaman daripada harus mengganti proxy secara otomatis.

Script proxy ini mengandalkan proses pergantian proxy dengan menggunakan registry windows. Jadi, fungsinya adalah mengganti beberapa value pada registry windows. Manualnya kita bisa menggunakan regedit untuk membuka registry editor tetapi dengan script ini bisa juga sih.

Oke, langsung saja kita lihat script untuk mengganti proxy secara otomatis ya. Jangan lupa, simpan file dalam format .WSF

<job>
<script language="VBScript">
Option Explicit
Dim UserProxy
Dim objShell, RegLocate, RegLocate1
 
Set objShell = WScript.CreateObject("WScript.Shell")
On Error Resume Next
 
UserProxy = MsgBox("Gunakan proxy ITB?",4,"Proxy ITB dipilih!")
 
If UserProxy=vbYes Then
	RegLocate = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyServer"
	objShell.RegWrite RegLocate,"http://cache.itb.ac.id:8080","REG_SZ"
	RegLocate = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyEnable"
	objShell.RegWrite RegLocate,"1","REG_DWORD"
	MsgBox "Proxy ITB digunakan sekarang!"
else
	RegLocate = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyServer"
	objShell.RegWrite RegLocate,"0.0.0.0:80","REG_SZ"
	RegLocate = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyEnable"
	objShell.RegWrite RegLocate,"0","REG_DWORD"
	MsgBox "Proxy ITB dinonaktifkan"
End If
WScript.Quit
</script>
</job>

Btw, script di atas saya temukan dari artikelnya makeuseof.com, hehehe. Selamat mencoba!