(Sólo Perl) Devuelve una referencia a los nombres de réplicas.
Perl
use CQPerlExt; my $adminSess; $adminSess = CQAdminSession::Build(); $adminSess->Logon("admin", "", "CQMS.MS_ACCESS.SITEA"); if ($adminSess->IsMultisiteActivated()) { my $replicNames; my $replicName; $replicaNames = $adminSess->GetReplicaNames(); foreach $replicaName (@$replicaNames) { printf $replicaName. "\n"; } } #... CQAdminSession::Unbuild($adminSess);