Skip to main content

Adding Bulk New Contacts to Microsoft Active Directory

Sometimes it is a pain for SysAdmins to add objects to Windows AD. In this example i have provided a visual basic script which reads information about some mail enabled contacts from a tab seperated text file, then create them in the Active Directory.

Every line of the text file includes:
Contact Name
First Name
Surname
Description
Office
Phone Number
E-Mail
City
Title
Department
Company


vbscript includes: (Just adapt ldap path and text file path to your needs.)
On Error Resume Next
Set objOU = GetObject("LDAP://<Domain Controller Hostname>l/ou=<organizational unit name>,dc=<domain name>,dc=<domain name>")
Const ForReading = 1
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("<Text File Path>", ForReading)
Do Until objFile.AtEndOfStream
    strLine = objFile.ReadLine
    arrFields = Split(strLine, vbTab)
Set objContact = objOU.Create("contact", "cn=" & arrFields(0))
objContact.Put "givenName", arrFields(1)
objContact.Put "SN", arrFields(2)
objContact.Put "displayname", arrFields(0)
objContact.Put "Description", arrFields(3)
objContact.Put "physicalDeliveryOfficeName", arrFields(4)
objContact.Put "telephoneNumber", arrFields(5)
objContact.Put "Mail", arrFields(6)
objContact.Put "l", arrFields(7)
objContact.Put "title", arrFields(8)
objContact.Put "department", arrFields(9)
objContact.Put "company", arrFields(10)
objContact.SetInfo
WScript.Echo arrFields(0) & " - Contact OK"
Set objRecip = objContact
FwdAddress = "smtp:" & arrFields(6)
objRecip.MailEnable FwdAddress
objContact.SetInfo
WScript.Echo arrFields(0) & " - SMTP OK"
Loop
objFile.Close

Note: Run this script from command line using cscript like "cscript <script-name>.vbs"

Comments

Popular posts from this blog

Creating Multiple VLANs over Bonding Interfaces with Proper Routing on a Centos Linux Host

In this post, I am going to explain configuring multiple VLANs on a bond interface. First and foremost, I would like to describe the environment and give details of the infrastructure. The server has 4 Ethernet links to a layer 3 switch with names: enp3s0f0, enp3s0f1, enp4s0f0, enp4s0f1 There are two bond interfaces both configured as active-backup bond0, bond1 enp4s0f0 and enp4s0f1 interfaces are bonded as bond0. Bond0 is for making ssh connections and management only so corresponding switch ports are not configured in trunk mode. enp3s0f0 and enp3s0f1 interfaces are bonded as bond1. Bond1 is for data and corresponding switch ports are configured in trunk mode. Bond0 is the default gateway for the server and has IP address 10.1.10.11 Bond1 has three subinterfaces with VLAN 4, 36, 41. IP addresses are 10.1.3.11, 10.1.35.11, 10.1.40.11 respectively. Proper communication with other servers on the network we should use routing tables. There are three

PowerShell Script for Switching Between Multiple Windows

Windows PowerShell has strong capabilities. I have a separate computer with a big lcd screen in which I am watching regularly some web based monitoring applications. So I need those application windows switch between on a timely basis. Then I wrote this simple powershell script to achieve this. You can change it according to your needs.