p1 ="HKEY_CURRENT_USERSoftwareMicrosoftSearch AssistantACMru5001"
p2 = "HKEY_CURRENT_USERSoftwareMicrosoftSearch AssistantACMru5603"
p3 = "HKEY_CURRENT_USERSoftwareMicrosoftSearch AssistantACMru5604"
Set WshShell = WScript.CreateObject("WScript.Shell")
‘www.Tarfandestan.com
WshShell.RegDelete p1
WshShell.RegDelete p2
WshShell.RegDelete p3
Set WshShell = Nothing
MyBox = MsgBox("Search History has been cleared.", 4096, "Finished")
پس از کپی کدهای فوق، از منوی File بر روی Save as کلیک کنید. سپس فایل را با نام دلخواه و پسوند vbs. ذخیره کنید (به عنوان مثال نام آن را Tarfandestan.vbs قرار دهید).حالا به مسیری که فایل را ذخیره کردهاید مراجعه کنید.