code:

---

[Comp1]
IP=111.222.333.25

[Comp2]
IP=111.222.333.42

[Computer1]
IP=111.222.333.53

[Computer2]
IP=111.222.333.27

[ServerA]
IP=111.222.333.132

[WorkstationB]
IP=111.222.333.68

---

code:

---

Comp1
Comp2
ServerA
Computer2
Computer1
WorkstationB

---

code:

---

dim $c[256]
$z="%tmp%\computers.ini"
$A=split(ReadProfileString($z,"",""),chr(10))
for each $h in $A
	$i=ReadProfileString($z,$h,"IP")
	$c[val(right($i,len($i)-InstrRev($i,".")))]=$h
next
for $j=1 to 15
	for $h=0 to 255
		if len($c[$h])=$j
			$q='$q"'+$c[$h]+'",'
		endif
	next
next
$q=$q+'""'
execute('$$r=$q')
for each $d in $r
 ? $d
next  

---

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

---

code:

---

dim $c[256]
$z="%tmp%\computers.ini"
$A=split(ReadProfileString($z,"",""),chr(10))
for each $h in $A
	If $h
		$i=Split(ReadProfileString($z,$h,"IP"),".")[3]
		$c[$i]=$h
	EndIf
next
for $j=1 to 15
	for $h=0 to 255
		if len($c[$h])=$j
			$q='$q"'+$c[$h]+'",'
		endif
	next
next
$q=$q+'""'
execute('$$r=$q')

---

code:

---

$ShortOS = Split(@ProductType)[1]

---