[ЧЕМПИОН]

Хорошо тогда такой вопрос. Вот у меня есть vbs скрипт который при запуске разварачавает свёрнутое окно, вот нужно сделать чтоб его 1 раз запустить и он автоматом разворачивал допустим каждые 5 секунд. Подскажите что нужно туда дописать или как это сделать?

Пример скрипта:
Set SH = CreateObject("WScript.Shell")
Set locator = CreateObject("WbemScripting.SWbemLocator")
Set service = locator.ConnectServer()
Set props = service.ExecQuery("select * from Win32_Process where name = 'notepad.exe'")
For Each objProcess in props
SH.AppActivate objProcess.ProcessId
Next
SH.SendKeys "{Enter}"