set wsc = CreateObject("WScript.Shell")
Do
    wsc.SendKeys("{F13}")
    WScript.Sleep(1*60*1000)
Loop