code:

---

Break on
$logsrv="CORPSUPPORT"
$aStart=@ticks
$outfile = "\\"+$logsrv+"\RAW$\software\@wksta.log"
$software = combsort(getinstalledsoftware)
If exist($outfile)
	del $outfile
endif
$nul = open(1, $outfile,5)
	$ = writeline(1,@Wksta+"*"+@FullName+"*"+@USERID+"*"+@IpAddress0+"*"+@PRODUCTTYPE+"*"+@CSD+"*"+@crlf)
For each $item in $software
	$ = writeline(1,$item+@crlf)
next
$nul = close(1)
$aStop=@ticks
Return

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  

---