WindowsScriptの呼び出し

今回は、ノーツと外部プログラムの連携について。
ノーツから外部プログラムを実行する場合、Shell関数を使うと思う。
それだと、ノーツから実行されたら制御がすぐにノーツに戻ってしまうので、
プログラムの実行結果を取得することができない。
これをWindowsScriptを使って実行すると、外部プログラムの終了を待つことができる。

サンプルではメモ帳としてあるが、戻り値があるようなCプログラムにすればノーツとCとの間で連携ができるようになる。

---------------------------------------------------------------------
Sub Click(Source As Button)
Dim obj As Variant
Dim ret As Variant

Msgbox "[OK]をクリックすると、メモ帳が起動します"

Set obj = CreateObject( "WScript.Shell" )
ret = obj.Run( "notepad.exe", 8, True )

Msgbox "メモ帳が終了しました"
End Sub