Aide Création sous-répertoire VBS

BOnjour à tous,

Voici mon Code:
Dim oWsh
Dim Cle
Set oWsh = CreateObject("WScript.Shell")
Cle = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Domains\rtss.qc.ca"
oWsh.RegWrite Cle,"","REG_SZ"
Set oWsh = CreateObject("WScript.Shell")
Cle = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Domains\rtss.qc.ca\*.infosanteetinfosocial"
oWsh.RegWrite Cle, 2, "REG_DWORD"
Set oWsh = Nothing    
WScript.Quit

Problème : Le sous répertoire n'est pas créé [RTSS.QC.CA] et il n'a aucun méessage d'erreur lorsque je roule le script. Quelqu'un pourrait m'aider.

Merci
DraaFil

Bonjour,

Mais...
Je ne comprends pas ...
Ton code n'est pas fait pour créer un sous-répertoire, mais pour ajouter des clés dans la base de registre ...

d'accord!

La cle suivante :
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Domains\rtss.qc.ca\*.infosanteetinfosocial"
oWsh.RegWrite Cle, 2, "REG_DWORD"


normalement dnas le réportoire "DOMAINS" il devrait avoir un sous -répertoire "RTSS.QC.CA" sauf que sa fonctionne pas, pourrais tu m'aider pour que cela fonctionne, je ne connais pas trop les fonction du registre en vbs

Merci
Draafil