'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"