WMI query Exchange Server with Perl

[Ice-Breaker]

I've been using WMI a lot to get information from servers and I've been getting good results (generic though like processor state, hdd, logged on users, process lists etc ) Now I have a specific task to query some specific data from an Exchange Server 2010 Data like the one you might get from the performance monitor and health check like Active Mailbox Delivery Queue, send queue size, receive queue size, SMTP Current Connections and the list goes on and on. Now I've been doing some research and i've found some articles and found that this class is supposed to have the data I need : root\MicrosoftExchangeV2 I'm having a hard time coding this and I've found some vb examples that I tried to convert in perl modules but nothing seem to work. Any start up example is appreciated ps: on the exchange server wmi seems to be not accesable from remote (so i run this locally)

#!/usr/bin/perl

use Win32::OLE('in');
use constant bFlagReturnImmediately => 0x10;
use constant bFlagForwardOnly => 0x20;
#use warnings;

use Win32::OLE::Enum;

my $comp = ".";
my $oWMIService_ = Win32::OLE->GetObject( "winmgmts:impersonationLevel
+=impersonate}!\\\\$comp\\ROOT\\MicrosoftExchangeV2") or die "problem"
+;
my $colItems_ = $oWMIService_->ExecQuery ( "Select * from Exchange_Lin
+k", "WQL",     bFlagReturnImmediately | bFlagForwardOnly);

foreach my $objItem_ (in $colItems_){

print $objItem_->{StateRemote};

}

[Anonymous Monk]

What is the problem with what you posted? Why not use DBD::WMI?

[arnaud99]

Hi There, A tool I have used a lot in the past is Scriptomatic (from the Microsoft Scripting Guys). It generates basic scripts with WMI queries once you have chosen your WMI Class. I am not sure if your class is in there but it may be worth a try. Scripts are generated in various scripting languages including Perl. As far as I know Scriptomatic only runs on a Win platform.

[Ice-Breaker]

The problem is with the exchange wmi classes, when I run default wmi queries like Select * from Win32_ComputerSystem they run fine, but with the exchange classes its a bit of a problem and the code fails at die "problem".Win32::OLE->LastError;

problemWin32::OLE(0.1703) error 0x80041021
    after character 0 in
"winmgmts:{impersonationLevel=impersonate}!\\.\ROOT     mv2pplications
+←xchange:E
xchangeQueue" at test_wmi.pl line 11.

Is there any way of accessing exchange performance classes with perl in any way? I've done some reading about it and the documentation is around but there are no samples and not quite what I'm looking for..

[BrowserUk]

First, do it using the wmic command. Once you have worked out how to do it there, doing the same using OLE will either be trivial, or indicate a problem with Win32::OLE