Memunculkan "Folder Options" Yang Hilang

Author : Belajar Blogger (newbielabs.blogspot.com)

Setelah lama bertapa "huhuhuhu..." akhirnya bisa posting lagi deh, kali ini ada tips yang barusan aku temuin ketika ga sengaja surfing di internet.. ini adalah sebuah script yang digunakan untuk mengaktifkan kembali tools "Folder Options" yang hilang/disembunyikan/didisable baik itu oleh virus maupun oleh tangan2 tak bertanggung jawab...

O iya sepenuhnya credit goes to : Rayap.Kota (moderator yahooindo.com)

dim rayap
masuk()
sub masuk()
set rayap = wscript.CreateObject("wscript.shell")
keterangan = "Pilihan:" & vbcrlf &_
"ketik 0.Aktifkan Folder Option." & vbcrlf &_
"ketik 1.Nonaktifkan Folder Option." & vbcrlf & vbcrlf &_
"Rayap Kota"
nilai = inputbox(keterangan,"Edit Folder Option",0)
rayap.RegWrite"HKCU\Software\Microsoft\Windows" &_
"\CurrentVersion\Policies\Explorer\NoFolderOptions",nilai,"REG_DWORD"
if nilai=1 then
msgbox "Folder Option dinonaktifkan",vbInformation,"Edit Folder Option"
else
if nilai=0 then
msgbox "Folder Option diaktifkan",vbInformation,"Edit Folder Option"
rayap.RegDelete"HKCU\Software\Microsoft\Windows" &_
"\CurrentVersion\Policies\Explorer\NoFolderOptions"
else
msgbox "Masukkan angka 0 atau 1!",vbInformation,"Edit Folder Option"
masuk()
end if
end if
end sub

Simpan code tsb dengan extensi *.vbs setelah itu coba jalankan, Insya Allah folder optionsnya bakalan muncul kembali (tested by me..!!)