How to Ensure that Registry key is present?

[BADRU]

Hello , i wanted to check and Ensure that any particular Registry is not present or not , can you tell me how can i do so , without checking manually, i mean is there any software to check that or any batch or Vb script to perform the job for me , please help me , thanks in advance

[Dr. V]

You can check this Code

Dim Cal
Dim Value
Dim WshShell
Set WshShell = WScript.CreateObject("WScript.Shell")
Cal = "Location of Registry KEy "
On Error Resume Next
Valeur = WshShell.RegRead(Cal)
msgbox err.number

[Humberto]

the Above Code does Seem to be proper You can Check this , it is tested and working

Set oshell = CreateObject("WScript.Shell")
Err.Clear
On Error Resume Next
strRegKey = oshell.RegRead ("key to be Verified should be present")

If Err.Number <> 0 Then
WScript.Echo "The Key is not present"
Else
WScript.Echo "The Key is present"
End If

[Lillebror]

Hello , this one is really cool , this one check to see if exist or not and if exist you can also change the key

Private Sub Form_Load()
Dim intReturned As Integer
Dim strInitial As String
strInitial = "0"
Dim WSHShell
Set WSHShell = CreateObject("WScript.Shell")
'check to see if key is present
If WSHShell.RegRead("key location ") = "" Then
WSHShell.RegWrite "Action ", strInitial
End If