LDAP 認証が指定された 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);