On Error Resume Next
Dim timediff,exepath
timediff=5000
exepath="a.txt"
Set WshShell=createobject("Wscript.Shell")
while true
call WshShell.Run(exepath ,1,True)
' call WshShell.Run(exepath,vbhide,True)
WScript.sleep timediff*1000
wend
Set WshShell=Nothing