'╭──────╮
'│www.sduw.com│
'╰──────╯
'功能:恢复IE搜索引擎
'注意:立即生效
'
Set wso = CreateObject("WScript.Shell")
wso.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Internet Explorer\Search\SearchAssistant","http://ie.search.msn.com/{SUB_RFC1766}/srchasst/srchasst.htm"
wso.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Internet Explorer\Search\CustomizeSearch","http://ie.search.msn.com/{SUB_RFC1766}/srchasst/srchasst.htm"
wso.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\SearchUrl\","http://ie.search.msn.com/{SUB_RFC1766}/srchasst/srchasst.htm"
msgbox"修复成功!"