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...