> The following code has the benefit of using NT credentials of the
> currently logged in user. But, the currently logged in user needs to
> have access in Exchange. :)
>
> No passwords in clear text to glean from your scripts That's
> usually a good thing. :)
>
> $OLECon =
> Win32::OLE->G
Thanks for sharing your work on Exhange (Win32::Exchange) with the
community Steven.
___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
May 29, 2007 5:52 PM
To: perl-win32-users@listserv.activestate.com
Subject: Re: Using Win32::OLE to Query Exchange Remotely
Figured it out:
$host = "192.168.42.3";
$user = "vdom\\Administrator";
$pass = "password";
$WMI = Win32::OLE->new('WbemScripting.SWbemLocator') ||
Figured it out:
$host = "192.168.42.3";
$user = "vdom\\Administrator";
$pass = "password";
$WMI = Win32::OLE->new('WbemScripting.SWbemLocator') ||
die "Cannot access WMI on local machine: ", Win32::OLE->LastError;
$OLECon = $WMI->ConnectServer($host, "root\\MicrosoftExchangeV2", $user,
$
I use this to query Exchange Mailbox and Public Folder sizes locally on
the server:
use Win32::OLE qw(in);
# Get item counts and sizes for each mailbox on the target server
#
my $OLECon=
Win32::OLE->GetObject('winmgmts:localhost\\root\\MicrosoftExchangeV2')
or die "WMI Connection Failed\n";
