'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"
转载于:https://blog.51cto.com/zhiling/2391668