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과 동일하거나 널 문자열로 설정되어야 합니다.
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);