Moving NT 4.0 Users to Active Directory.

[drexen1]

How can I migrate NT 4.0 users to Windows 2003 Active Directory? Originally, we had four NT. 4.0 domains but I upgraded the first domain to 2003 Active Directory. Our network is currently running in “mixed mode”. I am trying to migrate my other users who still belong to the remaining three NT 4.0 domains to Windows 2003 Active Directory. I want to do this because I will be able to use the “move mailbox wizard” in AD to move their existing Exchange 5.5 mailboxes to Exchange 2003. I tried using the Active Directory Migration tool (ADMT) but since we are running in “mixed” mode and not “native” mode, the ADMT will not allow me to move the NT 4.0 users to AD.

 

[mlichstein]

Do you need to be in mixed mode? In other words, do you have any NT BDCs in the Active Directory domain?

 

[markdmac]

This question should really be posted in the Exchange 2003 forum for the best audience.

How were the NT4 Users configured for mail? Did they point to your NT4 master domain or have their own servers and Exchange Organizations? Have you already installed E2K3? Did you make it part of the same organization as the NT4 was?

I hope you find this post helpful. Please let me know if it was.

Regards,

Mark

 

[drexen1]

The NT4 users are configured to use an Exchange 5.5 server that is in their own domain. The NT4 users are still authenticating with a NT4 PDC in their domain. Each of the four domains are independent of each other and there are two-way trusts established between each of the domains. Exchange 2003 is already setup and working in Domain1. All of Domain1 users are authenticating with 2003 AD and their mailboxes have been moved to the Exchange 2003 server. All outgoing mail flows from Domains 2-4 to Domain1 and then out to the internet. All incoming mail flows just the opposite.

Domain1 = (Windows 2003 AD, Mixed Mode) (Exchange 2003-Bridghead Server)
Domain2 = (NT4, PDC, Exchange 5.5)
Domain3 = (NT4, PDC, Exchange 5.5)
Domain4 = (NT4, PDC, Exchange 5.5)

Email Server1 = Exchange 2003 (Bridgehead Server)
Email Server2 = Exchange 5.5
Email Server3 = Exchange 5.5
Email Server4 = Exchange 5.5

 

[mlichstein]

ADMT is the way go, so again I ask, do you *need* to be in mixed mode?

 

[markdmac]

I agree with mlichstein. If you don't have any NT4 BDCs on the 2k3 domain switch to Native Mode.

I hope you find this post helpful. Please let me know if it was.

Regards,

Mark

 

[drexen1]

That is my problem. I need to keep one NT4 BDC in my organization for now because of some other system compatibility issues. In the future, I will be able to get rid of the NT4 BDC and switch to native mode. However, for now I am trying to find the best way to move accounts/mailboxes without using the ADMT.

 

[markdmac]

You could always use EXMERGE to export the mailboxes and then import them into your new domain. I'd say you are stuck with creating the IDs, but that can at least be scripted so it would only take a few seconds if you can dump the data into an Excel Spreadsheet.

I have a working script that does that if you need it.

I hope you find this post helpful. Please let me know if it was.

Regards,

Mark

 

[drexen1]

Using EXMERGE sounds like a great idea Mark. Yes, if you could please send me the scipt that will help me out a lot. How do I go about dumping the data into a excel spreadsheet? Will your script automatically populate the new accounts in AD?

You can send the script to this address:
updatey2k@hotmail.com


-Thanks again for all of your help.

 

[markdmac]

Here is my script that will automatically create the user IDs in AD and fill all the info you supply. I'm afraid you are on your own getting the data into Excel, but this should save you a number of hours in creating users. The comments inthe script specify what to put in each column.

'==========================================================================
'
' NAME: createNewUsers.vbs
'
' AUTHOR: Mark D. MacLachlan , The Spider's Parlor
' URL:

http://www.thespidersparlor.com

' DATE : 04/21/2003
' COPYRIGHT 2003 The Spider's Parlor, All Rights Reserved
'
' COMMENT:
' Creates users based on Excel spreadsheet information.
' Excel spreadsheet formatting:
' Row 1 to have headings
' Column A (1) to have login
' Column B (2) to have first_name
' Column C (3) to have last_name
' Column D (4) to have phone
' Column E (5) to have extension
' Column F (6) to have fax
' Column G (7) to have email
' Column H (8) to have street
' Column I (9) to have suite
' Column J (10) to have city
' Column K (11) to have state
' Column L (12) to have zip
'=====================================

set x = getobject(,"excel.application")
r = 2

Const c = "US"
Const co = "UNITED STATES"
'Change the following with your company info
Const company = "Company XYZ"
Const ou_name = "Users"

do until len(x.cells(r, 1).value) = 0

login = x.cells(r, 1).value
first_name = x.cells(r, 2).value
last_name = x.cells(r, 3).value
phone = x.cells(r, 4).value
extension = x.cells(r, 5).value
fax = x.cells(r, 6).value
email = x.cells(r, 7).value
street = x.cells(r, 8).value
suite = x.cells(r, 9).value
city = x.cells(r, 10).value
state = x.cells(r, 11).value
zip =cstr(x.cells(r, 12).value)


if len(first_name) = 0 then
first_name = " "
fn=0
end if

if len(last_name) = 0 then
last_name = " "
ln=0
end if

if len(phone) = 0 then
phone = " "
end if

if len(extension) = 0 then
extension = " "
end if

if len(fax) = 0 then
extension = " "
end if

if len(email) = 0 then
email = " "
end if

if len(street) = 0 then
street = " "
end if

if len(suite) = 0 then
suite = " "
end if

if len(city) = 0 then
city = " "
end if

if len(state) = 0 then
state = " "
end if

if len(zip) = 0 then
zip = " "
end if

'Change the following with the proper LDAP path for your network.
set o = getobject("LDAP://SERVER.XYZ.com.local/CN=Users,DC=XYZ,DC=com,DC=local")

if err then
x.cells(r, 15).value = err.number & ": " & err.description
err.Clear
end if




if fn + ln = 0 then
fullName = x.cells(r, 1).value
else
fullName = first_name & " " & last_name
end if



Set oUser = o.Create("user","CN=" & fullName)
oUser.Put "sAMAccountName", login
oUser.SetInfo
oUser.Put "userPrincipalName", email
oUser.SetInfo
oUser.Put "c", c
oUser.Put "co", co
oUser.Put "company", company
oUser.Put "displayName", first_name & " " & last_name
oUser.Put "facsimileTelephoneNumber", fax
oUser.Put "givenName", first_name
oUser.SetInfo
oUser.Put "l", "Phoenix"
oUser.Put "mail", email
oUser.Put "mailNickname", login
'oUser.Put "name", first_name & " " & last_name
oUser.Put "otherTelephone", "Ext. "& extension
oUser.Put "postalCode", zip
oUser.SetInfo
oUser.Put "sn", last_name
oUser.Put "st", state
oUser.Put "streetAddress", street & vbCrLf & Suite
oUser.Put "telephoneNumber", phone & "Ext. "& extension
oUser.SetPassword login
oUser.SetInfo
oUser.AccountDisabled = False
oUser.SetInfo


If Err.Number <> 0 And Err.Number <> -2147019886 Then
x.cells(r, 15).value = err.number & ": " & "ID creation error"
Else

x.cells(r, 15).value = "created"
end if


r = r + 1


set objOU = Nothing
set oUser = Nothing
set o = nothing
Err.Clear
Loop


set x = nothing

msgbox "done"



I hope you find this post helpful. Please let me know if it was.

Regards,

Mark

 

[drexen1]

Thanks for the script Mark. I will give this a try.

 

[Superenigmatix]

Don't forget if you use exmerge like this you will lose Single Instance Storage and your Excahnge data store may be much larger afterwards.

sE