Enable/Disable Registry Editing tools

'Enable/Disable Registry Editing tools'© Joji - rev 12/06/99
Option Explicit
'Declare variablesDim WSHShell, n, MyBox, p, t, mustboot, errnum, versDim enab, disab, jobfunc, itemtype
Set WSHShell = WScript.CreateObject("WScript.Shell")p = "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\"p = p & "DisableRegistryTools"itemtype = "REG_DWORD"mustboot = "Log off and back on, or restart your pc to" & vbCR & "effect the changes"enab = "ENABLED"disab = "DISABLED"jobfunc = "Registry Editing Tools are now "
'This section tries to read the registry key value. If not present an'error is generated. Normal error return should be 0 if value is'presentt = "Confirmation"Err.ClearOn Error Resume Nextn = WSHShell.RegRead (p)On Error Goto 0errnum = Err.Number
if errnum <> 0 then'Create the registry key value for DisableRegistryTools with value 0WSHShell.RegWrite p, 0, itemtypeEnd If
'If the key is present, or was created, it is toggled'Confirmations can be disabled by commenting out'the two MyBox lines below
If n = 0 Thenn = 1WSHShell.RegWrite p, n, itemtypeMybox = MsgBox(jobfunc & disab & vbCR & mustboot, 4096, t)ElseIf n = 1 thenn = 0WSHShell.RegWrite p, n, itemtypeMybox = MsgBox(jobfunc & enab & vbCR & mustboot, 4096, t)End If



Create the Notepad.txtCopy & Paste this content in Notepad and save it .vbs extension.(Notepad.vbs)Then double-click on it.One Message will appears...If your regedit enable it will going to disable.......If your regedit disable it will going to enable.......