Registry anda bermasalah

Registry anda bermasalah ??
Komputer anda terserang virus dan tiba2 tool sakti yang bernama regedit gak juga mau jalan ???
Warnet tempat anda chatting dan belajar ngotak atik [komputer orang] dibatasi oleh admin yang "jahat"??
Anda ingin Regedit kembali berjalan seperti yg anda mau ?
Anda ingin regedit tidak berjalan krn banyak pengguna warnet yang "jahil"

Jawabanya????

Jangan tanya saya !!!
karena saya pasti lupa ditaruh mana itu key untuk mengaktif/nonaktifkan regedit berada.

"trus gimana doong??"

google.. yah Google Search !!

Beneran gue jg udah lupa HKEY_LOCAL_MACHINE dan HKEY_CURRENT_USER tuh ada dimana tepatnya untuk diubah nilainya agar suatu fungsi berjalan kembali seperti yang kita mau.

Sampai satu saat gue butuh lagi untuk itu, dan sekarang gue mau bukukan trik ini biar semuanya juga bisa menyisakan sebagian otaknya untuk mengingat hal penting lain [bukan nilai registri :P]

PERTAMA:
Buatlah file text baru di drive C:\ dan beri nama reg.txt, satu alasan biar lebih mudah kita mengaksesnya nanti lewat command prompt.

KEDUA:
Copy paste code dibawah ini kedalam file reg.txt tadi

-------------------------------------------------------------------------------------
'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
'Edited again by orang_iseng http://www.azismn.blogspot.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 Editor anda sekarang "
ttl = "Berhasil"

'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 & "tidak bisa digunakan", 4096, ttl)
Else
WSHShell.RegDelete val
WSHShell.RegDelete val2
Mybox = MsgBox(jobfunc & "bisa digunakan", 4096, ttl)
End If


------------------------------------------------------------------------------------

KETIGA:
Simpan perubahan pada file baru anda ini dan rename it/ ganti nama file baru itu dengan reg.vbs [bukan lagi reg.txt]


Sekarang switch anda sudah bisa digunakan untuk mengaktif/nonaktifkan Registry Tool anda dengan menjalankan file reg.vbs lewat command prompt.



C:\>reg.vbs


Selamat mencoba..................