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