現在のデータベースが最低 2 つのサイトに複製されている場合は True を戻します。
VBScript
session.IsReplicated
Perl
$session->IsReplicated();
Perl
use CQPerlExt;
my $sess;
my $entity;
$sess = CQSession::Build();
$sess->UserLogon("admin", "", "MULTI", "CQMS.MS_ACCESS.SITEA");
if ($sess->IsReplicated()) {
# print out the local replica name
$entity = $sess->GetLocalReplica();
printf "Local replica is %s.¥n", $entity->GetDisplayName();
}
CQSession::Unbuild($sess);