vbs ajout site de confiance

Bonjour, je cherche a créer un script vbs qui ajoute certain site dans la liste des site de confiance de IE, voila ce que j'ai actuellement :

Code:

---

1 2 3

Dim WshShell Set WshShell = WScript.CreateObject("WScript.Shell") WshShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Domains\monsite.com\*",2,"REG_DWORD"

---

Le problème c'est qu'il me mets 1 étoile devant monsite.com comme ceci : *.monsite.com

Sa ne marche donc pas.

Merci d'avance.

Salut
Il me semble que

Code:

---

WshShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Domains\monsite.com\www\http",2,"REG_DWORD"

---

Merci sa marche !

Dans le cadre d'1 intranet, peut on transformer ce script en activeX ? si oui comment ?