Cara Enable Disable Regedit Dengan Notepad

Jika komputer anda tidak bisa membuka registry editor atau regedit, anda bisa membukanya dengan cara yang simple, yaitu dengan menggunakan visual basic script, tapi tidak perlu menggunakan aplikasi visual basic, cukup menggunakan notepad saja . 

Berikut SS-nya

1. Enable regedit

Script ini fungsi nya untuk mengaktivekan regedit, ketika pilihan kita Yes maka script akan membuka regedit yang telah di blokir. script ini di buat menggunakan notepad( start - all program - accessories- notepad) dengan ekstensi vbs, untuk script bisa di lihat di bawah ini

Dim vResultDim objShellvResult = MsgBox("do you want to enable registry editor? (kewelscience)", _vbYesNo + vbQuestion + vbDefaultButton2 + vbApplicationModal, _"Enable Disable Regedit VBS")If vResult = vbyes ThenSet objShell = CreateObject("WScript.Shell") objShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools", "0", "REG_DWORD" msgbox "registry editor has been enabled! (kewelscience)"elsemsgbox "regedit masih di blokir"End If 

save as dengan ekstensi vbs (misal : enable regedit.vbs)

2. Disable regedit

Kebalikan dari script enable regedit, fungsi dari script untuk memblokir regedit yang sedang aktive,ketika pilihan  kita Yes maka script akan secara otomatis memblokir regedit yang aktive. script ini di buat menggunakan notepad( start - all program - accessories- notepad) dengan ekstensi vbs, untuk script bisa di lihat di bawah ini 

Dim vResultDim objShellvResult = MsgBox("Do you want to disable registry editor? (kewelscience)", _vbYesNo + vbQuestion + vbDefaultButton2 + vbApplicationModal, _"Enable Disable Regedit VBS")If vResult = vbyes ThenSet objShell = CreateObject("WScript.Shell") objShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools", "1", "REG_DWORD" msgbox "Registry editor has been disabled"elsemsgbox "regedit belum di blokir"End If

save as dengan ekstensi vbs (misal: disable regedit.vbs)

3. Enable disabel regedit vbs

Scrip ini akan menunggu perintah dari user, ketika pilihan yes, maka regedit akan di disable, dan ketika pilihan no maka regedit akan kembali di aktifkan, untuk script nya bisa di lihat di bawah ini

Dim vResultDim objShellvResult = MsgBox("Pilih Yes Untuk disable Regedit, Pilih No Untuk Enable Regedit", _vbYesNo + vbQuestion + vbDefaultButton2 + vbApplicationModal, _"Enable Disable Regedit VBS")If vResult = vbyes ThenSet objShell = CreateObject("WScript.Shell") objShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools", "1", "REG_DWORD" msgbox " Registry editor has been disabled"
else
Set objShell = CreateObject("WScript.Shell") 
objShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools", "0", "REG_DWORD" 
msgbox "elseSet objShell = CreateObject("WScript.Shell") objShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools", "0", "REG_DWORD" msgbox "Registry editor has been enabled"
End IfEnd If