add mulitiply SMTPs to an account when creating in VBS

Posted on 2010-11-29
Medium Priority
Last Modified: 2012-06-27
  i have created a vbs script to create a user in AD with a primary SMTP address.  Now i would like to add several SMTP addresses instead of just the one.  i am having trouble getting ubound to work with an array of addresses.  can someone please point me in the right direction?

set objOU = GetObject("LDAP://OU=TEST,DC=MYDOMAIN,DC=NET")
Set objUser = objOU.Create("User", "cn=" & last & "\, " & strUser) 
	if (err.Number<>0) Then
		MsgBox("An error has occurred. Object Could Already Exist.  Error:" & Err.Number)
    End If
objUser.Put "givenName", strUser
objUser.Put "sn", last
objUser.Put "displayName", last & ", " & strUser
objUser.Put "description", des
objUser.Put "physicalDeliveryOfficeName", off
objUser.Put "telephoneNumber", tele
objUser.Put "mail", strUser & "." & last & domainEmail
objUser.Put "sAMAccountName", strUser & "." & last
objUser.Put "streetAddress", st
objUser.Put "postOfficeBox", pb
objUser.Put "l", ct
objUser.Put "st", sOrp
objUser.Put "postalCode", zOrp
objUser.Put "countryCode", coCode
objUser.Put "co", countcode
objUser.Put "c", cAbr
ObjUser.Put "userPrincipalName", strUser & "." & last & domainEmail
ObjUser.Put "scriptPath", scr
ObjUser.Put "title", ti
ObjUser.Put "department", dep
ObjUser.Put "company", com
ObjUser.Put "mydomain-MailboxSize","100"
ObjUser.Put "mydomain-DataCenter","UNITED STATES"
ObjUser.Put "mydomain-EmailAddresses", "SMTP:" & strUser & "." & last & domainEmail


ObjUser.accountDisabled = False
ObjUser.setPassword pass

Open in new window

Question by:supportAB
LVL 71

Expert Comment

by:Chris Dent
ID: 34230951

Have you considered using ADS_PROPERTY_APPEND?



ObjUser.PutEx ADS_PROPERTY_APPEND, "myDomain-EmailAddresses", Array("smtp:newaddress1@domain.com")

I assume "mydomain-EmailAddresses" is the correct field (that is, this is not Exchange and therefore proxyAddresses), and that the field is really an array?

You'd potentially loop through each user doing that (SetInfo each time), so I advise that you put it after user creation is finalised.

LVL 26

Accepted Solution

Tony J earned 2000 total points
ID: 34231602
Set objUser = GetObject (“LDAP://path of the user“)

Set filesys = CreateObject(“Scripting.FileSystemObject”)
set filetxt = filesys.openTextfile(“c:\Names.txt”,1)
do until filetxt.AtEndofStream
 name = filetxt.readline
 name = trim(name)
 objUser.PutEx ADS_PROPERTY_APPEND, “proxyAddresses”, Array(“smtp:” & name)


Author Closing Comment

ID: 34238954
thank you so much

Featured Post

Has Powershell sent you back into the Stone Age?

If managing Active Directory using Windows Powershell® is making you feel like you stepped back in time, you are not alone.  For nearly 20 years, AD admins around the world have used one tool for day-to-day AD management: Hyena. Discover why.

Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

You have missed a phone call. The number looks like it belongs to the bunch of numbers which your company uses. How to find out who has just called you?
Here is a method which can be used to help resolve a "Content Index Failed" error on a Microsoft Exchange Server.
A short tutorial showing how to set up an email signature in Outlook on the Web (previously known as OWA). For free email signatures designs, visit https://www.mail-signatures.com/articles/signature-templates/?sts=6651 If you want to manage em…
Watch the video to know how one can repair corrupt Exchange OST file effortlessly and convert OST emails to MS Outlook PST file format by using Kernel for OST to PST converter tool. It can convert OST to MSG, MBOX, EML to access them. It can migrate…

600 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question