• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 422
  • Last Modified:

Establish E-Mail Addresses for Multiple AD Users

I have a need to establish e-mail addresses for a large number of users in my Active Directory.  Here's my configuration:

AD 2003, single domain
Exchange Server 2003
approximately 370 domain users
145 users with existing Exchange Server mailboxes

For my remaining 225 existing domain user accounts, I need to establish unique SMTP e-mail addresses in the format %username%@alternate.domain, that will then appear in the Exchange Server address book, but these users will NOT have Exchange Server mailboxes.  For an individual user, I can right-click and select "Exchange Tasks..." --> "Establish E-Mail Address."  Is there a way to do this for 225 existing user accounts using a script of some type?

Thanks in advance for your help!
0
isdirect
Asked:
isdirect
2 Solutions
 
pr0t0c0l12Commented:
I would suggest you import contacts to AD and create a file with all the users in the right format and then import them as microsoft suggests.
http://support.microsoft.com/kb/327620
or
This might help you better
http://computerperformance.co.uk/Logon/Logon_LDIF.htm
 
Good luck!
0
 
isdirectAuthor Commented:
Thanks, but - that's the wrong approach for me.  These are EXISTING user accounts.  I do not want to create new contacts for them; I want to "Establish E-Mail Address" under Exchange Server.  As far as I know, simply attaching an SMTP address to a contact or an existing user account does not create the global catalog entry that Exchange needs to display that user in the Address Book.
0
 
FearNoMoreCommented:
You can try using the admodify.net tool (using the custom tab)
http://admodify.codeplex.com/Thread/View.aspx?ThreadId=19044
You could also use LDIFDE
http://support.microsoft.com/kb/237677
 
 
0
 
AkhaterCommented:
from the top of my head please test before

group all users in a OU
and run this vbs
Set oOU = GetObject("LDAP://OU=TargetOU, DC=domaoin, DC=COM")
 
For Each oUser In oOU
 If oUser.Class = "user" Then
  strDN=oUser.DistinguishedName
  strEmail = oUser.name + "@domain.com"
  set oADUser=GetObject("LDAP://" & strDN)
  oADUser.MailEnable strEmailAddr
  oADUser.Put "internetEncoding",1310720
  oADUser.SetInfo()
 End If
Next

Open in new window

0
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

Featured Post

Cloud Class® Course: Microsoft Office 2010

This course will introduce you to the interfaces and features of Microsoft Office 2010 Word, Excel, PowerPoint, Outlook, and Access. You will learn about the features that are shared between all products in the Office suite, as well as the new features that are product specific.

Tackle projects and never again get stuck behind a technical roadblock.
Join Now