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