I am not very skilled in creating LDAP queries tho. I can place what I have so far.

 Code:
Dim $aAttributes,$sADsPath,$strFilter
Dim $aResults,$c,$r

$aAttributes = "DN"
$sADsPath = "LDAP://"+GetObject("LDAP://rootDSE").Get("defaultNamingContext")
$strFilter = "(&(objectCategory=person)(objectClass=user))" 
$aResults = fnLDAPQuery($aAttributes,$sADsPath,$strFilter)
 
For Each $r in $aResults
    If InStr($r,"=")
        Split($r,"=")[Ubound(Split($r,"="))]
    Else
        $r ?
    EndIf
Next

This is returning no results.