Session オブジェクトの GetAccessibleDatabases メソッドを使用すると、DatabaseDesc オブジェクトのリストを取得し、その後 GetDatabaseName を使用して各データベースの名前を取得できます。データベースの名前を、Session オブジェクトの UserLogon メソッドの引数として使用します。
VBScript
以下の例は、Visual Basic アプリケーションからデータベースにログオンする方法を示します。
set sessionObj = CreateObject("CLEARQUEST.SESSION") ' Login to each database successively. databases = sessionObj.GetAccessibleDatabases("MASTR","","") For Each db in databases If Not db.GetIsMaster Then dbName = db.GetDatabaseName `Logon to the database sessionObj.UserLogon "tom", "gh36ak3", dbName, AD_PRIVATE_SESSION, "" End If ' ... Next
Perl
use CQPerlExt; #Start a Rational ClearQuest session $sessionObj = CQSession::Build(); #Get a list of accessible databases $databases = $sessionObj->GetAccessibleDatabases("MASTR", "", ""); #Get the number of databases $count = $databases->Count(); # Foreach accessible database, get the dbName and # 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);