add mulitiply SMTPs to an account when creating in VBS

Posted on 2010-11-29
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
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
LVL 71

Expert Comment

by:Chris Dent
ID: 34230951

Have you considered using ADS_PROPERTY_APPEND?



ObjUser.PutEx ADS_PROPERTY_APPEND, "myDomain-EmailAddresses", Array("")

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 25

Accepted Solution

Tony Johncock earned 500 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

Free Tool: Site Down Detector

Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Always backup Domain, SYSVOL etc.using processes according to Microsoft Best Practices. This is meant as a disaster recovery process for small environments that did not implement backup processes and did not run a secondary domain controller that ne…
Did you know that more than 4 billion data records have been recorded as lost or stolen since 2013? It was a staggering number brought to our attention during last week’s ManageEngine webinar, where attendees received a comprehensive look at the ma…
Microsoft Active Directory, the widely used IT infrastructure, is known for its high risk of credential theft. The best way to test your Active Directory’s vulnerabilities to pass-the-ticket, pass-the-hash, privilege escalation, and malware attacks …
Attackers love to prey on accounts that have privileges. Reducing privileged accounts and protecting privileged accounts therefore is paramount. Users, groups, and service accounts need to be protected to help protect the entire Active Directory …

726 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