UserLogon

Descripción

Inicia la sesión como el usuario especificado para una sesión de base de datos.

Antes de llamar a este método, debe haber creado e inicializado un nuevo objeto Session.

Nota: Debe iniciar la sesión con el privilegio de superusuario puesto que, de lo contrario, el método GetDatabaseConnectString del objeto DatabaseDesc genera un error.

Si va a escribir código de enganche, no necesita llamar a este método. IBM Rational ClearQuest crea, automáticamente, el objeto Session e inicia la sesión del usuario antes de llamar a ningún enganche.

Sintaxis

VBScript

session.UserLogon
nombre_inicioSesión, contraseña,
nombre_baseDatos, tipo_sesión,conjunto_basesDatos 

Perl

$session->UserLogon(nombre_inicioSesión,
contraseña, nombre_baseDatos,
conjunto_basesDatos); 
Identificador
Descripción
session
El objeto Session que representa la sesión de acceso a la base de datos actual.
nombre_inicioSesión
Un valor String que especifica el nombre de inicio de sesión del usuario.
contraseña
Un valor String que especifica la contraseña del usuario.
nombre_baseDatos
Un valor String que especifica el nombre de la base de datos de usuario que se desea. (No se debe iniciar la sesión en el depósito de esquemas utilizando este método).
tipo_sesión
(Sólo VBScript) Una constante enumerada de SessionType (utilizar AD_PRIVATE_SESSION). Perl no reconoce las constantes de SessionType.
conjunto_basesDatos
Un valor String que especifica el nombre del conjunto de bases de datos o serie de conexión. Nota: Puede utilizar una serie vacía ("") si sólo tiene un conjunto de bases de datos o para hacer referencia al conjunto de bases de datos por omisión. El nombre del conjunto de bases de datos por omisión es el que coincide con el número de versión del producto (por ejemplo, 2003.06.00).
Valor de retorno
Ninguno.

Ejemplos

VBScript

' En el ejemplo siguiente se muestra cómo iniciar la sesión en la base de datos
'  desde una aplicación Visual Basic.  
set sessionObj = CreateObject("CLEARQUEST.SESSION")    
' Iniciar la sesión en cada base de datos sucesivamente.
databases = sessionObj.GetAccessibleDatabases("MASTR","admin","")  
For Each db in databases   
   dbName = db.GetDatabaseName   
   sessionObj.UserLogon "admin", "", dbName, AD_PRIVATE_SESSION, ""  
' Acceder a la base de datos   
' ...  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", "admin", "");

$count = $databases->Count();

#Para cada base de datos a la que se puede acceder, 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); 


Comentarios