$sWhat = "Name","physicalDeliveryOfficeName"
 
$sFrom = "LDAP://"+GetObject("LDAP://rootDSE").Get("defaultNamingContext")
 
;$sFilter = "(&(objectCategory=user)(samAccountName="+@USERID+"))"
$sFilter = "(&(objectCategory=user)(samAccountName=*))"
 
$sScope = "subtree"
 
$aResults = fnLDAPQuery($sWhat,$sFrom,$sFilter,"displayName ASC",$sScope)
 
For $x = 0 to UBound($aResults) 
    "                      Name: " + $aResults[$x][0] ?
    "physicalDeliveryOfficeName: " + $aResults[$x][1] ??
Next
 
Get $

Function fnLDAPQuery($What,$From,Optional $Filter,Optional $OrderBy,Optional $Scope,Optional $User,Optional $Pswd)
    Dim $oCon,$oCMD,$oRS,$sQ,$sF,$sGV,$R,$vP,$aR[0],$nul
    
    If $Scope <> "base" AND $Scope <> "onelevel" AND $Scope <> "subtree" $Scope = "subtree" EndIf
    
    $sQ = "<"+$From+">;"+$Filter+";"+Iif(VarType($What)>8192,Join($What,','),$What)+";"+$Scope
    
    If VarType($What)>8192
        For Each $sF in $What $sGV=$sGV+'$'+'oRS.Fields("'+$sF+'").Value,' Next
        $sGV=Substr($sGV,1,Len($sGV)-1)
    Else
        $sGV='$'+'oRS.Fields("'+$What+'").Value'
    EndIf
    
    $oCon=CreateObject("ADODB.Connection")
    $oCon.Provider = "ADsDSOObject"
    $oCon.Properties("Encrypt Password").Value=1
    $oCon.Properties("ADSI Flag").Value=1
    If $User AND $Pswd
        $oCon.Properties("User ID").Value=$User
        $oCon.Properties("Password").Value=$Pswd
    EndIf
    $oCon.Open("Active Directory Provider")
     
    $oCMD=CreateObject("ADODB.Command")
    $oCMD.ActiveConnection=$oCon
    $oCMD.CommandText=$sQ
    $oCMD.Properties("Page Size").Value=1000
    $oCMD.Properties("Timeout").Value=30
    $oCMD.Properties("Cache Results").Value=0
    
    If $OrderBy="distinguishedName"
        $oRS = CreateObject("ADODB.Recordset")
        $oRS.CursorLocation=3
        $oRS.Sort=$OrderBy
        $oRS.Open($sQ,$oCon,0,1,1)
    Else
        If $OrderBy
            $oCMD.Properties("Sort On").Value=$OrderBy
        EndIf
        $oRS = $oCMD.Execute
    EndIf
    If @ERROR Exit @ERROR EndIf
    If $oRS.BOF AND $oRS.EOF Exit @ERROR EndIf
    
    Do 
        $nul=Execute('$'+'vP='+$sGV)
        $aR[$R]=$vP
        $oRS.MoveNext
        $R=$R+1
        ReDim Preserve $aR[$R]
    Until $oRS.EOF
    ReDim Preserve $aR[$R-1]
    $fnLDAPQuery=$aR
EndFunction