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).
VBScript
adminSession.GetAuthenticationLoginName
Perl
$adminSession->GetAuthenticationLoginName();
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);