Generally things work however I cannot get 'description' to work. Looks like the array is out of bounds for the type of data returned. Can anyone help ?
Code:
  
break on
setoption("NoVarInString","Off")
include ".\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 = "sAMAccountName", "displayName"
 $aResults = fnLDAPQuery($aAttributes,$sADsPath,$strFilter,"sAMAccountName")
$FullName= $aResults[Ubound($aResults),UBound($aResults,2)]
 $aAttributes = "sAMAccountName", "physicalDeliveryOfficeName"
 $aResults = fnLDAPQuery($aAttributes,$sADsPath,$strFilter,"sAMAccountName")
$SUFFIX= $aResults[Ubound($aResults),UBound($aResults,2)]
; $aAttributes = "sAMAccountName", "description"
; $aResults = fnLDAPQuery($aAttributes,$sADsPath,$strFilter,"sAMAccountName")
;$Title= $aResults[Ubound($aResults),UBound($aResults,2)]
$Title=@comment
 $aAttributes = "sAMAccountName", "telephoneNumber"
 $aResults = fnLDAPQuery($aAttributes,$sADsPath,$strFilter,"sAMAccountName")
$Mobile= $aResults[Ubound($aResults),UBound($aResults,2)]
 $aAttributes = "sAMAccountName", "mail"
 $aResults = fnLDAPQuery($aAttributes,$sADsPath,$strFilter,"sAMAccountName")
$email= $aResults[Ubound($aResults),UBound($aResults,2)]
 $aAttributes = "sAMAccountName", "wWWHomePage"
 $aResults = fnLDAPQuery($aAttributes,$sADsPath,$strFilter,"sAMAccountName")
$Comment= $aResults[Ubound($aResults),UBound($aResults,2)]

? $FullName+" "+$Suffix
? $Title
? $Mobile
? $email
? $Comment

sleep 10