Как выдернуть из Aktive Directory список компьтеров/пользователей?

Системные пользователей:
LOCAL loSWbemLocator, loSWbemServices,lcolSWbemObjectSet,loSWbemObject
lcComputer="."
loSWbemServices = GetObject("winmgmts:\\" + lcComputer + "\root\cimv2")
lcolSWbemObjectSet = loSWbemServices.InstancesOf("Win32_UserInDomain")
For Each loSWbemObject In lcolSWbemObjectSet
tProp='loSWbemObject.PartComponent'
? &tProp
Next

Но хотелось бы не только системное имя.