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