[R] Clé de registre valide mais toujours erreur

[Ks10]

Bonjour à tous !

J'essaye de vérifier la présence du clé de registre mais quelque soit la résultat c'est à dire qu'elle soit présente ou non celle-ci m'affiche une erreur.

Code : Tout sélectionner

For $i = 1 To 100
        $var = RegEnumKey("HKCU\Software", $i)
        If @error <> 0 Then Exit
        If $var = "maclef" Then
            MsgBox(64, "Informations", "OK")
        Else
            MsgBox(64, "Infos", "Erreur")
            ExitLoop
        EndIf

Next

J'ai fait 2 tests :
- Le premier test : En créant manuellement la clé dans la BDR.
- Le second test : En créant automatiquement la clé dans la BDR en passant par regwrite.

Mais les deux tests renvoie "erreur", lorsque j'effectue la vérification.

Où est mon erreur ?
Ps : J'ai même rajouter #requireadmin avant et ça ne change rien.

Cordialement

[mikell]

Ton script ne teste que la 1ère clé de la liste

► Afficher le texte

Code : Tout sélectionner

$ok = false
For $i = 1 To 100
        $var = RegEnumKey("HKCU\Software", $i)
        If @error <> 0 Then Exitloop
        If $var = "Adobe" Then
            $ok = true
            ExitLoop
       EndIf
Next
If $ok = true Then
      MsgBox(64, "", "OK clé n° " & $i)
Else
      MsgBox(64, "", "Erreur")
EndIf
 

[Ks10]

D'accord autant pour moi :')
Merci beaucoup.