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 =
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;
my
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,
$pass) ||
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') ||
die Cannot access WMI on local machine: ,
Win32::OLE-LastError;
$OLECon = $WMI-ConnectServer
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