データベース セッションの指定されたユーザーとしてログインします。
このメソッドを呼び出す前に、新規 Session オブジェクトが既に作成されて初期化されている必要があります。
フック コードを作成する場合は、このメソッドを呼び出す必要はありません。IBM Rational ClearQuest は、フックを呼び出す前に、Session オブジェクトを作成して、ユーザーをログインします。
VBScript
session.UserLogon login_name, password, database_name, session_type, database_set
Perl
$session->UserLogon(login_name, password, database_name, database_set);
VBScript
' The following example shows you how to log on to the database ' from a Visual Basic application. set sessionObj = CreateObject("CLEARQUEST.SESSION") ' Login to each database successively. databases = sessionObj.GetAccessibleDatabases("MASTR","admin","") For Each db in databases dbName = db.GetDatabaseName sessionObj.UserLogon "admin", "", dbName, AD_PRIVATE_SESSION, "" ' Access the database ' ... Next
Perl
use CQPerlExt;
#Start a Rational ClearQuest session
$sessionObj = CQSession::Build();
#Get a list of accessible databases
$databases = $sessionObj->GetAccessibleDatabases("MASTR", "admin", "");
$count = $databases->Count();
#For each accessible database, login as joe with password gh36ak3
for($x=0;$x<$count;$x++){
$db = $databases->Item($x);
$dbName = $db->GetDatabaseName();
# Logon to the database
$sessionObj->UserLogon( "joe", "gh36ak3", $dbName, "" );
#...
}
CQSession::Unbuild($sessionObj);