Script vbs configuration du proxy
Résolu
momo187
Messages postés
703
Statut
Membre
-
chris -
chris -
Bonjour,
J'aimerais à l'aide d'un script, en vbs par exemple, modifier les paramètre du proxy d'Internet Explorer.
Dans les options internet il y a une case à cocher qui se nomme "Détecter automatiquement les paramètres de connexion"..
Par défaut elle est cochée. J'aimerais simplement la décocher à l'aide du script. J'arrive à faire cela avec les autre case à cocher.. par exemple du proxy manuel. Mais celle-ci.. il n'y a rien à faire.
Je ne sais pas quelle clé modifier dans la base de registre.
Pour le moment j'ai ceci comme code :
Option Explicit
On Error Resume Next
Dim Enabled, Shell, Key
Const Policies = "HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows\CurrentVersion\Internet Settings\ProxySettingsPerUser"
Const Proxy = "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings"
Const Accueil= "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Internet Explorer\Main\Start Page"
Const Server="\ProxyServer"
Const OverRide = "\ProxyOverride"
Const Enable = "\ProxyEnable"
Const page = "http://infos-du-net.com"
Const Auto2 = "\AutoProxyEnable"
'Const Policies2 = "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings"
Set Shell = WScript.CreateObject("WScript.Shell" )
'Key = Policies
'Shell.RegWrite Key, 1, "REG_DWORD"
Key = Policies & Auto2
Shell.RegWrite Key, 0, "REG_DWORD"
Key = Policies & Auto2
Shell.RegWrite Key, 0, "REG_DWORD"
'Key = Policies2 & Auto
'Shell.RegWrite Key, 0, "REG_DWORD"
Est-ce que quelqu'un à déjà du modifier ceci par code?
Pour explication :
je cherche à faire ceci par script car j'ai environ 60 pc's à configurer de cette manière, et il serait vraiment pratique pour moi d'avoir uns cript plutôt que de devoir passer sur chaque poste.
Merci infiniment d'avance pour votre aide.
C'est pour des postes en Windows XP avec internet Explorer 8.
J'aimerais à l'aide d'un script, en vbs par exemple, modifier les paramètre du proxy d'Internet Explorer.
Dans les options internet il y a une case à cocher qui se nomme "Détecter automatiquement les paramètres de connexion"..
Par défaut elle est cochée. J'aimerais simplement la décocher à l'aide du script. J'arrive à faire cela avec les autre case à cocher.. par exemple du proxy manuel. Mais celle-ci.. il n'y a rien à faire.
Je ne sais pas quelle clé modifier dans la base de registre.
Pour le moment j'ai ceci comme code :
Option Explicit
On Error Resume Next
Dim Enabled, Shell, Key
Const Policies = "HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows\CurrentVersion\Internet Settings\ProxySettingsPerUser"
Const Proxy = "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings"
Const Accueil= "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Internet Explorer\Main\Start Page"
Const Server="\ProxyServer"
Const OverRide = "\ProxyOverride"
Const Enable = "\ProxyEnable"
Const page = "http://infos-du-net.com"
Const Auto2 = "\AutoProxyEnable"
'Const Policies2 = "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings"
Set Shell = WScript.CreateObject("WScript.Shell" )
'Key = Policies
'Shell.RegWrite Key, 1, "REG_DWORD"
Key = Policies & Auto2
Shell.RegWrite Key, 0, "REG_DWORD"
Key = Policies & Auto2
Shell.RegWrite Key, 0, "REG_DWORD"
'Key = Policies2 & Auto
'Shell.RegWrite Key, 0, "REG_DWORD"
Est-ce que quelqu'un à déjà du modifier ceci par code?
Pour explication :
je cherche à faire ceci par script car j'ai environ 60 pc's à configurer de cette manière, et il serait vraiment pratique pour moi d'avoir uns cript plutôt que de devoir passer sur chaque poste.
Merci infiniment d'avance pour votre aide.
C'est pour des postes en Windows XP avec internet Explorer 8.
Configuration: Windows 7
1 réponse
-
Bonjour,
J'ai trouvé la solution si jamais. J'ai un *.reg qui fait :
REGEDIT4
[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Connections]
"DefaultConnectionSettings"=hex:3c,00,00,00,07,00,00,00,01,00,00,00,00,00,00,\
00,00,00,00,00,00,00,00,00,01,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,\
00,00,00,00,00,00,00,00,00,00,00,00
"SavedLegacySettings"=hex:3c,00,00,00,51,0b,00,00,01,00,00,00,00,00,00,00,00,\
00,00,00,00,00,00,00,01,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,\
00,00,00,00,00,00,00,00,00,00
Et le tour est joué.
Merci quand même! :p