Copiez et collez le code suivant pour créer la procédure de sous qui fera les modifications apportées à votre clé de Registre:
Sous RegKeySave (iRegKey As String,
i_Value As String, _I_Type option As String = "REG_SZ")
MyWS Dim comme objet
Réglez myWS = CreateObject ("WScript.Shell")
myWS.RegWrite i_RegKey, i_Value, i_Type
End Sub