Process List Generator

[themax90]

#include <Array.au3>
$file = "Processes.txt"
$sort = 0
;$file =  file to save generated list to
;$sort = -1 then no sorting
;$sort = 0 then sort acsending
;$sort = 1 then sort desending

$array = ProcessList()
$t = $array[0][0]
FileWriteLine($file, "Number of processes : " & ($t - 1))
$n = 1
Dim $arrayfinal[$t]
While $n <> $t
$arrayfinal[$n] = "Process : " & $array[$n][0] & "  PID : " & $array[$n][1]
WEnd
$n = 1
If $sort = 0 Then
_ArraySort($arrayfinal)
ElseIf $sort = 1 Then
_ArraySort($arrayfinal, $sort)
EndIf
While $n <> $t
FileWriteLine($file, $arrayfinal[$n])
WEnd

** FIXED ** just realized that the first number [0][0] in the array is number of files so made $n = 1 to accomidate!

Hope you like, just a small utility for those who wish.

Peace,

AutoIt Smith

Edited August 11, 2005 by AutoIt Smith