Pasti bête sangat deh kalo laptop atau PC sudah terjangkit virus??? Apa lagi virus itu memakan registry kita… dan membuat laptop atau PC kita tiba-tiba restart atau shutdown dengan sendirinya tanpa perintah dari kita. Nah itu salah satu tanda kalo registry laptop atau PC kita sudah dimakan oleh virus.
Konfigurasi registry Windows pada laptop atau PC kita tersimpan dalam REGEDIT (start – run – ketik regedit – klik ok). Jika REGEDIT ini sampai rusak maka berakibat fatal pada laptop atau PC kita. Terkadang beberapa dari kita langsung mengambil jalan pintas yaitu menginstall ulang laptop atau PC.
Sebelum teman-teman menginstall ulang laptop atau PC, ada baiknya teman-teman ikuti beberapa tips berikut :
Program ini kita buat di notepad atau di notepad++. Copy dan paste kode perintah dibawah ini :
Set WshShell = WScript.CreateObject(”WScript.Shell”
With WScript.CreateObject(”WScript.Shell”
With WScript.CreateObject(”WScript.Shell”
On Error Resume Next
.RegDelete “HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools”
.RegDelete “HKCU\Software\Policies\Microsoft\Windows\System\DisableCMD”
.RegDelete “HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr”
.RegDelete “HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\system\DisableTaskMgr”
.RegDelete “HKCU\Software\Policies\Microsoft\Windows\System\DisableCMD”
.RegDelete “HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr”
.RegDelete “HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\system\DisableTaskMgr”
End With
Mybox = MsgBox(jobfunc & enab & vbCR & “Restorasi_Berhasil!”, 4096, t)
Simpan file tersebut dengan nama registry.vbs dan pada save as type pilih yang all files. Setelah itu kalian jalankan file vbscript tersebut. Jika ada pesan popup windows berisi “SELAMAT, Registry Anda sudah Seperti Semula...!!!”, maka file regedit sudah kembali seperti semula. Semoga membantu..
Koq aq cobain ga bisa ya??:(
BalasHapuscoba pake script ni deh..
Hapus'Enable Registry Editing'
'A? Veegertx - 4/7/2004
'This Code maybe freely distributed/modified
On Error Resume Next
'Prevents errors from values that don't exist
Set WshShell = WScript.CreateObject("WScript.Shell")
'Delete DisableRegistryTools registry values
WshShell.RegDelete "HKCU\Software\Microsoft\Windows\CurrentVersion\Pol icies\System\DisableRegistryTools"
WshShell.RegDelete "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Pol icies\System\DisableRegistryTools"
'display message
Message = "Selamat Registry Anda Dapat di Gunakan Lagi!"
X = MsgBox(Message, VbOkOnly, "Manusia Biasa")
Set WshShell = Nothing
Set fso = Nothing
[/code]