'╭──────╮
'│www.sduw.com│
'╰──────╯
msgbox"如果注册表中关于工具栏广告的项目已经删光,那么本程序将会出错."
Set wso = CreateObject("WScript.Shell")
wso.Regdelete "HKEY_LOCAL_MACHINE\Software\Microsoft\Internet Explorer\Extensions\"
wso.Regdelete "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Extensions\"
msgbox"修复成功!"