Cara membuka run dan regedit yang diblokir oleh virus Cara membuka run dan regedit yang diblokir oleh virus

Ketikkan script program dibawah ini dengan menggunakan Notepad lalu simpan dengan nama
Run.vbs/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.

untuk membuka/memblokir run


dim nanda
masuk()
sub masuk()
set nanda = wscript.CreateObject("wscript.shell")
keterangan = "Pilihan:" & vbcrlf &_
"[0].Aktifkan Run." & vbcrlf &_
"[1].Nonaktifkan Run." & vbcrlf & vbcrlf &_
"Perubahan akan terjadi setelah computer di restart"
tanya = inputbox(keterangan,"Run",0)
nanda.RegWrite"HKCU\Software\Microsoft\Windows\CurrentVersion" &_
"\Policies\Explorer\NoRun",tanya,"REG_DWORD"
if tanya=1 then
msgbox "Run dinonaktifkan",vbInformation,"Run"
else
if tanya=0 then
msgbox "Run diaktifkan",vbInformation,"Run"
nanda.RegDelete"HKCU\Software\Microsoft\Windows\CurrentVersion" &_
"\Policies\explorer\NoRun"
else
msgbox "Masukkan angka 0 atau 1!",vbInformation,"Run"
masuk()
end if
end if
end sub


untuk membuka/memblokir regedit


dim nanda
masuk()
sub masuk()
set nanda = wscript.CreateObject("wscript.shell")
keterangan = "Pilihan:" & vbcrlf &_
"[0].Aktifkan Regedit." & vbcrlf &_
"[1].Nonaktifkan Regedit." & vbcrlf & vbcrlf &_
"[Program Karya Indonesia]"
tanya = inputbox(keterangan,"Edit Regedit",0)
nanda.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"
nanda.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


Semoga berhasil...