VBScript
set sessionObj = GetSession If sessionObj.IsMetadataReadonly Then ' ... End If
Perl
#Obtener una sesión de Rational
ClearQuest
$sessionObj = $entity->GetSession();
#Si los metadatos de la sesión son de sólo lectura, realizar alguna acción
if ( $sessionObj->IsMetadataReadonly ) {
# ...
}