RE: Exchange 2003 replica list via WMI

Conor Lillis <> wrote:
> Hi all,
> I am hoping for some assistance in trying to enumerate Exchange 2003
> public folder replication partners using Perl and WMI. I can
> enumerate all information I am trying to retrieve except the
> ReplicaList property, and can see that the query returns data, but
> when I try to enumerate it I get no usable output.    
> I have included my snippet below, and the output below that.
> 
> foreach my $host(sort @hosts)
> {
> 	chomp($host);
> 	print "\n".gmtime()."\tRetrieving Public folder sizes on
$host\n";
> 	my $OLECon =
>
Win32::OLE->GetObject("winmgmts:\\\\$host\\root\\MicrosoftExchangeV2")||
> die "Cannot access WMI on remote machine: $host",Win32::OLE-LastError;
> 	my $PublicFolders = $OLECon->ExecQuery("Select * From
> Exchange_PublicFolder") or die "WMI Query Failed!\n";
> 	foreach my $PublicFolder(in $PublicFolders)
> 	{
> 		$PF1=$PublicFolder->AddressBookName;
> 		$PF2=$PublicFolder->TotalMessageSize/1024;
> 		$PF3=$PublicFolder->MessageCount;
> 		$PF4=$PublicFolder->Path;
> 		my $ReplicaList = $PublicFolder->ReplicaList;
> 		my $ReplicaList = $PublicFolder->ReplicaList;
> 		print "Replica Array = $ReplicaList\n";	#	Treat as
> text
> 		foreach my $replica(@ReplicaList ) {print "Replica
> $replica\n";}	#	Treat as array
> 		foreach my $key(sort keys %ReplicaList) {print "Key is
> $key\tValue is $ReplicaList{$key}\n";}	#	Treat as hash
> 	}
> }
> exit;
> 
> 
> Thu Jul 22 12:53:01 2010        Retrieving Public folder sizes on
> [Exchange server]
> Thu Jul 22 12:59:07 2010        Working on pub folder [public folder]
> Replica Array = ARRAY(0x9ead7d4)

That is telling you that you have a reference to an array, so you need
to dereference it. Try the following:

foreach my $replica(@$ReplicaList ) {
#                    ^
    print "Replica $replica\n";
}

See 'perldoc -f perlreftut' and 'perldoc perlref'.

Also, your code suggests that you may not have 'use strict;' at the
start of your script, at least the code you supply would not compile if
it was there. It's a good idea to always to have that, and 'use
warnings;' at the start of every script.

HTH

-- 
Brian Raven 
 
Please consider the environment before printing this e-mail.

This e-mail may contain confidential and/or privileged information. If you are not the intended recipient or have received this e-mail in error, please advise the sender immediately by reply e-mail and delete this message and any attachments without retaining a copy.

Any unauthorised copying, disclosure or distribution of the material in this e-mail is strictly forbidden.
_______________________________________________
ActivePerl mailing list
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs