Copy text berikut pada notepad atau text editor lainnya
lalu simpan dengan extention *.vbs di folder yang anda inginkan
lalu buka file tersebut.
Dim rg
en()
sub en()
keyreg = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\"
set rg = wscript.createobject("WScript.Shell")
rg.regwrite keyreg & "Policies\Explorer\NoFolderOptions","0","REG_DWORD" 'Buat munculin folder option
rg.regwrite keyreg & "Explorer\Advanced\HideFileExt", "0", "REG_DWORD" ' buat munculin ekstensi file
rg.regwrite keyreg & "Policies\System\DisableRegistryTools", "0", "REG_DWORD" ' enable Registry editor
rg.regwrite keyreg & "Policies\Explorer\NoRun", "0", "REG_DWORD" 'mengembalikan jendela run
rg.regwrite keyreg & "Policies\System\DisableCMD", "0", "REG_DWORD" ' Enable Commnd prompt
rg.regwrite keyreg & "Policies\System\DisableTaskMgr", "0", "REG_DWORD" 'Enable Task Manager
rg.regwrite keyreg & "Policies\Explorer\NoFind", "0", "REG_DWORD" ' enable Search option
MsgBox "UDAH BENER SEKARANG TINGGAL RESTART KOMPIE ATAU MINIMAL LOGOFF", vbInformation, "www.neotutorial.com"
End Sub
lalu simpan dengan extention *.vbs di folder yang anda inginkan
lalu buka file tersebut.
Dim rg
en()
sub en()
keyreg = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\"
set rg = wscript.createobject("WScript.Shell")
rg.regwrite keyreg & "Policies\Explorer\NoFolderOptions","0","REG_DWORD" 'Buat munculin folder option
rg.regwrite keyreg & "Explorer\Advanced\HideFileExt", "0", "REG_DWORD" ' buat munculin ekstensi file
rg.regwrite keyreg & "Policies\System\DisableRegistryTools", "0", "REG_DWORD" ' enable Registry editor
rg.regwrite keyreg & "Policies\Explorer\NoRun", "0", "REG_DWORD" 'mengembalikan jendela run
rg.regwrite keyreg & "Policies\System\DisableCMD", "0", "REG_DWORD" ' Enable Commnd prompt
rg.regwrite keyreg & "Policies\System\DisableTaskMgr", "0", "REG_DWORD" 'Enable Task Manager
rg.regwrite keyreg & "Policies\Explorer\NoFind", "0", "REG_DWORD" ' enable Search option
MsgBox "UDAH BENER SEKARANG TINGGAL RESTART KOMPIE ATAU MINIMAL LOGOFF", vbInformation, "www.neotutorial.com"
End Sub
Comments
Post a Comment