Sync Active Directory Contacts

Perl script to synchronize Active Directory users to contact and contactgroup objects.

This works by:
1. All members of the group defined in “ALL_CONTACTS_GROUP” are fetched from “BASE_USER_DN” (recursively).

2. A contact object is created from each of the members. “mobile” and “mail” are used for the email and pager attributes in the object. The script will give a warning if either mobile or mail is undefined for the user.

3. All groups under BASE_GROUP_DN are fetched.

4. A contactgroup object is created for each group. The name is taken from ‘sAMAccountName’. All members of the group are defined under the attribute members.

5. If the flag “--gen_service” is passed to the script, a service object template is created for each of the groups, where the attribute contactgroup_name is set to the group name. This could be used as a template for services for which you want the group notified.

After each new contact or contactgroup is written a check is run by using the “–v” option. If errors are found the script will roll back the object if a previous version of the file existed, if not the file will be deleted. In either case the exit code for WARNING is given.

The Perl modules Net::LDAP, Getopt::Long and File::Copy are required for the script to run. The file paths should be adopted to your environment.

Written as part of our bachelor's thesis - "Monitoring is Key".
-MonKey, 2013.