Discussion :

[Crackgen974]

Bonjour à tous, je viens de mettre en place un serveur proxy et il faut que je lance un script vbs pour paramètrer IE sur une vingtaine de postes

Mon script vbs active le proxy, ajoute l'adresse et le port, et coche la case "ne pas utiliser le proxy pour les adresses locales"

j'ai quelques sites à mettre en exception, après plusieurs essai je n'arrive pas à ajouter d'exceptions

voici mon script

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Const HKEY_CURRENT_USER = &H80000001
 
strComputer = "."
Set objRegistry = GetObject("winmgmts:\\" & strComputer & "\root\default:StdRegProv")
Set oWshShell = CreateObject("WScript.Shell")
 
strKeyPath = "SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings"
strRegPath = "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\"
strValueName = "ProxyEnable"
dwValue = 1
objRegistry.SetDWORDValue HKEY_CURRENT_USER, strKeyPath, strValueName, dwValue
Call oWshShell.RegWrite(strRegPath & "ProxyEnable", "00000001", "REG_DWORD")
 
strValueName = "ProxyServer"
strValue = "192.168.10.58:3128"
objRegistry.SetStringValue HKEY_CURRENT_USER, strKeyPath, strValueName, strValue
 
strValueName = "ProxyOverride"
strValue = "<local>"

[Crackgen974]

Quelqu'un pourrait m'aider svp ??

[tsuji]

Vous voulez dire ceci, tout comme pour ProxyServer, ne marche pas ?

Code vbscript :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
strValueName = "ProxyOverride"
strValue = "<local>" 
objRegistry.SetStringValue HKEY_CURRENT_USER, strKeyPath, strValueName, strValue

ps Pourquoi se doubler, lignes #11 et #12 ?

[Crackgen974]

Mon script fonctionne très bien il coche dans IE "ne pas utiliser le proxy pour les adresses locales", il active mon proxy et entre automatiquement l'adresse et le port
J'aimerais maintenant qu'il ajoute en exception ".*local "
après de nombreux essais je n'y arrive toujours pas

[tsuji]

Vous pouvez faire comme ça.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

strValue=strValue & ";" & "*.*local"

La liste forme une liste d'adresses concaténées et point-virgule séparées.

D'ailleurs ligne #11 et ligne #12 font la même chose. Vous êtes content de ça ?!

[Crackgen974]

Je ne savais pas (je débute)
Pourrais tu écrire le script pour qu'il coche la case "ne pas utiliser le proxy pour les adresses locales" et qu'il ajoute .*local en exception j'ai essayé ta ligne mais ça ne fonctionne pas
Merci d'avance

[tsuji]

Si tu écrit '.*local', c'est '.*local' avec un "wildcard". Ce n'est pas un nom géneric. Il te faut collectionner les fqdn ou ip adresses vrais proprement pour ton LAN ou Intranet. Ca ne se fait pas en se dirant 'local' comme une passe partout. Il te faut faire une recherche sur la net pour se faire une idée précise.