VBS et IE

[Gzav]

Salut les gens !!

Je cherche un moyen de pouvoir mettre a jour les parametres réseau d'internet explorer de mes clients.

J'aurais besoin de faire un truc automatisé qui me permettrait de modifier les paramètres proxy, les exceptions etc...

J'ai pensé au VBS, pouvez-vous me donner un coup de main ou des liens vers des sites proposant de l'aide la dessus...

Merci

Gzav

[Gzav]

Bon désolé pour le flood,

j'ai trouvé...

Gzav

[grimms]

ben donne la soluce

[Mechanics]

Originally posted by Gzav@lundi 12 mai 2003, 09:56
Bon désolé pour le flood,

j'ai trouvé...

Gzav

Il va la donner sa soluce ??? :diablo:

Il floode et il donne pas sa solution ...

Sont bizarres ces membres GNT :diablo:

[Gzav]

Meuh si jla donne !!! rahhh

Sont impatients ces modos !!!

Alors voila le source de mon VBS :


'*************************
'Déclaration des variables
'*************************
Dim fso
Dim WshShell
Dim WshEnv
Dim ObjNet

'********************
'Inclusion des Objets
'********************
Set fso = CreateObject("Scripting.FileSystemObject")
Set WshShell = Wscript.CreateObject("Wscript.Shell")
Set WshEnv = WshShell.Environment("Process")


'************************************************* ***********************************
'Modification des paramètres Internet Explorer pour l'utilisateur Courant.
'************************************************* ***********************************
'************************************
'Suppression de la page de démarrage.
'************************************
strKeyPath = "SoftWare\Microsoft\Internet Explorer\Main\"
strValueName = "Search Bar"
strValue = "about:Blank"
wshShell.regwrite "HKEY_CURRENT_USER\" & strKeyPath & strValueName,strValue,"REG_SZ"

strKeyPath = "SoftWare\Microsoft\Internet Explorer\Main\"
strValueName = "Start Page"
strValue = "about:Blank"
wshShell.regwrite "HKEY_CURRENT_USER\" & strKeyPath & strValueName,strValue,"REG_SZ"

'*********************************
'Suppression et mise à jour de l'adresse du Proxy
'*********************************
strKeyPath = "SoftWare\Microsoft\Windows\CurrentVersion\Interne t Settings\"
strValueName = "ProxyServer"
strValue = ""
wshShell.regwrite "HKEY_CURRENT_USER\" & strKeyPath & strValueName,strValue,"REG_SZ"

strKeyPath = "SoftWare\Microsoft\Windows\CurrentVersion\Interne t Settings\"
strValueName = "ProxyEnable"
strValue = "1"
wshShell.regwrite "HKEY_CURRENT_USER\" & strKeyPath & strValueName,strValue,"REG_DWORD"

'Bien choisir dans la séquence suivante SOIT gopher SOIT Socks....
strKeyPath = "SoftWare\Microsoft\Windows\CurrentVersion\Interne t Settings\"
strValueName = "ProxyServer"
strValue = "gopher ou FTP ou Socks ou Sécurisé ou HTTP=MonProxy:MonPort"
wshShell.regwrite "HKEY_CURRENT_USER\" & strKeyPath & strValueName,strValue,"REG_SZ"

strKeyPath = "SoftWare\Microsoft\Windows\CurrentVersion\Interne t Settings\"
strValueName = "ProxyOverride"
strValue = "Mes Adresses Exclues de type "192.168.*" ou de type "*.generation-nt.com" le Tout Séparé Par Des Points Virgules"
wshShell.regwrite "HKEY_CURRENT_USER\" & strKeyPath & strValueName,strValue,"REG_SZ"

<span style='color:blue'>'Dans le strvalue on peut rajouter "< local >"(sans les espaces et les guillemets, le forum comprend pas) ce qui permet de cocher automatiquement l'option "Ne pas utiliser de serveur Proxy pour les adresses locales"

'************************************************* **
'Ajout des zones de sécurités pour l'Intranet local.
'************************************************* **
strKeyPath = "Software\Microsoft\Windows\CurrentVersion\Interne t Settings\ZoneMap\Domains\MonDomaine.com\"
strValueName = "http"
strValue = "1"
wshShell.regwrite "HKEY_CURRENT_USER\" & strKeyPath & strValueName,strValue,"REG_DWORD"

strKeyPath = "Software\Microsoft\Windows\CurrentVersion\Interne t Settings\ZoneMap\Domains\MonDomaine.com\MonPremier SousRépertoire\"
strValueName = "http"
strValue = "1"
wshShell.regwrite "HKEY_CURRENT_USER\" & strKeyPath & strValueName,strValue,"REG_DWORD"

strKeyPath = "Software\Microsoft\Windows\CurrentVersion\Interne t Settings\ZoneMap\Domains\MonDomaine.com\MonSecondS ousRépertoire\"
strValueName = "http"
strValue = "1"
wshShell.regwrite "HKEY_CURRENT_USER\" & strKeyPath & strValueName,strValue,"REG_DWORD"

'*******************************
'Message de fin de configuration
'*******************************
MsgBox "La configuration d'Internet Explorer est terminée."</span>

Les chti commentaires en bleu, le reste en noir...

Ca vous plait ?

Moi ca me retire une belle épine du pied !! Un collegue en moins sur le dos !!

Mouarf !!

Il ne reste plus qu'a le mettre à votre sauce et à vos paramètres !!

Tous a vos claviers !!! et vos neurones !! LOL

Gzav

PS: VBS --> Langage Objet inbouffable mais d'une puissance...

[Gzav]

Eh ben dis donc !!

Ca piaille et ca réclame !!

Et pis ca laisse meme pas de commentaires !!!!

Bouhhhhhhh

Bande de vilains !

Gzav

[Alf]

Je connait le visual basic (suis pas un pro pour autent :o), mais pas le vbs,

'*************************
'Déclaration des variables
'*************************
Dim fso
Dim WshShell
Dim WshEnv
Dim ObjNet

Tu déclare pas les types de données?? Ca te les met en donc en Objet, mais ça serais plus propre de le preciser, si tu as option strict en plus, ça bug!

Je suis en plein exam, je n'est pas pu prendre le temps de regarder ça plus tôt, désoler :$!

ps: si on te demande la source, c'est parce que ça peux servir pour d'autre, comme moi !

[Gzav]

Meuh oui copain, c'est juste que entre le moment ou j'ai dis que j'avais trouvé et le moment ou j'ai posté le code source, il a fallu le tester comlpetement et que ca fasse ce que je veux jusko bout

Je ne me suis donné le droit de le publier que qd ca marchait a 100% et comme j'ai un peu merdé pour trouvé ca :

'Dans le strvalue on peut rajouter "< local >"(sans les espaces et les guillemets, le forum comprend pas) ce qui permet de cocher automatiquement l'option "Ne pas utiliser de serveur Proxy pour les adresses locales"

C'est tout c'est tout !!

M'en reuva !!

Gzav

PS: LE TOP le nouveau serveur ! mouarf ! j'en connais qui vont flooder N fois plus vite !!

[Mechanics]

Ca piaille et ca réclame !!

Et pis ca laisse meme pas de commentaires !!!!

Bah ... c'est un peu du charabia pour moi tout ça :diablo:

PS: LE TOP le nouveau serveur ! mouarf ! j'en connais qui vont flooder N fois plus vite !!

Certainement pas moi /o

[Gzav]

MDR !!

J'aime beaucoup le petit smiley avec une auréole sur la tete expirmant quelque chose du genre....

"Roh, si peut etre un petit peu, mais c'est plus fort que moi, méééééé euh"

Gzav

PS:

Il va la donner sa soluce ???

mouarf !

PS2:

Bah ... c'est un peu du charabia pour moi tout ça

Mouarf (bis)