function netview(optional $domain)
 dim $array[255]
 dim $redim $redim = 255
 dim $i $i = 0 dim $j $j = 0
 dim $tempfile $tempfile = "%temp%\netview.tmp"
 if $domain
  $domain = "/domain:$domain"
 endif
 if exist("$tempfile")
  del "$tempfile"
 endif
 shell '%comspec% /c net view $domain >"$tempfile"'
 if @error = 0
  if open(10,$tempfile) = 0
   for $j = 1 to 5
    $line = readline(10) ; skip headings
   next
   while @error = 0
    $array[$i] = rtrim(substr($line,3,instr($line," ")-1))
    $i=$i+1
    if $i = $redim
     $redim=$redim*2
     redim preserve $array[$redim]
    endif
    $line = readline(10)
   loop
   $=close(10)
   del "$tempfile"
   if $i
    redim preserve $array[$i-4]
    $netview = $array
    exit @error
   endif
  endif
 endif
 $netview = 0
 exit @error
endfunction