GetAuthenticationLoginName

Description

Riporta la stringa che un utente immette come nome di accesso durante l'autenticazione. Il valore di ritorno potrebbe essere differente da un nome utente Rational ClearQuest se l'utente è autenticato LDAP.

Utilizzare il metodo GetUserLoginName per ottenere il nome Rational ClearQuest dell'utente memorizzato nel record del profilo utente per l'utente.

Restituisce il nome di accesso utilizzato per creare l'oggetto AdminSession. Il valore restituito è il nome utilizzato per autenticare l'utente, non il nome campo di accesso utente Rational ClearQuest memorizzato nel record del profilo utente per l'utente. Il valore di ritorno può essere un nome di accesso LDAP (ad esempio, myname@us.ibm.com) e non un nome utente Rational ClearQuest (ad esempio, mycqname).

Nota: questo metodo diventa disponibile nella versione 2003.06.14.

Sintassi

VBScript

adminSession.GetAuthenticationLoginName 

Perl

$adminSession->GetAuthenticationLoginName(); 
Identificativo
Description
adminSession
L'oggetto AdminSession rappresenta la sessione di accesso corrente dell'archivio di schemi.
Valore di ritorno
Un valore String contenente il nome di autenticazione utilizzato per creare questo oggetto AdminSession.

Esempi

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);


Feedback