Memunculkan Command Prompt Atau RUN Yang Hilang

Author : Belajar Blogger (newbielabs.blogspot.com)

Masih nerusin tips buat yang beberapa bagian windowsnya di disable, setelah kemaren cara membuka kembali folder options yang didisable sekarang giliran gimana cara membuka command prompt yang lagi lagi didisable...

Sekali lagi credit goes to : Rayap.Kota

dim rayap
masuk()
sub masuk()
set rayap = wscript.CreateObject("wscript.shell")
keterangan = "Pilihan:" & vbcrlf &_
"ketik 0.Aktifkan Run." & vbcrlf &_
"ketik 1.Nonaktifkan Run." & vbcrlf & vbcrlf &_
"Rayap Kota "

nilai = inputbox(keterangan,"Edit Run",0)

rayap.RegWrite"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoRun",nilai,"REG_DWORD"

if nilai=1 then
msgbox "Run dinonaktifkan",vbInformation,"Edit Run"
else
if nilai=0 then
msgbox "Run diaktifkan",vbInformation,"Edit Run"

rayap.RegDelete"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoRun"

else
msgbox "Masukkan angka 0 atau 1!",vbInformation,"Edit Run"
masuk()
end if
end if

end sub

cukup save dengan extensi *.vbs dan kemudian jalankan, Good Luck