How to Open Locked Regsitry

Trick to Open locked registry

I got this trick from nebulla

Registry is the vital component on Windows OS. It has many values stored on it, which each value gives unique function of your system. Some viruses also try to add some values which can make your system unstable and lock the registry. Many tools available to "communicate" with this component. But you can simply make private tool to make some "communications" when your registry has been locked. Try this code. You can paste it into notepad editor.

<======start point=======>
'Enable/Disable Registry Editing tools
'© Doug Knox - rev 12/06/99

Option Explicit

'Declare variables
Dim WSHShell, n, MyBox, p, t, mustboot, errnum, vers
Dim enab, disab, jobfunc, itemtype

Set WSHShell = WScript.CreateObject("WScript.Shell")
p = "HKCU\Software\ Microsoft\ Windows\CurrentV ersion\Policies\ System\"
p = p & "DisableRegistryToo ls"
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
t = "Confirmation"
On Error Resume Next
n = WSHShell.RegRead (p)
On Error Goto 0
errnum = Err.Number

if errnum <> 0 then
'Create the registry key value for DisableRegistryTool s with value 0
WSHShell.RegWrite p, 0, itemtype
End 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 Then
n = 1
WSHShell.RegWrite p, n, itemtype
Mybox = MsgBox(jobfunc & disab & vbCR & mustboot, 4096, t)
ElseIf n = 1 then
n = 0
WSHShell.RegWrite p, n, itemtype
Mybox = MsgBox(jobfunc & enab & vbCR & mustboot, 4096, t)
End If
<======End point======>

Save as regtools.vbs. To execute it, you just to double click it.
I hope useful for you... Don't forget to leave your comments

No comments:

Post a Comment