Хотите получить атрибуты MS Exchange в Perl-Linux

Question

Я использую Perl в среде Linux.хочу получить атрибуты MS Exchange (например, mAPIRecipient), используя Net :: LDAPS, но он дает мне доступ только к атрибутам LDAP (не к атрибуту Exchange). В Windows это представляется возможным с Win32 :: OLE Как мы можем сделать это в perl?

Answer 1

Я не понимаю, почему Net::LDAP не предоставил бы вам все атрибуты, включая атрибуты Active Directory, поскольку он не различает атрибуты LDAP и AD / MS Exchange.

Просто запустил этот код на одном из наших серверов Linux:

   use v5.10;
   use Net::LDAP;
   my $filter = '(&(objectCategory=user))';
   my $base   = 'dc=example,dc=com';
   my $ldap = Net::LDAP->new( $host ) or die $!;
   my $ldap->bind('myuser', password=>'s3cr3t' );
   my $results = $ldap->search( 
          base   => $base, 
          scope  =>'sub', 
          filter =>$filter 
   );
   # to detect bind/search errors:
   die $results->error if $results->code; 
   my $entry = $results->entry(0);
   say for sort $entry->attributes; 

Это атрибуты, которые я получил от нашей эры. Я не вижу mAPIRecipient, возможно, потому что он не настроен на выход, не уверен, но я получаю много других особенностей MS Exchange:

accountExpires
adminCount
badPasswordTime
badPwdCount
cn
codePage
countryCode
description
displayName
distinguishedName
givenName
instanceType
ipPhone
isCriticalSystemObject
lastLogonTimestamp
lockoutTime
mSMQDigests
mSMQSignCertificates
memberOf
msExchALObjectVersion
msExchUserAccountControl
msNPAllowDialin
name
objectCategory
objectClass
objectGUID
objectSid
primaryGroupID
pwdLastSet
sAMAccountName
sAMAccountType
uSNChanged
uSNCreated
userAccountControl
userParameters
userPrincipalName
whenChanged
whenCreated