Perl: доступ к пользователям и электронной почте в домене или из Microsoft Outlook

Question

Я недавно взял сценарий у кого-то, кто покинул компанию, и недавно он начал давать сбои. Код ищет конкретного пользователя и отправляет ему электронное письмо.

Я прибил строку виновника, которая не может быть (пользователь и пароли установлены для моей личной учетной записи):

my $dbh = DBI->connect('dbi:ODBC:IDM', $idm_user, $idm_passwd)

из этой базы данных скрипт выбирает E-mail с указанным логином.

Я не могу найти какую-либо документацию по базе данных IDM, и мне было интересно, кто-нибудь знает об этом? Это встроенная БД Microsoft Exchange или БД домена Windows?

Спасибо!

Answer 1

Эта линия подключается к источнику данных ODBC с именем IDM, определенному администратором источника данных ODBC в этой системе.

Answer 2

*

Ewww ... 1001 *

У меня такое чувство, что парень написал свою собственную базу данных для выполнения этой конкретной задачи и поддерживал эту базу данных.

Я должен был сделать что-то подобное и использовал Net :: LDAP , чтобы прочитать адрес электронной почты пользователя из Windows Active Directory, затем использовал Net :: SMTP , чтобы написать письмо , Конечно, ваш Windows Active Directory должен быть настроен для разрешения доступа LDAP, а ваша электронная почта Outlook должна быть настроена на использование почты на основе SMTP.

Вы можете попробовать что-то вроде Win32 :: AD :: User , чтобы получить адрес электронной почты пользователя напрямую из Active Directory, но у меня есть ощущение, что у вас не будет доступа для чтения / записи к нему.

Если вы можете выяснить, как получить информацию о пользователе, вы можете попробовать Mail :: Outlook , чтобы написать реальную электронную почту.

Я никогда не использовал ни один из этих модулей. Думаю, мне повезло, что на моих сайтах Windows разрешен доступ по протоколу LDAP и SMTP.