VBScript
adminSession.GetDatabase(databaseName)
Perl
$adminSession->GetDatabase(databaseName);
VBScript
set adminSession = CreateObject("ClearQuest.AdminSession") adminSession.Logon "admin", "admin", "" set dbObj = adminSession.GetDatabase ("NEWDB")
Perl
use CQPerlExt; #Create a Rational ClearQuest admin session $adminSession = CQAdminSession::Build(); #Logon as admin $adminSession->Logon( "admin", "admin", "" ); #Get the database "NEWDB" object $dbObj = $adminSession->GetDatabase( "NEWDB" ); #... CQAdminSession::Unbuild($adminSession);