Script per impostazione proxy in ambiente Windows.

Spesso, dalle reti interne aziendali, non è consentita la navigazione diretta verso Internet, ma si è obbligati all'utilizzo di un proxy server posizionato in LAN.

Sui notebook però, che possono essere utilizzati anche fuori azienda, si deve cambiare l'importazione di navigazione su Internet Explorer/Chrome in modo da escludere o abilitare il proxy server a seconda del contesto.

L'operazione richiede pochi passaggi, ma alla lunga è piuttosto noiosa, per cui ho preparato uno script per facilitare l'impostazione.

Per i browser Internet Explorer e Chrome l'impostazione sull'uso del proxy è tramite una chiave di registro di Windows, mentre Mozilla Firefox utilizza il file perfs.js.

Lo script che ho preparato va a lavorare solo sul registry di Windows, quindi funziona solo per IE/Chrome o, anche per Mozilla, se è definito l'utilizzo delle impostazioni di sistema per il proxy.

Vediamo prima i passaggi manuali, per esempio da IE: Strumenti - Opzioni Internet

Connessioni - Impostazioni LAN

Per Mozilla: Strumenti - Opzioni

Rete - Impostazioni

se si vuole che lo script funzioni anche per Mozilla si deve scegliere di usare le impostazioni del sistema.

Questo lo script: set_proxy.vbs

'------------------------------------------------------------
'set_proxy.vbs: script per chiedere all'utente se utilizzare
'               proxy per la navigazione Internet.
'Nota         : cambia registry per IE/Chrome non per Mozilla 
'Autore       : Fabio Giacobbe 25/05/2017             
'------------------------------------------------------------
Option Explicit
Dim valUserIn
Dim objShell, RegLocate, RegLocate1
Set objShell = WScript.CreateObject("WScript.Shell")
On Error Resume Next

' Variabile con indirizzo proxy e porta, formato: "ip:porta"
proxy = "nnn.nnn.nnn.nnn:porta"

' Apre message box per richiesta all'utente
valUserIn = MsgBox("Usare Proxy ?",4,"Scelta Proxy")

' Aggiorna registry secondo la scelta utente
If valUserIn=vbYes Then
  RegLocate = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyServer"
  objShell.RegWrite RegLocate,proxy,"REG_SZ"
  RegLocate = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyEnable"
  objShell.RegWrite RegLocate,"1","REG_DWORD"
  MsgBox "Proxy is Enabled"
else
  RegLocate = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyEnable"
  objShell.RegWrite RegLocate,"0","REG_DWORD"
  MsgBox "Proxy is Disabled"
End If

WScript.Quit

evidenziata in giallo la parte dove riportare i dati del vostro proxy nel formato "ip:porta", esempio "192.168.10.10:3128".

Quando si avvia lo script si apre una finestra dove viene chiesto se usare o meno il proxy

poi un messaggio avvisa dell'avvenuta impostazione