---

Set objShell = WScript.CreateObject("WScript.Shell")

' Бесконечный цикл
Do While True
    ' Пауза 240 000 миллисекунд (4 минуты)
    WScript.Sleep 240000
    
    ' Нажатие клавиши F13
    objShell.SendKeys "{F13}"
Loop