重置IE浏览器的vb脚本

'IE Reset Automation
Set objAP = CreateObject("wscript.shell")
objAP.Run "rundll32.exe inetcpl.cpl ResetIEtoDefaults"
wscript.sleep 1000

objAP.AppActivate "Reset Internet Explorer Settings"
objAP.SendKeys "%r", True

wscript.sleep 2000

If objAP.AppActivate("Reset Internet Explorer Settings") Then objAP.SendKeys "%c"
wscript.sleep 2000

If objAP.AppActivate("Reset Internet Explorer Settings") Then objAP.SendKeys "%c"
wscript.sleep 2000

If objAP.AppActivate("Reset Internet Explorer Settings") Then objAP.SendKeys "%c"