Как запустить файл в JS по маске или дате скачивания

Option Explicit
Dim iDir, Items, Name, FSO, PID, A, R, F
'——————————————— Вводные ———————————————
Const Mask = "10*.zip"
Const oDir = "D:\test"
iDir = "ftp://speedtest.tele2.net"
'iDir = "ftp://USERNAME:PASSWORD@FTP_ADDRESS"
'———————————————————————————————————————
Sub Msg(Text) MsgBox Text, 4144: WSH.Quit: End Sub
With GetObject("new:{9BA05972-F6A8-11CF-A442-00A0C90A8F39}").Item.document.Applicatio n
Set iDir = .NameSpace(iDir)
If iDir Is Nothing Then Msg iDir & " не доступен!"
Set Items = iDir.Items
If Items.Count = 0 Then Msg "Источник не содержит данных!"
Items.Filter 73920, Mask
If Items.Count = 0 Then Msg "Файлов по маске " & Mask & " не найдено!"
Set Name = Items.Item(Items.Count - 1)
.NameSpace(oDir).CopyHere Name, 2072
End With
Set Items = Nothing: Set iDir = Nothing

Set FSO = CreateObject("Scripting.FileSystemObject ")
With CreateObject("WScript.Shell")
PID = .Exec(FSO.BuildPath(oDir, Name)).ProcessID
Do: A = .Appactivate(PID): WSH.Sleep 50: Loop Until A
.SendKeys "~": WSH.Sleep 7000: .SendKeys "~"
Do: R = .Appactivate("Регистрация на сервере"): WSH.Sleep 50: Loop Until R
.SendKeys "{ESC}"
End With
Set Name = Nothing: WSH.Sleep 5000
' тут перечисляются имена удаляемых файлов:
For Each F In Array("name1.ext", "name2.ext", "name3.ext")
FSO.DeleteFile F, 1
Next
Set FSO = Nothing