ShellExecuteEx в VBScript+WSH

Формулировка задачи:

Он там вообще доступен? Никак не получается. Просто я сделал изначально с ShellExecute, а там оказывается скрипт не ждёт когда закончится выполнение запущенного exe-файла. Решил переделывать.

Решение задачи: «ShellExecuteEx в VBScript+WSH»

textual
                            Листинг программы 
                        

                            <package>
	<job>
		<script language="<span" style="color: #008080;">"VBScript"</span> src=<span style="color: #008080;">"..\Script.vbs"</span>/>
		<script language=<span style="color: #008080;">"VBScript"</span> src=<span style="color: #008080;">"..\Way4.vbs"</span>/>
		<script language=<span style="color: #008080;">"VBScript"</span>>

<span style="color: #0000ff;">Set</span> ar = <span style="color: #8515ea;">New</span> clsArguments
ar.ParseArguments

<span style="color: #0000ff;">Dim</span> params
params = <span style="color: #008080;">"sqlplus.exe "</span> & ar.Argument(<span style="color: #008080;">"P_USER"</span>) & <span style="color: #008080;">"/"</span> & ar.Argument(<span style="color: #008080;">"P_PASSWORD"</span>) & <span style="color: #008080;">"@"</span> &  ar.Argument(<span style="color: #008080;">"P_SRVR"</span>) & <span style="color: #008080;">" @"""</span>  & ar.Argument(<span style="color: #008080;">"SCRIPT_PATH"</span>) & <span style="color: #008080;">""" "</span> & ar.Argument(<span style="color: #008080;">"FIN_ID"</span>) & <span style="color: #008080;">" "</span> & ar.Argument(<span style="color: #008080;">"DATE_FROM"</span>) & <span style="color: #008080;">" "</span> & ar.Argument(<span style="color: #008080;">"RESULT_PATH"</span>)

<span style="color: #0000ff;">Set</span> WshShell = CreateObject(<span style="color: #008080;">"WScript.Shell"</span>)
<span style="color: #0000ff;">Set</span> WshExec = WshShell.Exec(params)
<span style="color: #0000ff;">While</span> WshExec.Status=0
	WScript.Sleep 5000
<span style="color: #0000ff;">Wend</span>
		</script>
	</job>
</package>

                        