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 para crear el objeto AdminSession. 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

adminSession.GetAuthenticationLoginName 

Perl

$adminSession->GetAuthenticationLoginName(); 
Identificador
Description
adminSession
Objeto AdminSession que representa la sesión de acceso al repositorio de esquemas actual.
Valor de retorno
Un valor String que contiene el nombre de autenticación que se utiliza para crear la sesión de administración.

Ejemplos

VBScript

set adminSession = CreateObject("ClearQuest.AdminSession") 
adminSession.Logon "admin", "admin", "" 
userLogin = adminSession.GetAuthenticationLoginName
' ...

Perl

use CQPerlExt;
my ($admin_user_login, $admin_pwd, $dbset, $cqusername) = @_;
my $authusername = $admin_user_login;
my $adminSessionObj = CQAdminSession::Build();
$adminSessionObj->Logon($admin_user_login, $admin_pwd, $dbset);
my $loginname = $adminSessionObj->GetUserLoginName();
my $authloginname = $adminSessionObj->GetAuthenticationLoginName();
print "Admin login: $authusername , $authloginname , $cqusername, $loginname \n";
if ($loginname ne $cqusername)
   {
      print "Admin login $loginname != $cqusername!!\n";
   }
if ($authloginname ne $authusername)
   {
      print "Admin authname $authloginname != $authusername!!\n";
   }
CQAdminSession::Unbuild($adminSessionObj);

Comentarios