Posts
Pernah suatu saat saya diminta seorang teman untuk memecahkan masalah pada komputernya. Komputer miliknya terkena virus yang bisa membuat run, find, cmd, folder options, dan task manager menghilang. Virusnya sendiri sudah dibasmi. Tapi registrynya belum. Apa yang bisa dilakukan? Kita bisa mencoba menggunakan vbs. buat yang tertarik menggunakan script ini, silahkan klik read more.
-----------------------------Start Here--------------------------------
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
if msgbox("Disable File Extensi" , VbOkCancel) = VbOK then
Reg.RegWrite "HKEY_CURRENT_USER\software\microsoft\windows\currentversion\explorer\advanced\HideFileExt", "0", "REG_DWORD"
end if
if msgbox("Perlihatkan Log Off" , VbOkCancel) = VbOK then
Reg.RegWrite "HKEY_CURRENT_USER\software\microsoft\windows\currentversion\explorer\advanced\StartMenuLogoff", "1", "REG_DWORD"
end if
-----------------------------end Here--------------------------------
Nah, salin script ini ke notepad. Kemudian simpan dengan ekstensi .vbs. Kemudian klik ganda pada file, kemudian logout atau restart sistem untuk melihat hasil.
Semoga bermanfaat
Copyleft © 2008 OprekWindows® Blog
1 komentar:
makasih banget... T_T
Post a Comment
Buruan ! Mumpung Gratis ...