LDAP ユーザー レコードと Rational® ClearQuest® ユーザー レコードとの相関に使用される Rational ClearQuest ユーザー プロファイル フィールドを戻します。
CQLDAPMap 定数に対応する Long を戻します。 マッピングが構成されていない場合は、0 を戻します。スキーマ リポジトリ (つまり、マスター データベース) への接続でエラーがある場合は、例外が戻されることがあります。
CQLDAPMap 定数は次のいずれかの Rational ClearQuest ユーザー プロファイル フィールドです。名前、フルネーム、電話番号、電子メール、各種情報。CQLDAPMap フィールドは、installutil setcqldapmap サブコマンドで指定されます。
MultiSite 環境では、Rational ClearQuest によって、すべてのサイトに同じ CQLDAPMap フィールド (つまり、同じ Rational ClearQuest ユーザー プロファイル フィールド) が強制的に使用されますが、マップされる LDAP 属性はサイト固有にすることが可能です。これによって、サイトごとに LDAP スキーマが異なるようにできますが、Rational ClearQuest は、Rational ClearQuest マッピング フィールド値がデータベース セット全体で固有であることを強制できます。
installutil setcqldapmap コマンドを使用して、Rational ClearQuest が LDAP マッピングするようにデータベース セットが構成されていない場合、GetCQLDAPMap は 0 を戻します。
VBScript
adminSession.GetCQLDAPMap()
Perl
$adminSession->GetCQLDAPMap();
VBScript
' Build a CQ AdminSession object...
Set CQAdminSession = CreateObject("CLEARQUEST.ADMINSESSION")
' Log on...
CQAdminSession.Logon CQADMINUSER, CQADMINPASSWORD, DBSET
' Test adminSession.GetCQLDAPMap
map = CQAdminSession.GetCQLDAPMap
if map = 0 then
msgbox "CQ to LDAP mapping not configured.
Run installutil setcqldapmap command" & vbcrlf
elseif map = AD_CQ_LOGIN_NAME then
msgbox "Map to CQ_LOGIN_NAME" & vbcrlf
elseif map = AD_CQ_FULLNAME then
msgbox "Map to CQ_FULLNAME" & vbcrlf
elseif map = AD_CQ_EMAIL then
msgbox "Map to CQ_EMAIL" & vbcrlf
elseif map = AD_CQ_PHONE then
msgbox "Map to CQ_PHONE" & vbcrlf
elseif map = AD_CQ_MISC_INFO then
msgbox "Map to CQ_MISC_INFO" & vbcrlf
else
msgbox "Undefined map value" & vbcrlf
end if
' Destroy the AdminSession (to log out of the database)
Set CQAdminSession = Nothing
Perl
use CQPerlExt;
my $admin_user = shift;
my $admin_pwd = shift;
my $dbset = shift;
my $AdminSession = CQAdminSession::Build();
eval{$AdminSession->Logon($admin_user, $admin_pwd, $dbset);};
if ($@){print "Error: $@¥n";}
my $map;
eval{$map = $AdminSession->GetCQLDAPMap();};
if ($@){print "Error: $@¥n";}
if ($map == 0){ print "CQ to LDAP mapping not configured.
Run installutil setcqldapmap command¥nn";
}
elseif ($map == $CQPerlExt::CQ_CQ_LOGIN_NAME){
print "Map to CQ_LOGIN_NAME¥nn";
}
elsif ($map == $CQPerlExt::CQ_CQ_FULLNAME){
print "CQ Authmode for CQ_CQ_FULLNAME¥n";
}
elsif ($map == $CQPerlExt::CQ_CQ_EMAIL){
print "CQ Authmode for CQ_CQ_EMAIL¥n";
}
elsif ($map == $CQPerlExt::CQ_CQ_PHONE){
print "CQ Authmode for CQ_CQ_PHONE¥n";
}
elsif ($map == $CQPerlExt::CQ_CQ_MISC_INFO){
print "CQ Authmode for CQ_CQ_MISC_INFO¥n";
}
else{
print "Undefined map value - val was $map¥n";
}
CQPerlExt::CQAdminSession_Unbuild($AdminSession);