Returns True if the current database has at lease two replicated sites.
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);