例
Perl
use CQPerlExt;
my $adminSess;
$adminSess = CQAdminSession::Build();
$adminSess->Logon("admin", "", "CQMS.MS_ACCESS.SITEA");
if ($adminSess->IsReplicated()) {
printf "¥nLocal replica is %s.¥n", $adminSess->GetLocalReplicaName();
}
#...
CQAdminSession::Unbuild($adminSess);