Set objShell = WScript.CreateObject("WScript.Shell")
objShell.SendKeys "^{ESC}"
WScript.Sleep 500
'objShell.SendKeys WScript.Arguments.Item(0) 'If you want to pass the name of the program as an argument
objShell.SendKeys "Arduino Primo OTA DFU" 'The name of the App Metro
WScript.Sleep 500
objShell.SendKeys "{ENTER}"