GetAuthenticationLoginName

説明

認証時にユーザーがログイン名として入力する文字列を戻します。 戻り値は、ユーザーが LDAP 認証されている場合、Rational ClearQuest ユーザー名と異なる場合があります。

GetUserLoginName メソッドを使用して、ユーザーのユーザー プロファイル レコードに格納されているユーザーの Rational® ClearQuest® 名を取得します。

Session の作成に使用されたログイン名を戻します。戻された値は、ユーザーの認証に使用された名前であり、ユーザーのユーザー プロファイル レコードに格納されている Rational ClearQuest ユーザーのログイン フィールド名ではありません。戻り値は LDAP ログイン名 (例えば、myname@us.ibm.com) であり、Rational ClearQuest ユーザー名 (例えば、mycqname) でない場合があります。

注: このメソッドは、バージョン 2003.06.14 で使用可能になります。

構文

VBScript

session.GetAuthenticationLoginName 

Perl

$session->GetAuthenticationLoginName(); 
識別子
説明
session
現在のアクセス セッションを表す Session オブジェクト。
戻り値
この Session の作成に使用された認証名を含む String。

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

フィードバック