This script will Clear Search History. (VBScript)
| 'Clear Search History, XP On Error Resume Next Dim WshShell, PMBox Message = "This script will clear Search History." & vbCr Message = Message & "Continue?" X = MsgBox(Message, vbYesNo + vbQuestion, "Paul's XP and Vista Tweaks") If X = 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\" Set WshShell = Nothing PMBox = MsgBox("Search History Cleared."& vbCr & vbCr & "This script was downloaded from www.paulsxp.com", 48,"Finished!") End If |