Dim DeP
ManageRegedit()
Sub ManageRegedit()
Set geogeek=WScript.CreateObject("wscript.shell")
describe="Type 0 or 1 : " & VbCrLf &_
  "[0] -> Regedit-ის ჩართვა." & VbCrLf &_
  "[1] -> Regedit-ის გამორთვა."

question=InputBox(describe, "Edit Regedit",0)
geogeek.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion" &_
  "\Policies\System\DisableRegistryTools",question,"REG_DWORD"

If question=1 Then
  MsgBox "Registry გამორთულია.",VbInformation, "Disabled"
Else
  If question=0 Then
  Msgbox "Registry ჩართულია.",VbInformation, "Enabled"
  geogeek.RegDelete "HKCU\Software\Microsoft\Windows\CurrentVersion" &_
  "\Policies\System\DisableRegistryTools"
  Else
  Msgbox "Input 0 or 1 only !",VbInformation, "Wrong Input"
  ManageRegedit()
  End If
End If
End Sub