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);