UserLogon

Descrizione

Effettua l'accesso come utente specificato per una sessione del database.

Prima di richiamare questo metodo, è necessario aver già creato e inizializzato un nuovo oggetto Session.

Nota: è necessario effettuare l'accesso con i privilegi Super utente oppure verrà generato un errore dal metodo GetDatabaseConnectString dell'oggetto DatabaseDesc.

Se si sta scrivendo un codice hook, non è necessario richiamare questo metodo. IBM Rational ClearQuest crea l'oggetto Session per l'utente e lo registra prima di richiamare qualsiasi hook.

Sintassi

VBScript

session.UserLogon login_name, password, database_name, session_type, database_set 

Perl

$session->UserLogon(login_name, password, database_name, database_set); 
Identificativo
Descrizione
session
L'oggetto Session che rappresenta la sessione di accesso al database corrente.
login_name
Una stringa che specifica il nome di accesso dell'utente.
password
Una stringa che specifica la password dell'utente.
database_name
Una stringa che specifica il nome del database utente desiderato. (Non è necessario accedere al repository schema utilizzando questo metodo.)
session_type
(Solo VBScript) Una costante SessionType enumerata (utilizzare AD_PRIVATE_SESSION). Perl non riconosce le costanti SessionType.
database_set
Una stringa che specifica il nome del gruppo di database o la stringa di connessione. Nota: è possibile utilizzare una stringa vuota ("") se si dispone solo di un gruppo di database o per fare riferimento al gruppo di database predefinito. Il nome del gruppo di database predefinito è un nome che corrisponde al numero della versione del prodotto (ad esempio, 2003.06.00).
Valore di ritorno
Nessuno.

Esempi

VBScript

' The following example shows you how to log on to the database
'  from a Visual Basic application.  
set sessionObj = CreateObject("CLEARQUEST.SESSION")    
' Login to each database successively.
databases = sessionObj.GetAccessibleDatabases("MASTR","admin","")  
For Each db in databases   
   dbName = db.GetDatabaseName   
   sessionObj.UserLogon "admin", "", dbName, AD_PRIVATE_SESSION, ""  
' Access the database   
' ...  Next

Perl

use CQPerlExt;

#Start a Rational ClearQuest session

$sessionObj = CQSession::Build();

#Get a list of accessible databases

$databases = $sessionObj->GetAccessibleDatabases("MASTR", "admin", "");

$count = $databases->Count();

#For each accessible database, 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); 

Feedback