認証時にユーザーがログイン名として入力する文字列を戻します。 戻り値は、ユーザーが LDAP 認証されている場合、Rational® ClearQuest® ユーザー名と異なる場合があります。
GetUserLoginName メソッドを使用して、ユーザーのユーザー プロファイル レコードに格納されているユーザーの Rational ClearQuest 名を取得します。
AdminSession オブジェクトの作成に使用されたログイン名を戻します。戻された値は、ユーザーの認証に使用された名前であり、ユーザーのユーザー プロファイル レコードに格納されている Rational ClearQuest ユーザーのログイン フィールド名ではありません。戻り値は LDAP ログイン名 (例えば、myname@us.ibm.com) であり、Rational ClearQuest ユーザー名 (例えば、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);