Const SHORTCUT_FOLDER = "" 'folder with the shortcuts, for example: Const SHORTCUT_FOLDER = "C:\Temp\My Shortcuts"
SHORTCUTS = Array() 'list of shortcut files, each name needs to be placed between double quotes, for example: SHORTCUTS = Array("Shortcut 1.umshortcut", "Shortcut 2.umshortcut")
Const DELAY = 10 'delay in seconds

Set sh = CreateObject("WScript.Shell")
WScript.Sleep DELAY * 1000
For i = 0 To UBound(SHORTCUTS)
    file = SHORTCUTS(i)
    sh.Run """" & SHORTCUT_FOLDER & "\" & file & """"
Next