StarUML - Shell Execution (VB Script)

ShellExec.vbs

var shell = new ActiveXObject("WScript.Shell") ;
var exec = shell.Exec("C:\\cmd arg1 arg2 arg3")

while (! exec.StdOut.AtEndOfStream) {
 strLine = objExecObject.StdOut.ReadLine()
 Wscript.Echo "out: " & strLine
Loop

Do Until objExecObject.StdErr.AtEndOfStream
 strLine = objExecObject.StdErr.ReadLine()
 Wscript.Echo "err: " & strLine
Loop