Btw. I'm using kix 4.22

The code is like this:

BREAK On
$FileName="C:\TEMP\RanaUserInfo.txt"
;$FileName="C:\TEMP\ADUserInfo.txt"
;$LDAP="LDAP://ou=users,ou=kpdk,dc=q8int,dc=com"
$LDAP="cn=HK,cn=Q8"
$predom="LDAP://rana/"
$domain="cn=HK,cn=Q8"


GetAllADUserInfoToFile($domain)



FUNCTION GetAllADUserInfoToFile($dom)
DIM $type
IF EXIST($Filename) = 1
DEL($Filename)
ENDIF
$ou = GETOBJECT($predom+$dom)
FOR EACH $Item IN $ou
$domain=$item.name+","+$dom
$ClassDom=GETOBJECT($predom+$domain)
$kurt=$ClassDom.objectclass
$type=0
FOR EACH $i IN $kurt
SELECT
CASE $i="applicationprocess"
$type=1
CASE $i="q8ansathk"
$type=2
ENDSELECT
NEXT
IF $type = 1
CALL GetAllADUserInfoToFile($domain)
ENDIF
IF $type = 2
IF OPEN(1,"$FileName", 5)= 0
$InitialObj=GETOBJECT($predom+$domain)
$init=$InitialObj.get("initialer")
$out = WRITELINE(1, $init+@serror+@crlf)
$x = CLOSE(1)
ENDIF
ENDIF
NEXT

ENDFUNCTION