>#define ADS_NAME_INITTYPE_GC 3 >#define ADS_NAME_TYPE_1779 1 >#define ADS_NAME_TYPE_NT4 3 >clear > >loUser = GetObject("LDAP://" + getDistinguishedName(Getenv("USERNAME"))) >? loUser.CN > >Function getDistinguishedName(tcSAMAccountName, tcDomain) > local loNameTranslate, lcDistinguishedName, lcDomain > > lcDomain = Iif(Vartype(tcDomain) = 'C' and not Empty(tcDomain), tcDomain, Getenv("USERDOMAIN")) > loNameTranslate = CreateObject("NameTranslate", ADS_NAME_INITTYPE_GC, "") > loNameTranslate.Set(ADS_NAME_TYPE_NT4, lcDomain + "\" + tcSAMAccountName) > lcDistinguishedName = loNameTranslate.Get(ADS_NAME_TYPE_1779) > return lcDistinguishedName >endfunc > >Sorry, got