Comment supprimer une entrée de registre de Windows 2008/Vista

Question

J'ai ce script pour fonctionner sur Windows 2008/Vista pour supprimer une clé de Registre, mais je ne peux pas le faire fonctionner:

Const HKEY_CLASSES_ROOT  = &H80000000 
strComputer = "." 
strKeyPath = "Installer\Products\334A4D1453680B74CA87BEE6B7E40113" 
Set objRegistry = GetObject("winmgmts:\\" & _ 
    strComputer & "\root\default:StdRegProv") 
DeleteSubkeys HKEY_CLASSES_ROOT, strKeypath 

Private Sub DeleteSubkeys(HKEY_CURRENT_USER, strKeyPath) 
    strComputer = "." 
    Set objRegistry = GetObject("winmgmts:\\" & _ 
    strComputer & "\root\default:StdRegProv") 

    objRegistry.EnumKey HKEY_CURRENT_USER, strKeyPath, arrSubkeys 
    If IsArray(arrSubkeys) Then 
    For Each strSubkey In arrSubkeys 
     DeleteSubkeys HKEY_CURRENT_USER, strKeyPath & "\" & strSubkey 
    Next 
    End If 

    objRegistry.DeleteKey HKEY_CURRENT_USER, strKeyPath 
End Sub 

Toute idée Pourquoi?

Answer 1

L'exécutez-vous en tant qu'administrateur? Malgré votre utilisation de HKEY_CURRENT_USER comme nom de paramètre, vous essayez de supprimer à partir de HKEY_CLASSES_ROOT, ce qui nécessiterait normalement un accès élevé.