net view Array display

[realkiller]

i made this script, the only thing i couldn't achief is making it in a array can somone help:) thx

#include <array.au3>
#include <Constants.au3>


Dim $line
$foo = Run(@ComSpec & " /c net view ", "",@SW_Hide, $STDOUT_CHILD)
$count = 1
While 1
    $line &= StdoutRead($foo) & @CRLF
    If @error Then ExitLoop
    $count +=1
Wend

MsgBox (0, "", $line)

[Zedna]

Look at my NET VIEW/SEND GUI wrapper

[Valuater]

fixing your code to an array....

#include <array.au3>
#include <Constants.au3>


Dim $line[2]
$foo = Run(@ComSpec & " /c net view ", "",@SW_Hide, $STDOUT_CHILD)
$count = 1

While 1
    $iTemp = StdoutRead($foo)
    If @error Then ExitLoop
    $line[$count] = StringReplace($iTemp, @CRLF, "")
    $count +=1
    ReDim $line[$count + 1]
Wend

_ArrayDisplay($line, "Info")

8)

[Valuater]

Another appraoch to utilizing arrays

#include <array.au3>
#include <Constants.au3>

Dim $line = _ArrayCreate("")
$foo = Run(@ComSpec & " /c net view ", "",@SW_Hide, $STDOUT_CHILD)

While 1
    $iTemp = StdoutRead($foo)
    If @error Then ExitLoop
    _ArrayAdd( $line, StringReplace($iTemp, @CRLF, ""))
Wend

_ArrayDisplay($line, "Info")

... just bored..lol

8)

[Valuater]

Posted Today, 12:53 PM

Last Seen: Today, 12:59 PM

Nice!!!!

... ask a question and split!

8)

[realkiller]

is it possible to set the computer in a difrent row