Archivo no encontrado al usar objshell.run - vbscript

Cuando intento ejecutar la secuencia de comandos, se produce un error que indica que el archivo no existe. Sin embargo, en la secuencia de comandos sí existe un archivo de ecos. He intentado con objshell.run "" "apppath" "" pero no tuve suerte ... :( Por favor ayuda.

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objShell = CreateObject("WScript.Shell")
AppPath =  objshell.ExpandEnvironmentStrings("%ProgramFiles%") + "\ERUNT\ERUNT.EXE"
wscript.echo apppath
if fx = objfso.FileExists("apppath") then
wscript.Echo "File Exists"
objshell.run apppath
Else
Wscript.echo "File Does not Exist"
end IF 

Respuestas a la pregunta(1)

Su respuesta a la pregunta