3 scripts VBS professionnels pour configurer les proxies sur Internet Explorer et Microsoft Edge

Protégez votre identité en ligne en utilisant des serveurs proxy anonymes qui masquent votre adresse IP réelle. Cela est idéal pour contourner les restrictions d'accès ou renforcer votre confidentialité.

Changer manuellement les paramètres proxy selon votre emplacement (domicile ou bureau) est fastidieux. Automatisez cela sur Windows 10 avec des scripts VBS simples, sans expertise en programmation.

Nous présentons trois scripts fiables pour basculer vos paramètres proxy dans Internet Explorer et Microsoft Edge, basés sur l'éditeur de registre Windows.

Configurer un serveur proxy manuellement

Avant l'automatisation, voici la méthode manuelle. Testez d'abord votre connexion Internet pour identifier les problèmes.

Les paramètres proxy se gèrent via les options réseau de LAN sur Internet Explorer ou Edge.

À domicile ou en Wi-Fi public, activez Détecter automatiquement les paramètres. Au bureau, configurez un proxy spécifique.

Vérifier les paramètres proxy sur Internet Explorer

Suivez ces étapes :

1. Ouvrez Internet Explorer.
2. Appuyez sur Alt + X et sélectionnez Options Internet.
3. Cliquez sur l'onglet Connexions.
4. Cliquez sur Paramètres LAN.
5. Modifiez les paramètres proxy si nécessaire.

Sous les paramètres LAN, activez ou désactivez le proxy. Utilisez un proxy anonyme pour masquer votre IP.

Vérifier les paramètres proxy sur Microsoft Edge

Edge utilise les paramètres Windows 10 :

1. Cliquez sur le bouton Démarrer.
2. Cliquez sur l'icône Paramètres (engrenage).
3. Sélectionnez Réseau et Internet.
4. Cliquez sur Proxy dans la barre latérale.
5. Ajustez la configuration.

Paramètres du registre proxy

Accédez via regedit (Exécuter). Les scripts modifient ces clés pour automatiser les changements LAN.

Pour en savoir plus sur les proxies, consultez des ressources fiables avant de poursuivre.

3 méthodes VBS pour modifier les paramètres proxy

Placez les scripts dans le dossier de démarrage ou exécutez-les manuellement. Ils gèrent trois cas :

1. Demande d'activation d'un proxy anonyme.
2. Saisie manuelle du serveur proxy.
3. Détection automatique de l'emplacement via IP.

Windows Script Host rend cela accessible.

1. Demander l'activation d'un proxy

Ce script demande confirmation et active un proxy codé en dur (modifiez https://votreproxy.com:80).

Option Explicit
Dim valUserIn
Dim objShell, RegLocate
Set objShell = WScript.CreateObject("WScript.Shell")
On Error Resume Next
valUserIn = MsgBox("Utiliser un proxy masqué ?", 4, "Proxy masqué")
If valUserIn = vbYes Then
  RegLocate = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyServer"
  objShell.RegWrite RegLocate, "https://www.youareanonymous.com:80", "REG_SZ"
  RegLocate = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyEnable"
  objShell.RegWrite RegLocate, "1", "REG_DWORD"
  MsgBox "Proxy masqué activé"
Else
  RegLocate = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyServer"
  objShell.RegWrite RegLocate, "", "REG_SZ"
  RegLocate = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyEnable"
  objShell.RegWrite RegLocate, "0", "REG_DWORD"
  MsgBox "Proxy masqué désactivé"
End If
WScript.Quit

Enregistrez en .vbs et exécutez.

2. Saisir le proxy manuellement

Flexibilité maximale : entrez le serveur au besoin.

Option Explicit
Dim valUserIn, objShell, RegLocate
Set objShell = WScript.CreateObject("WScript.Shell")
On Error Resume Next
valUserIn = InputBox("Entrez le serveur proxy (ex: proxy.com:80)", "Serveur proxy")
If valUserIn <> "" Then
  RegLocate = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyServer"
  objShell.RegWrite RegLocate, valUserIn, "REG_SZ"
  RegLocate = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyEnable"
  objShell.RegWrite RegLocate, "1", "REG_DWORD"
  MsgBox "Proxy activé"
End If
WScript.Quit

3. Détection automatique par IP

Vérifie votre IP publique (via showmyip.com). Adaptez la plage IP domestique (ex: "69.161") et le proxy.

Option Explicit
Dim objShell, RegLocate, objRemXML, objMyIP, strIPAddress, strHomeDomain
Set objShell = WScript.CreateObject("WScript.Shell")
On Error Resume Next
Const cstrShowMyIP = "https://www.showmyip.com/xml/"
Set objRemXML = CreateObject("Microsoft.XMLDOM")
objRemXML.async = False
objRemXML.load(cstrShowMyIP)
Set objMyIP = objRemXML.selectSingleNode("/ip_address/ip")
strIPAddress = objMyIP.text
strHomeDomain = Left(strIPAddress, 6)
If strHomeDomain = "69.161" Then
  RegLocate = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyServer"
  objShell.RegWrite RegLocate, "", "REG_SZ"
  RegLocate = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyEnable"
  objShell.RegWrite RegLocate, "0", "REG_DWORD"
  MsgBox "Proxy désactivé (IP domestique)"
Else
  RegLocate = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyServer"
  objShell.RegWrite RegLocate, "https://www.youareanonymous.com:80", "REG_SZ"
  RegLocate = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyEnable"
  objShell.RegWrite RegLocate, "1", "REG_DWORD"
  MsgBox "Proxy activé (IP externe)"
End If
Set objMyIP = Nothing
Set objRemXML = Nothing
WScript.Quit

Utiliser ces scripts proxy sur Windows 10

Ces exemples illustrent l'automatisation simple avec Windows Script Host. Personnalisez-les pour vos besoins.

Préférez des alternatives sans scripts ? Essayez nos meilleurs proxies web pour contenu géobloqué et confidentialité.