$user_dep=GetObject("LDAP://CN="+@FullName+",OU=users,DC=aaa,DC=com")
use g: "\\server\"+$user_dep.department+"$"

$user_dep = GetObject("LDAP://CN=USERNAME,OU=users,DC=aaa,DC=com").Department
use g: "\\server\" + $user_dep + "$"

$User = GetObject("LDAP://CN=USERNAME,OU=Users,DC=aaa,DC=com")
@ERROR " | " @SERROR ?
"Username: " $User.samAccountName ?
"Department: " $User.Department ?

Break On

$nul=SetOption("WrapAtEOL","On")

$FQDN = TranslateName (3,"",3,"@LDOMAIN\@USERID",1)
If @ERROR
   @ERROR " | " @SERROR ?
Else
   "Fully Qualified Domain Name: " + $FQDN ?

   $User = GetObject("LDAP://" + $FQDN)
   If @ERROR @ERROR " | " @SERROR ? EndIf
   "Username: " $User.samAccountName ?
   "Department: " $User.Department ?
EndIf

Function TranslateName ($InitType, $BindName, $LookupNameType, $LookupName, $ReturnNameType)

   Dim $InitType, $BindName, $LookupNameType, $LookupName, $ReturnNameType
   Dim $NameTranslate, $ReturnName, $Error, $ErrorText

   $Error = 0
   $ErrorText = ""
   $ReturnName = ""
   $NameTranslate = CREATEOBJECT ("NameTranslate")
   if @Error = 0
      $NameTranslate.Init ($InitType, $BindName)
      if @Error = 0
         $NameTranslate.Set ($LookupNameType, $LookupName)
         if @Error = 0
            $ReturnName = $NameTranslate.Get($ReturnNameType)
         endif
      endif
   endif
   $TranslateName = $ReturnName
   If @ERROR<0 Exit VAL("&"+Right(DecToHex(@ERROR),4)) EndIf
Endfunction

Quote:

---

Ok Sealeopard, thanks...
DLL registered ok and versions of kix is:
Kixtart - 4.22
Kixforms - 2.2.0

---

Quote:

---

worng (sp)

---

Just like Fonzie, you cannot even bring yourself to say it.

Break On

$nul=SetOption("WrapAtEOL","On")

$objADSystemInfo = CreateObject("ADSystemInfo")
If @ERROR
   @ERROR " | " @SERROR ?
Else
   "Fully Qualified User Name: " + $objADSystemInfo.UserName ?

   $User = GetObject("LDAP://" + $objADSystemInfo.UserName)
   If @ERROR @ERROR " | " @SERROR ? EndIf
   "Username: " $User.samAccountName ?
   "Department: " $User.Department ?
EndIf