AS400のCLプログラムからでvbsにパラメータを渡して呼び出しvbs処理後に結果を返す事ってできるのでしょうか？
ご存じの方ご教授願います。

ちなみにvbsは下記の様な感じでPCのエクセルを有無を確認します。

　　Dim　strArg1'受取りﾊﾟﾗﾒｰﾀ1(ｴｸｾﾙ名）
　　Dim　strArg2'受取りﾊﾟﾗﾒｰﾀ2（ｴﾗｰﾌﾗｸﾞ）
　　Dim　objArg'追加オプションの取得ｵﾌﾞｼﾞｪｸﾄ
　　Dim　objFs'ﾌｧｲﾙｼｽﾃﾑｵﾌﾞｼﾞｪｸﾄ
　　Dim　objF'ﾌｧｲﾙｵﾌﾞｼﾞｪｸﾄ
　　Dim　strFldname'ﾌｫﾙﾀﾞ名
　　Dim　strnewFldname'新規作成ﾌｫﾙﾀﾞ名
　　Dim　MyObject


　　Set　objArg　=　WScript.Arguments
　　
　　If　objArg.Count　=　1　Then
　　　　　strArg1　=　objArg.Item(0)'ﾊﾟﾗﾒｰﾀ01　エクセル名称
　　　　　strArg2　=　objArg.Item(1)'ﾊﾟﾗﾒｰﾀ02　ｴﾗｰﾌﾗｸﾞ
　　　Else
　　　　Wscript.Quit
　　End　If　


　　Set　objFs　=　WScript.CreateObject("Scripting.FileSystemObject")

　　strFldname　=　Replace(WScript.ScriptFullName,WScript.ScriptName,"")'ｺﾋﾟｰ元ﾌｧｲﾙの存在ﾃﾞｨﾚｸﾄﾘ名


　　If　objFs.FileExists(strFldname　&　strArg1　&　".XLS")　=　True　Then
WScript.echo　"指定のエクセルファイルが存在しました。"
　　Else
　　WScript.echo　"指定のエクセルファイルが存在しません。"
＊＊ここでｴﾗｰﾌﾗｸﾞを設定し返したい＊＊
　　End　If

　　Set　MyObject　=　Nothing
　　
　Wscript.Quit