set wshShell = WScript.CreateObject("WScript.shell")
for i = 1 to 500 wscript.sleep 5 * 60 * 1000 wshShell.sendkeys "{F5}"next