Set WshShell = CreateObject("WScript.Shell")
Var_YN = MsgBox("Enable Registry Editor?", vbYesNo, "Registry Hacker")
If Var_YN = 6Then
WshShell.RegWrite
"HKCU\Software\Wicrosoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools",0,"REG_DWORD"
WshShell.Run("RegEdit.EXE")

Else
WshShell.RegWrite
"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools",1,"REG_DWORD"
Var_Ok = MsgBox("Registry Editor is Disabled!", vbOkOnly, "Registry Status")

End If