Devuelve el nombre de la base de datos.
Puede utilizar el método GetAccessibleDatabases del objeto Session para obtener una lista de objetos DatabaseDesc y, a continuación, utilizar GetDatabaseName para obtener el nombre de cada uno. El nombre de la base de datos se utiliza como un argumento para el método UserLogon del objeto Session.
VBScript
En el ejemplo siguiente se muestra cómo iniciar la sesión en la base de datos desde una aplicación de Visual Basic.
set sessionObj = CreateObject("CLEARQUEST.SESSION")
' Iniciar la sesión en cada base de datos sucesivamente.
databases = sessionObj.GetAccessibleDatabases("MASTR","","")
For Each db in databases
If Not db.GetIsMaster Then
dbName = db.GetDatabaseName
`Iniciar la sesión en la base de datos
sessionObj.UserLogon "tom", "gh36ak3", dbName, AD_PRIVATE_SESSION, ""
End If
' ...
Next
Perl
use CQPerlExt;
#Iniciar una sesión de Rational ClearQuest
$sessionObj = CQSession::Build();
#Obtener una lista de bases de datos a las que se puede acceder
$databases = $sessionObj->GetAccessibleDatabases("MASTR", "", "");
#Obtener el número de bases de datos
$count = $databases->Count();
# Para cada base de datos a la que se puede acceder, obtener el dbName e
# iniciar la sesión como joe con la contraseña gh36ak3
for($x=0;$x<$count;$x++){
$db = $databases->Item($x);
$dbName = $db->GetDatabaseName();
# Iniciar la sesión en la base de datos
$sessionObj->UserLogon( "joe", "gh36ak3", $dbName, "" );
#...
}
CQSession::Unbuild($sessionObj);