I'll give you my solution. And a remark to Howard's solution, I like the fact that he considered http://support.microsoft.com/default.aspx?scid=kb;EN-US;q163409 to implement in his solution. I got sidetracked in my solution because I wanted to implement a sorting algorithm in it.
code:
; computer names in Windows NT 4.0 class C domain
; stored in temp directory as computers.ini
; sort names ascending by lenght of name and if length is equal ascending by IP address
; return results in array

; start character count for kiXtart Golf
; read input data
$a='%TEMP%\computers.ini'
$b=split(readprofilestring($a,'',''),chr(10))
$d=ubound($b)
Dim $e[$d]
for $c=0 to $d
  $f=$b[$c]
  if $f
    $e[$c]=right('0'+len($f),2)+right('00'+split(readprofilestring($a,$f,'IP'),'.')[3],3)
    $z=writeprofilestring($a+'1',$e[$c],'A',$f)
  endif
next

; sort reformatted data
for $i=0 to ubound($e)
  $m=$e[$i]
  for $j=$i+1 to ubound($e)
    if $e[$j]<$m
      $m=$e[$j]
      $e[$j]=$e[$i]
      $e[$i]=$m
    endif
  next
next

;read output data
dim $b[$d]
for $c=0 to $d
  $f=$e[$c]
  if $f
    $b[$c]=readprofilestring($a+'1',$f,'A')
  endif
next
del $a+'1'
; end character count for kiXtart Golf


; this just displays the results (doesn't count for number of characters)
;results are in $b
for each $a in $b
  ? $a
next
_________________________
There are two types of vessels, submarines and targets.