This script will Clear Search History. (VBScript)
| 'Clear Search History, XP On Error Resume Next Dim WshShell, Message, M Message = "This script will clear Search History." & vbCr & vbCr _ & "This action will Delete Registry Keys." & vbCr & vbCr _ & "Adding information can unintentionally change or delete values and cause components to stop working correctly." _ & " If you do not trust the source of this information, do not add it to the registry." & vbCr & vbCr _ & "Would you like to continue?" M = MsgBox(Message, vbYesNo + vbInformation, "Paul's XP and Vista Tweaks") If M = 6 Then Set WshShell = WScript.CreateObject("WScript.Shell") WshShell.RegDelete "HKCU\Software\Microsoft\Search Assistant\ACMru\5001\" WshShell.RegDelete "HKCU\Software\Microsoft\Search Assistant\ACMru\5001\" WshShell.RegDelete "HKCU\Software\Microsoft\Search Assistant\ACMru\5604\" Message ="Search History Cleared."& vbCr & vbCr _ & "This script was downloaded from www.paulsxp.com." MsgBox Message, 64, "Paul's XP and Vista Tweaks" End If |