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!
isdirectAsked:
Who is Participating?

[Webinar] Streamline your web hosting managementRegister Today

x
 
FearNoMoreConnect With a Mentor Commented:
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
 
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
 
AkhaterConnect With a Mentor Commented:
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
All Courses

From novice to tech pro — start learning today.