Solved

add mulitiply SMTPs to an account when creating in VBS

Posted on 2010-11-29
3
575 Views
Last Modified: 2012-06-27
Hi,
  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.SetInfo



ObjUser.accountDisabled = False

ObjUser.setPassword pass

ObjUser.SetInfo

Open in new window

0
Comment
Question by:supportAB
3 Comments
 
LVL 70

Expert Comment

by:Chris Dent
Comment Utility

Have you considered using ADS_PROPERTY_APPEND?

e.g.

Const ADS_PROPERTY_APPEND = 3

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

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.

Chris
0
 
LVL 25

Accepted Solution

by:
Tony1044 earned 500 total points
Comment Utility
Const ADS_PROPERTY_APPEND = 3
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)
 objUser.SetInfo

Loop
0
 

Author Closing Comment

by:supportAB
Comment Utility
thank you so much
0

Featured Post

How to run any project with ease

Manage projects of all sizes how you want. Great for personal to-do lists, project milestones, team priorities and launch plans.
- Combine task lists, docs, spreadsheets, and chat in one
- View and edit from mobile/offline
- Cut down on emails

Join & Write a Comment

Marketers need statistics and metrics like everybody else needs oxygen. In this article we explain how to enable marketing campaign statistics for Microsoft Exchange mail.
This article explains in simple steps how to renew expiring Exchange Server Internal Transport Certificate.
In this video we show how to create a Contact in Exchange 2013. We show this process by using the Exchange Admin Center. Log into Exchange Admin Center.: First we need to log into the Exchange Admin Center. Navigate to the Recipients >> Contact ta…
In this Micro Video tutorial you will learn the basics about Database Availability Groups and How to configure one using a live Exchange Server Environment. The video tutorial explains the basics of the Exchange server Database Availability grou…

728 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

Need Help in Real-Time?

Connect with top rated Experts

9 Experts available now in Live!

Get 1:1 Help Now