I'm in a giving mood tonight... \:\)

 Code:
$RC=MESSAGEBOX("Some welcome message!" + @CRLF + @CRLF + "Last Logon " +  GetLastLogin(),"A messagebox",64,5)

Function GetLastLogin(optional $username)
  Dim $objTrans
  if $username=""
    $username=@ldomain + "\"+ @userid
  endif
  if not instr($username,"\")
    $username=@ldomain + "\" + $username
  endif
  $objTrans = CreateObject("NameTranslate")
  if @error
    exit @error
  else
    $objTrans.Init(3, "")
    $objTrans.Set(3,$username)
    $GetLastLogin=GetObject("LDAP://" + $objTrans.Get(1)).LastLogin
    if @error
      exit @error
    endif
  endif
EndFunction
_________________________
(... better days ahead)