Registry Enable

Kita pasti jengkel kalau kita berniat utak-atik registry yang keluar malah seperti gambar di  bawah :

dengan gambar tersebut berarti registry editor kita terdisable. bagaimana cara re-enable-nya?????


disini salah satu cara untuk enable registry dengan menggunakan skript vbs. caranya :
buka notepad, copy/paste script di bawah, and save dengan nama file:  a .vbs , tinggal klik 2x :

'Enable/Disable Registry Editing tools

'© Doug Knox - rev 12/06/99

'This code may be freely distributed/modified as long as it remains free of charge

'http://www.icpug.org.uk/national/features/030607fe.htm

'Edited by PatheticCockroach - http://patheticcockroach.com

Option Explicit

'Declare variables

Dim WSHShell, rr, rr2, MyBox, val, val2, ttl, toggle

Dim jobfunc, itemtype

On Error Resume Next

Set WSHShell = WScript.CreateObject("WScript.Shell")

val = "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools"

val2 = "HKLM\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools"

itemtype = "REG_DWORD"

jobfunc = "Registry Editing Tools are now "

ttl = "Result"

'reads the registry key value.

rr = WSHShell.RegRead (val)

rr2 = WSHShell.RegRead (val2)

toggle=1

If (rr=1 or rr2=1) Then toggle=0

If toggle = 1 Then

                WSHShell.RegWrite val, 1, itemtype

                WSHShell.RegWrite val2, 1, itemtype

                Mybox = MsgBox(jobfunc & "disabled.", 4096, ttl)

Else

                WSHShell.RegDelete val

                WSHShell.RegDelete val2

                Mybox = MsgBox(jobfunc & "enabled.", 4096, ttl)
semoga bermanfaat...