Pertama nih, lw buka Notepad:
Klik Start > Run > ketik notepad terus ENTER
Kedua,ketik atau copy paste aja kode di bawah ini:
On error resume next
Dim Reg
Set Reg = CreateObject("WScript.Shell")
if msgbox("Kembalikan menu Run ?" , VbOkCancel) = VbOK then
Reg.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoRun", "0", "REG_DWORD"
end if
if msgbox("Enable Registry Tool ?" , VbOkCancel) = VbOK then
Reg.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools", "0", "REG_DWORD"
end if
if msgbox("Perlihatkan file hidden" , VbOkCancel) = VbOK then
Reg.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\Advanced\Hidden", "1", "REG_DWORD"
end if
if msgbox("Kembalikan menu Find" , VbOkCancel) = VbOK then
Reg.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFind", "0", "REG_DWORD"
end if
if msgbox("Kembalikan menu Option" , VbOkCancel) = VbOK then
Reg.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFolderOptions", "0", "REG_DWORD"
end if
if msgbox("Enable Taskmanager" , VbOkCancel) = VbOK then
Reg.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr", "0", "REG_DWORD"
end if
Ketiga, Lw save deh... caranya tekan Ctrl+S. Di bagian Filename ketik nama sesuai selera, ex: aktif_coy.vbs jangan lupa dibagian Save as type-nya ubah jadi All files.
Terakhir, jalanin sctipt yang udah kita buat dengan cara double klik...Jawab dengan Yes di setiap pertanyaan...
telusuri registry dan Systemnya juga ga jadi masalah. :)
Tidak ada komentar:
Posting Komentar