VBS - Récupérer une clé de registre Résolu

Question

Bonjour,

Tout est dans le titre.
En fait je veux récupérer la clé de registre du proxy de Internet Explorer, voir si mes postes ont tous un proxy de configuré dans leur navigateur.

Les valeurs que je souhaite scanner dans le registre :

- HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings\ ProxyUnable
- HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings\ ProxyServer
- HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings\ AutoConfigURL

Il faut ensuite que j'insère ces valeurs à la fin d'un fichier XML existant qui doit avoir un peu cette gueule :

<IE SETTINGS>
<ProxyEnable>0 ou 1</ProxyEnable>
<ProxyServer>@IP du proxy</ProxyServer>
<AutoConfigURL>http://@IP du serveur/fichier.pac</AutoConfigURL>
</IE SETTINGS>

Je ne connais pas le VBS, donc pas gagné... Si une ame charitable tombe sur ce post... on ne sait jamais :)

Xavier · Answer

Bonjour,

set c=CreateObject("WScript.Shell" )
lol = c.RegRead("HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings\Proxyserver")
msgbox "Proxy Serveur : " & lol

Cdlt.

bezourox · Answer

ok merci je viens de tester avec 3 clés et ça fonctionne.
en revanche, si une des clé n'existe pas, le script plante :s il faudrait donc faire un controle sur l'existance de la clé.

ensuite, connais tu la fonction qui me permettrait d'écrire cela dans un fichier ?

Xavier · Answer

Pour éviter les erreurs et marquer quelque chose :

Set fs = CreateObject("Scripting.FileSystemObject" )
set c=CreateObject("WScript.Shell" )

AutoConfigURL = "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings\AutoConfigURL"

If ExisteCle(AutoConfigURL) = true then 
	AC = c.RegRead(AutoConfigURL)
Else
	AC = "Pas configurer"
End if

msgbox "AutoConfigURL : " & AC

Function ExisteCle( stKey)
On Error Resume Next
	Dim WshShell
	Set WshShell = WScript.CreateObject("WScript.Shell")
	WshShell.RegRead stKey
	ExisteCle = (Err = 0)
End function

Cdlt.

Xavier · Answer

Salut,

Bonne poire que je suis, je t'ai fais ton script !

http://www.cijoint.fr/cjlink.php?file=cj201007/cij8nNdvHh.zip

Cdlt.

Ps : n'hésites pas, si besoin d'aide ;)

bezourox · Answer

Bonjour,

Un grand merci, même si j'ai réussi à m'en sortir avec des exemples de code trouvé sur le net.

Par contre je usis ennuyé. Le script est exécuté par le compte admin local, et moi je cherche à récupérer ces 3 valeurs pour l'utilisateur en cours de session (différent du compte admin)

En bref, lorsque j'execute le script, il me retourne rien car le proxy IE du compte admin n'est pas configuré, alorsque l'utilisateur en cours a bien un proxy de configuré.

Je cherche donc maintenant à améliorer ce script pour le rendre utilisable, à savoir récupérer le SID de l'utilisateur en cours avant de récupérer les clés de registre, et là ça se complique car je ne trouve pas grand chose sur le net ...

VBS - Récupérer une clé de registre

5 réponses

Discussions similaires

Newsletters