'xp_clear_search.vbs - Clears Search History in Windows XP
'© Doug Knox - revised 04/15/2002
'This code may be freely distributed/modified 
'Downloaded from www.dougknox.com

Option Explicit
On Error Resume Next
Dim p1, p2, p3, WshShell, MyBox

p1 ="HKEY_CURRENT_USER\Software\Microsoft\Search Assistant\ACMru\5001\"
p2 = "HKEY_CURRENT_USER\Software\Microsoft\Search Assistant\ACMru\5603\"
p3 = "HKEY_CURRENT_USER\Software\Microsoft\Search Assistant\ACMru\5604\"

Set WshShell = WScript.CreateObject("WScript.Shell")

WshShell.RegDelete p1
WshShell.RegDelete p2
WshShell.RegDelete p3

Set WshShell = Nothing

'Un-comment the next line to make the confirmation dialog appear
MyBox = MsgBox("Search History has been cleared.", 4096, "Finished")