code:

---

Function S($)
  Dim $t
  For $S = 1 TO Ubound($)
    $t = $[$S-1]
    If $[$S] < $t
      $[$S-1] = $[$S]
      $[$S]   = $t
      $S = 0
    EndIf
  Next
  $S = $
EndFunction

---

code:

---

Break On
$tempfile=("c:\temp\@wksta.log")
$tempfile2=("c:\temp\Inventory_@wksta.log")
if open(1,$tempfile) = 0
  $Array = readline(1)
  WHILE @error = 0
   $DoSort=QSort($Array)
   $Array = readline(1)
   $NewFile=Open(2,$tempfile2,5)
   $wl=writeline(2,"$Array")
   Loop
	$x=Close(1)
	$x=Close(2)
Endif 

---

code:

---

Break On
Dim $aStr
$tempfile=("c:\temp\@WkSta.log")
If Open(1,$tempfile) = 0
   $Line = ReadLine(1)
   While @error = 0
      If $aStr
         $aStr = $aStr + '|'
      EndIf
      $aStr = $aStr + $Line
      $Line = ReadLine(1)
   Loop
   $x=Close(1)
Else
   Return
EndIf
$UnSortedArray = Split($aStr,'|')
 
$SortedArray = CombSort($UnSortedArray)
 
$tempfile2=("c:\temp\Inventory_@WkSta.log")
If Open(1,$tempfile2,5) = 0
   For Each $Entry In $SortedArray
      $x = WriteLine(1,$Entry + @CRLF)
   Next
   $x=Close(1)
EndIf
 
Return
 
 
 
;*************************************************************
;Just for the ease i have included Shawn's CombSort() UDF
;*************************************************************
Function CombSort($v, Optional $o)
   Dim $i,$j,$m,$s,$g
   $n=UBound($v)
   $g = $n
   If $g
      While $g > 1 Or Not $s
         $g=($g*1000)/1279
         If $g < 1
            $g = 1
         EndIf
         $s=1
         For $i = 0 To $n-$g
            $j=$i+$g
            If ($v[$i] > $v[$j] And Not $o) Or ($v[$i] < $v[$j] And $o)
               $m = $v[$i]
               $v[$i] = $v[$j]
               $v[$j] = $m
               $s=0
            EndIf
         Next
      Loop
      $CombSort = $v
   Else
      $CombSort = 0
   EndIf
EndFunction

---

code:

---

; GetInstalledSoftware.kix
; Idea borrowed/stolen from BoxKite
; Modifications made by NTDOC
; Very cool array and final coding by Bryce
; The Function CombSort is by Shawn 
break on
$aStart=@ticks
$outfile = "c:\temp\@wksta.log"
$software = combsort(getinstalledsoftware)

if exist($outfile)
	del $outfile
endif

$ = open(1, $outfile,5)

for each $item in $software
	$ = writeline(1,$item+@crlf)
next

$ = close(1)
$aStop=@ticks
? "Script Running Time is: " $aStop-$aStart
exit(0)

function GetInstalledsoftware
	dim $softwarekey, $index
	dim $temparray[10]

	$SoftwareKey = enumkey("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\",$Index)

	while not @error
		$DisplayName = readvalue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\$SoftwareKey","displayname")
		$DisplayVersion = readvalue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\$SoftwareKey","DisplayVersion")
		if $DisplayName
			if $count >  ubound($temparray)
				redim preserve $temparray[ubound($temparray)+10]
			endif
			$temparray[$count] = $DisplayName +"  "+ $DisplayVersion
			$count = $count + 1
		endif
		$Index = $Index + 1
		$SoftwareKey = enumkey("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\",$Index)
	loop
	if $count > 0
		redim preserve $temparray[$count-1]
	else
		$temparray = ""
	endif
	$getinstalledsoftware = $temparray
endfunction

Function CombSort($v, Optional $o)
   Dim $i,$j,$m,$s,$g
   $n=UBound($v)
   $g = $n
   If $g
      While $g > 1 Or Not $s
         $g=($g*1000)/1279
         If $g < 1
            $g = 1
         EndIf
         $s=1
         For $i = 0 To $n-$g
            $j=$i+$g
            If ($v[$i] > $v[$j] And Not $o) Or ($v[$i] < $v[$j] And $o)
               $m = $v[$i]
               $v[$i] = $v[$j]
               $v[$j] = $m
               $s=0
            EndIf
         Next
      Loop
      $CombSort = $v
   Else
      $CombSort = 0
   EndIf
EndFunction
 

---

code:

---

shell '%comspec% /c type sort.txt | sort > sorted.txt'

---