; LDAPQuery(WHAT, [FROM], [FILTER], [ORDER BY], [SCOPE], [USER], [PASSWORD]) 
$aData = fnLDAPQuery('pwdLastSet', 'LDAP://CN=TestUser,CN=Users,DC=corporate,DC=libgo', '(objectClass=User)')
@SERROR ?
UBound($aData) ' elements' ?
For Each $ in $aData
 $ ?
Next

break on
 
$aData = GetLastPwdSetList(
	"LDAP://CN=TestUsers,CN=Users,DC=xxx,DC=xxx",	; from where
	"&(objectClass=User)"				; filter
)
@SERROR ?
(UBound($aData,1)+1) ' elements' ?
for $i=0 to UBound( $aData,1 )
    $objUser = GetObject( "LDAP://"+$aData[$i,0] )
    $objUser.GetInfo()

    $objUser.distinguishedname+chr(9)+
    $objUser.displayname+chr(9)+
    $objUser.PasswordLastChanged ?
Next
 
Function GetLastPwdSetList($sFrom, $sFilter)
	Dim $sWhat, $sScope, $Request
 
	$sWhat = "distinguishedname"
	$sScope = "SubTree"
	$Request = fnLDAPQuery($sWhat, $sFrom, "("+$sFilter+")", , $sScope)
	if @error	exit @error	endif
 
	$GetLastPwdSetList=$Request
	Exit 0
EndFunction