Quote:

---

Code:

---

$GroupObj=GetObject("WinNT://"+ @ldomain + "/Domain Users")
For Each $UserObj in $GroupObj.Members
    ?$UserObj.Name
    ?$UserObj.FullName
Next

---

---

domina.local
     CompanyA
          Corporate Office
               <Bill smith>

$user = GetObject("LDAP://CN=Bill Smith,OU=Corporate office,OU=CompanyA,DC=domain,DC=local")
? $user.OfficeLocations

Call "fnLDAPQuery.kix"
 
$=SetOption("WrapAtEOL","on")
$=SetOption("NoVarsInStrings","on")
;$=SetOption("Explicit","on")
 
Dim $sWhat,$sFrom,$sFilter,$sScope,$aResults,$Result,$R,$
 
$sWhat = "ADsPath","Name","department","physicalDeliveryOfficeName"
 
$sFrom = "LDAP://"+GetObject("LDAP://rootDSE").Get("defaultNamingContext")
 
$sFilter = "(&(objectCategory=user)(Name=sh*))"
 
$sScope = "subtree"
 
$aResults = fnLDAPQuery($sWhat,$sFrom,$sFilter,"displayName ASC",$sScope)
@ERROR " : " @SERROR ?
 
For Each $Result in $aResults
    If VarType($Result)>8192
        For Each $R in $Result
            $R ?
        Next
    Else
        $Result ?
    EndIf
Next