Does this get you closer to your goal?
Code:
Break on
SetOption("NoVarInString","Off")
include "K:\Functions\fnLDAPQuery.kix"
Global $FullName
Global $Suffix
Global $Title
Global $Mobile
Global $email
Global $Comment
$USERNAME="%username%"
$sADsPath = "LDAP://"+GetObject("LDAP://rootDSE").Get("defaultNamingContext")
$strFilter = "(&(objectClass=User)(sAMAccountName="+$USERNAME+"))"
$aAttributes = "displayName", "physicalDeliveryOfficeName", "description", "telephoneNumber", "mail", "wWWHomePage"
$aResults = fnLDAPQuery($aAttributes,$sADsPath,$strFilter)
? "Fullname: " + $aResults[0,0]
? "Suffix: " + $aResults[0,1]
? "Title: " + IIf(VarType($aResults[0,2]) & 8192,Join($aResults[0,2]),$aResults[0,2])
? "Mobile: " + $aResults[0,3]
? "Email: " + $aResults[0,4]
? "HomePage: " + $aResults[0,5]
?? "Done." Get $