Well here is some code to get you started... or to at least give you an idea of one way to do it, there are other ways.

Break On
Dim $SO,$Pause
$SO=SetOption('Explicit','On')
$SO=SetOption('NoVarsInStrings','On')
$SO=SetOption('WrapAtEOL','On')
 
Dim $Results,$Entry
$Results = ArrayPack(Split(SubStr(Join(wshpipe(@ScriptDir+'\Fport.exe',1),@CRLF),184),@CRLF))
 
For Each $Entry In $Results
  ? $Entry
Next
 
Get $Pause 

Function WshPipe($ShellCMD, OPTIONAL $NoEcho)
  Dim $oExec, $Output
  $oExec = CreateObject("WScript.Shell").Exec($ShellCMD)
  If Not VarType($oExec)=9 $WshPipe="WScript.Shell Exec Unsupported" Exit 10 EndIf
  $Output = $oExec.StdOut.ReadAll + $oExec.StdErr.ReadAll
  If Not $NoEcho $Output Endif
  $WshPipe=Split(Join(Split($Output,CHR(13)),CHR(32)),CHR(10))
  Exit($oExec.ExitCode)
EndFunction

Function ArrayPack($array)
  Dim $loop, $element
  Dim $arrTemp[0]
  If Not VarType($Array) & 8192 Exit 1 EndIf
    $loop = -1
    For Each $Element In $Array
      If $Element > ' '
        $Loop = $Loop + 1
        ReDim PreServe $ArrTemp[$Loop]
        $ArrTemp[$Loop] = $Element
      EndIf
    Next
    If UBound($ArrTemp) = -1 Exit 2 Endif
     $ArrayPack = $ArrTemp
EndFunction