code:

---

$domain = "domainname"
$ads = GetObject("WinNT://$domain")

Function GetProperties($adsiobject)
$adsiobject.GetInfo
$countprop = VAL($adsiobject.propertycount)-1
If $countprop < 0
 Exit 1
ENDIF
DIM $adsiprop[$countprop]
For $i = 0 to $countprop
$adsiprop[$i] = $adsiobject.Next().name
Next
$GetProperties = $adsiprop
EndFunction


Function GetValues($proparray,$adsiobject)
If NOT Vartype($proparray) & 8192
 Exit 1
Endif
$ba = UBOUND($proparray)
DIM $propval[$ba]
For $i = 0 to $ba
$prop=$proparray[$i]
$rc = EXECUTE("$$PropVal[$$i]=$$adsiobject.$prop")
If @error
 Exit 1
Endif
Next
$GetValues = $propval
EndFunction




$ok = GetProperties($ads)
$bk = GetValues($ok,$ads)
For $i = 0 to UBOUND($ok)
 $ok[$i] ?
 $bk[$i] ?
Next

---