LDAP 認証が指定された Rational® ClearQuest® ユーザー アカウントを作成します。新規ユーザー アカウント AuthenticationMode を LDAP_AUTHENTICATION として設定します。
CreateUserLDAPAuthenticated メソッドは、LDAP 属性値を LDAP ユーザー アカウントから ClearQuest ユーザー プロファイル フィールドにコピーして、LDAP ユーザー名を Rational ClearQuest ユーザー名にマップします。
CQ_LOGIN_NAME がマッピング フィールドとして構成されている場合 (installutil setcqldapmap サブコマンドを使用して、LDAP と ClearQuest ユーザー アカウントとの相関に使用する Rational ClearQuest ユーザー プロファイル フィールドを指定)、CQ_user_name パラメータは LDAP_login_name と同一か、または NULL 文字列に設定されている必要があります。
VBScript
adminSession.CreateUserLDAPAuthenticated(LDAP_login_name, CQ_user_name)
Perl
$adminSession->CreateUserLDAPAuthenticated(LDAP_login_name, CQ_user_name);
VBScript
' Create a Rational ClearQuest admin session
set adminSession = CreateObject("ClearQuest.AdminSession")
' Logon as admin
adminSession.Logon "admin", "admin", ""
' Create an LDAP authenticated user
Dim cquser2 ' a user object
Dim ldap_login
Dim cq_username
Dim mode
' the user authentication mode
ldap_login = "myusername@us.ibm.com"
cq_username = "myusername"
StdOut "Creating LDAP authenticated user " & ldap_name & vbCrLf
Set cquser2 = admin_session.CreateUserLDAPAuthenticated(ldap_login, cq_username)
' verify the user authentication mode:
StdOut "Getting authentication mode for user " & cquser2.name & vbCrLf
mode = cquser2.GetAuthenticationMode
StdOut "user mode: " & CStr(mode) & vbCrLf
Perl
use CQPerlExt;
# Create a Rational ClearQuest admin session
$adminSession= CQAdminSession::Build();
#Logon as admin
$adminSession->Logon( "admin", "admin", "" );
my $ldap_login = "myusername@us.ibm.com";
my $cq_username = "myusername";
my $newUserObj;
$newUserObj = $adminSession->CreateUserLDAPAuthenticated($ldap_login, $cq_username);
# ...
CQAdminSession::Unbuild($adminSession);