Dim strParams strParams = "" For i = 0 To WScript.Arguments.Count - 1 strParams = strParams + " " + WScript.Arguments(i) Next CreateObject("Wscript.Shell").Run "shell:AppsFolder\2D424152.5574FB86F116_ddj57jqgf9rdg!PWInte.PWInteAppx " + strParams