VBScript
Set sessionObj = CreateObject("CLEARQUEST.SESSION") sessionObj.UserLogon "admin", "", "SAMPL", AD_PRIVATE_SESSION, "" Level = sessionObj.GetSessionFeatureLevel() MsgBox (Level)
Perl
use CQPerlExt;
#Start a Rational ClearQuest session
$Session = CQSession::Build();
$Session->UserLogon("admin","","SAMPL","");
$level = $Session->GetSessionFeatureLevel();
print "Level:$level\n";
CQSession::Unbuild($Session);