Andryscreamo's Blog

i am always alone

Membuka Registry yang Terkunci

Mungkin anda pernah mengalami registry windows anda terkunci atau sengaja di disable oleh teman anda yang iseng mungkin, administrator lab/kantor/warnet dll. Dengan tampilan pesan sebagai berkut :

terus bagaimana membukanya kembali?? mungkin tips ini bermanfaat bagi anda yang mengalami masalah diatas  padahal anda sangat memerlukannya untuk mengedit registry.

Buka Notped —> copy script dibawah —–> kemudian disimpan dengan ext. vbs (vb script)

misal anda memberi nama coba maka akan tersimpan dengan nama —–>  coba.vbs

<——- Script ———>


On error resume next
Dim Reg
Set Reg = CreateObject(“WScript.Shell”)
if msgbox(“Enable Registry Tool ?” , VbOkCancel) = VbOK then
Reg.RegWrite “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools”, “0″, “REG_DWORD”
end if

kemudian untuk menjalankannya anda tinggal double klik

coba jalankan registry apa sudah berhasil dibuka ?

SCRIPT UNTUK KASUS LAIN

anda tinggal mengcopy script yang anda maksud kemudian masukan ke file yang anda buat diatas

<———————————————————————————————————————

if msgbox(“Kembalikan menu Run ?” , VbOkCancel) = VbOK then

Reg.RegWrite “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoRun”, “0″, “REG_DWORD”

end if

<———————————————————————————————————————

if msgbox(“Perlihatkan file hidden” , VbOkCancel) = VbOK then

Reg.RegWrite “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\Advanced\Hidden”, “1″, “REG_DWORD”

end if

<———————————————————————————————————————

if msgbox(“Kembalikan menu Find” , VbOkCancel) = VbOK then

Reg.RegWrite “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFind”, “0″, “REG_DWORD”

end if

<———————————————————————————————————————

if msgbox(“Kembalikan menu Option” , VbOkCancel) = VbOK then

Reg.RegWrite “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFolderOptions”, “0″, “REG_DWORD”

end if

<———————————————————————————————————————

if msgbox(“Enable Taskmanager” , VbOkCancel) = VbOK then

Reg.RegWrite “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr”, “0″, “REG_DWORD”

end if

sekian sedikit tips, mudah2an bermanfaat.

On error resume nextDim RegSet Reg = CreateObject(“WScript.Shell”)if msgbox(“Enable Registry Tool ?” , VbOkCancel) = VbOK thenReg.RegWrite “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools”, “0″, “REG_DWORD”end if

Agustus 18, 2010 - Posted by | 1, info, internet

Belum ada komentar.

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

%d blogger menyukai ini: