Function enumComps() 

$objADsPath = GetObject("LDAP://CN=,DC=,DC=) 

For Each $obj in $objADsPath.Members 
	If $obj.Class = "computer"
		; add each computer to a string
		$strComputers = $strComputers + $obj.name + ";"
	Endif 
Next 

If Len($strComputers)>0
	; take the last ; off the string
	$strComputers = Substr($strComputers,1,Len($strComputers)-1)
	
	; split the string into an array and return it
 	$enumComps = Split($strComputers,";")
EndIf

EndFunction 

Dim $MyArray[]

For $i = 0 to 50
	ReDim Preserve $MyArray[UBound($MyArray)+1]
	$MyArray[UBound($MyArray)] = 'this is value ' + $i
Next

Dim $X[99], $P
$P = -1
For Each $E in $list
  $P=$P+1
  $X[$P]=$E
Next
ReDim Preserve $X[$P]

Dim $X[], $P
$P = -1
For Each $E in $list
  $P=$P+1
  ReDim Preserve $X[$P]
  $X[$P]=$E
Next

Dim $X[]
For Each $E in $list
  ReDim Preserve $X[UBound($X)+1]
  $X[UBound($X)]=$E
Next

Dim $arraySize	$arraySize=256	; minimum value must be 1
Dim $array[$arraySize]
Dim $arrayIndex	$arrayIndex = -1

For Each $E in $list
	$arrayIndex = $arrayIndex + 1
	if $arrayIndex > $arraySize
		$arraySize = $arraySize * 2
		redim preserve $array[$arraySize]
	endif

	$array[$arrayIndex]=$E
Next

if $arrayIndex=-1
	; empty array
	$array = nothing
else
	redim preserve $array[$arrayIndex]
endif

Dim $arrayInc	$arrayInc=256		; minimum value must be 1
Dim $arraySize	$arraySize=$arrayInc
Dim $array[$arraySize]
Dim $arrayIndex	$arrayIndex = -1

For Each $E in $list
	$arrayIndex = $arrayIndex + 1
	if $arrayIndex > $arraySize
		$arraySize = $arraySize +$arrayInc
		redim preserve $array[$arraySize]
	endif

	$array[$arrayIndex]=$E
Next

if $arrayIndex=-1
	; empty array
	$array = nothing
else
	redim preserve $array[$arrayIndex]
endif