Manipuler le registre en VBScript

Creer:
Dim key As Microsoft.Win32.RegistryKey
key = Microsoft.Win32.Registry.CurrentUser.CreateSubKey("Noms")
key.SetValue("Nom", "Philippe")


lire:
Dim key As Microsoft.Win32.RegistryKey
key = Microsoft.Win32.Registry.CurrentUser.OpenSubKey("Noms")
Dim name As String = CType(key.GetValue("Nom"), String)


Supprimer:
Dim key As Microsoft.Win32.RegistryKey
key = Microsoft.Win32.Registry.CurrentUser.OpenSubKey("Noms", True)
key.DeleteValue("Nom")

Dim WshShell, bKey, pKey, quest
Set WshShell = WScript.CreateObject("WScript.Shell")
on error resume next

pKey = "HOME_KEY_CURRENT_USER\Software\Wine\Explorer\Desktop"
bKey = WshShell.RegRead(pKey)

If (Err <> 0) then
'Wscript.Echo Computer & " " & Err.Description
Err.Clear

WScript.Echo "Clé " & pKey & " inexistante"

quest = MsgBox("Désirez-vous créer la clé",vbYesNo + 256 + vbQuestion, "Créer la clé")
if (quest = vbYes) then
WshShell.RegWrite pKey, "Default"
WScript.Echo "Clé " & pKey & " créée"
end if

else
WScript.Echo pKey & " : " & WshShell.RegRead("HKCU\virusScanner\Version\")
quest = MsgBox("Désirez-vous supprimer la clé",vbYesNo + 256 + vbCritical, "supprimer la clé")
if (quest = vbYes) then
WshShell.RegDelete pKey
WScript.Echo "Clé supprimée"
else
WScript.Echo "Clé non supprimée"
end if
end if

Oui, mais si je ne m'abuse, c'est du Visual Basic.NET... Le seul problème c'est que je voudrais arriver à le faire via VBScript (Windows Scripting Host si vous préferrez)