code:

---

; Pipe.kix
;
Break On
$shellcmd="%comspec% /c dir *.kix"
$WshShell=CreateObject("WScript.Shell")
$oExec=$WshShell.Exec($shellcmd)

While $Exit<>1
	Dim $Output
	$Output=ReadAll($oExec)
	If $Output=-1
		If $oExec.Status=1
			$Exit=1
		endif
	Else
		? $Output
	endif
Loop

? "Exit Code: "+$oExec.ExitCode

Function ReadAll($oExec)
	If Not $oExec.StdOut.AtEndOfStream
		$ReadAll=$oExec.StdOut.ReadAll
		Exit
	endif
	If Not $oExec.StdErr.AtEndOfStream
		$ReadAll=$oExec.StdErr.ReadAll
		Exit
	endif
	$ReadAll=-1
EndFunction

---

code:

---

break on

$return=WSHPipe("dir \\a06\logon\*.kix")
? $return

$pipearray=split($return,chr(10))
for each $line in $pipearray
	? "."+$line
	next

get $k
quit
;******************************************************************
function WSHPipe($cmd, Optional $environment)
	if $environment
		$cmd="/e $environment $cmd"
		endif
	$cmd="%comspec% /c "+$cmd
	$WshShell=CreateObject("WScript.Shell")
	$oExec=$WshShell.Exec("$cmd")
	$WSHPipe=$oExec.StdOut.ReadAll
	$WSHPipeErr=$oExec.StdErr.ReadAll
	endfunction

---