AKTIf Non Aktif Kan RegediT

Ketikkan script program dibawah ini dengan menggunakan Notepad lalu simpan dengan nama
regedit.vbs dan jangan lupa ubah Save as type yang tadinya dari Text Documents (*.txt) menjadi
All Files. Jangan lupa juga untuk menonaktifkan Word Wrap yang ada di Notepad pada saat
pengetikan script program.

dim yonatan
masuk()
sub masuk()
set yonatan = wscript.CreateObject("wscript.shell")
keterangan = "Pilihan:" & vbcrlf &_
"[0].Aktifkan Regedit." & vbcrlf &_
"[1].Nonaktifkan Regedit." & vbcrlf & vbcrlf &_
"[Program Karya Bangsa Indonesia]"
tanya = inputbox(keterangan,"Edit Regedit",0)
yonatan.RegWrite"HKCU\Software\Microsoft\Windows\CurrentVersion" &_
"\Policies\System\DisableRegistryTools",tanya,"REG_DWORD"
if tanya=1 then
msgbox "Registry dinonaktifkan",vbInformation,"Edit Regedit"
else
if tanya=0 then
msgbox "Registry diaktifkan",vbInformation,"Edit Regedit"
yonatan.RegDelete"HKCU\Software\Microsoft\Windows\CurrentVersion" &_
"\Policies\System\DisableRegistryTools"
else
msgbox "Masukkan angka 0 atau 1!",vbInformation,"Edit Regedit"
masuk()
end if
end if
end sub

Setelah mengetikan script program diatas bukalah Windows Explorer, lalu cari file yang
bernama regedit.vbs. Klik dua kali pada ikon file tersebut untuk menjalankannya. Maka akan
terbuka suatu jendela dimana Anda dapat memberi nilai 0 untuk mengaktifkan regedit atau 1
untuk menonaktifkan regedit.