Win32API を利用するには？

[umemura]

『ipconfigコマンドをspawn-host-process を使って実行』するには、
cmd.exe を spawn-host-process に渡せばよいでしょうか。

また、その際に、『アウトプットをパース』するために、
spawn-host-process の実行結果を取得するには
どうすればよいですか？

下記のような方法で標準出力を取得しようと思いましたが、
「アプレット [9-121] - stdout が取得されていないか、既に開いています。の為、例外Errorで停止」
というエラーメッセージが出てしまいます。

Code:

{import * from CURL.RUNTIME.HOST-PROCESS}
{def ta = {TextArea}}
{value ta}

{CommandButton
label = "ipconfig実行",
{on Action do
def cmd-exe-path =
{get-from-host-environment "windir"} & "\\system32\\cmd.exe"
{popup-message cmd-exe-path}
def hp = {spawn-host-process
read-stderr? = true,
cmd-exe-path ,
{StringArray "ipconfig"}
}
def tis = {hp.read-open-stdout}
def out = {tis.read}
{tis.close}
let str:String = ""
{for c in out do
set str = str & c
}
set ta.value = str
}
}