GetAuthenticationLoginName

Description

Devuelve el valor String que un usuario entra como nombre de inicio de sesión cuando se autentica. El valor de retorno puede ser diferente al nombre de usuario de Rational ClearQuest si el usuario se autentica con LDAP.

Utilice el método GetUserLoginName para obtener el nombre de Rational ClearQuest del usuario almacenado en el registro de perfil de usuario para el usuario.

Devuelve el nombre de inicio de sesión que se ha utilizado para crear la sesión. El valor devuelto es el nombre que se utiliza para autenticar al usuario, no el nombre de campo de inicio de sesión del usuario de Rational ClearQuest que se ha almacenado en el registro de perfil de usuario para el usuario. El valor de retorno puede ser un nombre de inicio de sesión de LDAP (por ejemplo, myname@us.ibm.com) y no un nombre de usuario de Rational ClearQuest (por ejemplo, mycqname).

Nota: Este método estuvo disponible en la versión de 2003.06.14.

Sintaxis

VBScript

session.GetAuthenticationLoginName 

Perl

$session->GetAuthenticationLoginName(); 
Identificador
Description
session
El objeto Session que representa la sesión de acceso actual.
Valor de retorno
Un valor String que contiene el nombre de autenticación que se ha utilizado para crear esta sesión.

Ejemplos

VBScript

mySession.UserLogon "admin", "", dbName, AD_PRIVATE_SESSION, ""

set mySession = CreateObject("ClearQuest.Session") 
mySession.UserLogon "admin", "", dbName, AD_PRIVATE_SESSION, "" 
userLogin = mySession.GetAuthenticationLoginName
' ...

Perl

use CQPerlExt;
my ($login, $pwd, $dbname, $dbset, $cqusername) = @_;
my $authusername = $login;
my $sessionObj = CQSession::Build();
$sessionObj->UserLogon($login, $pwd, $dbname, $dbset);
my $loginname = $sessionObj->GetUserLoginName();
my $authloginname = $sessionObj->GetAuthenticationLoginName();
print "User login: $authusername , $authloginname , $cqusername, $loginname \n";
if ($loginname ne $cqusername)
   {
      print "User login $loginname != $cqusername!!\n";
   }
if ($authloginname ne $authusername)
   {
      print "User authname $authloginname != $authusername!!\n";
   }
CQSession::Unbuild($sessionObj);

Comentarios