Vérifier si une clé existe dans la base de registre


Commenter

Contenu du snippet

J'ai réédité la fonction pour qu'elle soit plus sûre de fonctionner et surtout pour qu'elle ressemble plus à FileExists et FolderExists.
----------------------------------------------
Voici une fonction simple à inclure dans tout fichier VBS.
Si la clé existe, la fonction renverra True, sinon la False.

Source / Exemple : 


'voici le code à insérer dans vos scripts :

Function RegExists(value)
On Error Resume Next
Set WS = CreateObject("WScript.Shell")
val = WS.RegRead(value)
If (Err.number = -2147024893) or (Err.number = -2147024894) Then
RegExists = False
Else
RegExists = True
End If
End Function

'voici un exemple :

If RegExists ("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\MSKernel32") Then
MsgBox "La valeur existe."
Else
MsgBox "La valeur n'existe pas."
End If 

'ça c'était pour vérifier l'existence de valeurs, pour vérifier l'existence d'une clé, il faudra rajouter un \ à la fin (la fonction regardera si la valeur par défaut de la clé existe donc si la clé existe), comme çà :

If RegExists ("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\") Then
MsgBox "La clé existe."
Else
MsgBox "La clé n'existe pas."
End If

Conclusion :


Je me suis dit que ça serait pratique vu qu'il existe des FileExists, FolderExists, mais pas ça.

A voir également