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