Exchange 2003 server died and I need to recover the mailboxes.

I currently have two Exchange 2003 servers. One of them has been lost due to a hardware failure and there is no backup.  The e-mail in them is not important but I would like to get the mailboxes functional again.  Here's what I'd like to do:

1. Find out which mailboxes were on that server. If I open the exchange system manager on the working server and then drill down to the list of databases, if I click on one of them I get an error and it will not tell me which mailboxes were there.
2. "Move" these mailboxes to the other server.  Effectively, I just want to bring up those mailboxes on the existing server without any data in them.

This is similar to the configuration only move in exchange 2007, I'm just not sure how to do it with 2003.
LVL 12
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

Viral RathodConsultantCommented:
Can you check this

Recovering a Failed Exchange 2003 Server Using the Disaster Recovery Switch
Hi,Before you could "move something" an suggesting, you do not have backups, no logs, no .edb databases, you have to do a lot of work, but it works, i did it 3-4times @customers:

1) Move the FSMO roles and (if it was a DC and GC)  the GC to the other server.

2) Remove any Exchange entries from AD with ADSIEDIT & metadata cleanup:

3) recreate / check AdressBook, Offline Address List ,  Schedule+ Free Busy folder, Recipient Update Service, connectors, Public folders.
You can use this guide / at least parts of it:

4) Remove old computer account by using "Active Directory Sites and Services" tool.
5) Remove old DNS and WINS records of the orphaned Domain Controller.

6) If it was installed on a DC with active replications, check this out:
Force Active Directory replication by using "Repadmin.exe" tool.
Repadmin /syscall  - to initiate a replication for all partners
repadmin /syncall /A /e /P (/A Synchronizes all partitions on the DC you're running it on, /e Synchronizes partitions across all Sites, /P Forces a "Push" that pushes changes outwards instead of the default to pull changes)
check replication status:
To see if anything is in the queue waiting for replication:
Run "repadmin /queue *"

Find out what the replication latency is, if any. If it's less than a few minutes, you're fine.
Run "repadmin /showutdvec server-name dc=mydomain,dc=lab /latency"

7) Check any additionals Services (DNS, DHCP) to remove old entries that could slow down or disturb the network

8) Now your existing Exchange Server should be aware, that its the only one existing and you can create new mailboxes an maybe fill it with data of cached mailboxes (exchange cached mailboyes with outlook)
All you need do is user ADModify to update three Parameter for the users which were on that server.

Three Parameters are msExchHomeServerName Set this to new server, homeMTA this also you need to set it to the new server and then homeMDB Set this to the New Store/Database on the New Server.

To Identify which users malbox where on the old exchange server, just use active Directory and User on the current exchange server and there you are create search for all the user on the old server. This is built in you just need to specify the exchange server

This VBScript will also help you to Rehome.

Just put in the values in Modify this section for your Parameters in script and it will do the needful. Take a backup of AD before you do this also this script has a trail mode.
'Begin Script

Option Explicit
    Dim oRootDSE
    Dim strNamingContext
    Dim strConfigurationNamingContext
    Dim oConnection 
    Dim oCmd
    Dim strADOQuery 
    Dim strAttributes 
    Dim strFilter 
    Dim oRecordSet 
    Dim oField 
    Dim usr
    Dim UserPath
    Dim NewOrganizationName
    Dim OldOrganizationName
    Dim OldServerName 
    Dim NewServerName 
    Dim OldAdminGroupName
    Dim NewAdminGroupName
    Dim OldStorageGroupName
    Dim NewStorageGroupName
    Dim OldBaseName
    Dim NewBaseName
    Dim OldMTAServerName
    Dim NewMTAServerName
    Dim value
    ReDim strArgumentArray(0)
    Dim i, iReturnCode
    Dim fInteractiveMode, fTrialMode, iSuccessCount, iFailureCount, iRecordCount
    fInteractiveMode = False
    fTrialMode = False
    iSuccessCount = 0
    iFailureCount = 0
    iRecordCount = 0
    For i = 0 to Wscript.arguments.count - 1
        ReDim Preserve strArgumentArray(i)
        strArgumentArray(i) = Wscript.arguments.item(i)
    For i = 0 to Wscript.arguments.count - 1
      Select case Left(LCase(strArgumentArray(i)),2) 
        case "/i"
          fInteractiveMode = True    
        case "/t"
          fTrialMode = True      
      End Select
    If fInteractiveMode = False Then
    '****** Modify this section for your Parameters ************
      OldOrganizationName = "Org"
      NewOrganizationName = "Org"
      OldServerName = "EX01"
      NewServerName = "EX02"
      OldAdminGroupName  = "First Administrative Group"
      NewAdminGroupName  = "First Administrative Group"
      OldStorageGroupName = "Mailbox Storage Group 1"
      NewStorageGroupName = "Mailbox Storage Group 2"
      OldBaseName = "Mailbox Store 1"
      NewBaseName = "Mailbox Store 2"
      OldMTAServerName = "EX01"
      NewMTAServerName = "EX02"
    '************** Parameter Section End ************************
      Trace("You are running in batch mode.  The parameters are:")
      ' Get information
      OldOrganizationName = Trim(InputBox("Type the name of the old Exchange Organization : ", "Information"))
      NewOrganiZationName = Trim(InputBox("Type the name of the new Exchange Organization : ", "Information"))
      OldServerName = Trim(InputBox("Type the name of the old Exchange server : ", "Information"))
      NewServerName = Trim(InputBox("Type the name of the new Exchange server : ", "Information"))
      OldAdminGroupName = Trim(InputBox("Type the name of the old administrative group : ", "Information"))
      NewAdminGroupName = Trim(InputBox("Type the name of the new administrative group : ", "Information"))
      OldStorageGroupName = Trim(InputBox("Type the name of the old Storage group : ", "Information"))
      NewStorageGroupName = Trim(InputBox("Type the name of the new Storage group : ", "Information"))
      OldBaseName = Trim(InputBox("Type the name of the old database name : ", "Information"))
      NewBaseName = Trim(InputBox("Type the name of the new database name : ", "Information"))
      OldMTAServerName = Trim(InputBox("Type the name of the old MTA Server : ", "Information"))
      NewMTAServerName = Trim(InputBox("Type the name of the new MTA Server : ", "Information"))
      Trace("Your parameters are:")
    End If
    '--- Get the Naming Context ----
    Set oRootDSE = GetObject("LDAP://RootDSE")
    strNamingContext = oRootDSE.Get("defaultNamingContext")
    strConfigurationNamingContext = oRootDSE.Get("configurationNamingContext")
    Set oRootDSE = Nothing
    Trace("Targetted Domain: " & vbTab & strNamingContext)
    Trace("Configuration Naming Context: " & vbTab & strConfigurationNamingContext)
    Trace("Old Organization Name: " & vbTab & OldOrganizationName)
    Trace("New Organization Name: " & vbTab & NewOrganizationName)
    Trace("Old Server Name:" & vbTab & OldServerName)
    Trace("New Server Name:" & vbTab & NewServerName)  
    Trace("Old AdminGroup Name:" & vbTab & OldAdminGroupName)
    Trace("New AdminGroup Name:" & vbTab & NewAdminGroupName)
    Trace("Old Storage Group Name:" & vbTab & OldStorageGroupName)
    Trace("New Storage Group Name:" & vbTab & NewStorageGroupName)  
    Trace("Old Base Name:" & vbTab & OldBaseName)
    Trace("New Base Name:" & vbTab & NewBaseName)
    Trace("Old MTA Server Name:" & vbTab & OldMTAServerName)
    Trace("New MTA Server Name:" & vbTab & NewMTAServerName)  
    iReturnCode = MsgBox("Is the information correct?", vbYesNo, "Confirmation")
    If iReturnCode = vbNo Then
      If fInteractiveMode = False Then
        MsgBox "Please open the VBScript with a text editor and modify the parameters", vbOKOnly, "Exit"
        Trace("Please open the VBScript with a text editor and modify the parameters")
        Wscript.Quit 0
      End If
    End If
    If fTrialMode = False Then
      iReturnCode = MsgBox("Would you like to perform a trial run of the operation instead of doing a real update?", vbYesNo, "Confirmation")
      If iReturnCode = vbYes Then
        fTrialMode = True
      End If
    End If
    If fTrialMode = True Then
      Trace ("********************************************************")
      Trace ("***   You are running in Trial Mode only             ***")
      Trace ("***   Information in Active Directory will not be updated          ***")
      Trace ("********************************************************")
    End If
    ' --- Get a filter from the user ---
    'strFilter = "(msExchHomeServerName=/o=" + OldOrganizationName + "/ou=" + OldAdminGroupName + "/cn=Configuration/cn=Servers/cn=" + OldServerName + ")"
    'Trace("LDAP Filter = " + strFilter)
    strFilter = "(homeMDB=" + "CN=" + OldBaseName + ",CN=" + OldStorageGroupName + ",CN=InformationStore,CN=" + OldServerName + ",CN=Servers,CN=" + OldAdminGroupName + ",CN=Administrative Groups,CN=" + OldOrganizationName + ",CN=Microsoft Exchange,CN=Services,"+ strConfigurationNamingContext + ")"
    Trace("LDAP Filter = " + strFilter)
    '  --- Define the attributes to be returned from the query ---
    strAttributes = "name,distinguishedName,msExchHomeServerName,homeMDB,homeMTA"
    '--- Set up the connection ---
    Set oConnection = CreateObject("ADODB.Connection")
    Set oCmd = CreateObject("ADODB.Command")
    oConnection.Provider = "ADsDSOObject"
    oConnection.Open "ADs Provider"
    Set oCmd.ActiveConnection = oConnection
    '--- Build the query string ---
    strADOQuery = "<LDAP://" + strNamingContext + ">;(&(objectCategory=person)(objectClass=user)" + strFilter + ");" + strAttributes + ";subtree"
    oCmd.CommandText = strADOQuery
    oCmd.Properties("Page Size") = 1000
    oCmd.Properties("Timeout") = 1000
    oCmd.Properties("Cache Results") = False 
    '--- Run the query for the user in the directory ---
    Set oRecordSet = oCmd.Execute
    If oRecordSet.EOF Then
      Trace("No Matching Users.  Program Aborted") 
      Wscript.Quit 1
    End If
    While Not oRecordSet.EOF
      Trace("Work to : "+oRecordSet.Fields(0) + vbTab + oRecordSet.Fields(1))
      Set usr = GetObject("LDAP://"+oRecordSet.Fields(1))
      ' Modify msExchHomeServerName attribute
      value = usr.Get("msExchHomeServerName")
      Trace("OLD msExchHomeServerName = "+value)
      value = "/o=" + NewOrganizationName + "/ou=" + NewAdminGroupName + "/cn=Configuration/cn=Servers/cn=" + NewServerName
      usr.Put "msExchHomeServerName", value
      Trace("NEW msExchHomeServerName = "+value)
      ' Modify homeMDB attribute
      value = usr.Get("homeMDB")
      Trace("OLD homeMDB = "+value)
      value = "CN=" + NewBaseName + ",CN=" + NewStorageGroupName + ",CN=InformationStore,CN=" + NewServerName + ",CN=Servers,CN=" + NewAdminGroupName + ",CN=Administrative Groups,CN=" + NewOrganizationName + ",CN=Microsoft Exchange,CN=Services,"+ strConfigurationNamingContext
      usr.Put "homeMDB", value
      Trace("NEW homeMDB = "+value)
      ' Modify homeMTA attribute
      value = usr.Get("homeMTA")
      Trace("OLD homeMTA = "+value)
      value = "CN=Microsoft MTA,CN=" + NewMTAServerName + ",CN=Servers,CN=" + NewAdminGroupName + ",CN=Administrative Groups,CN=" + NewOrganizationName + ",CN=Microsoft Exchange,CN=Services," + strConfigurationNamingContext
      usr.Put "homeMTA", value
      Trace("NEW homeMTA = "+value)
      On Error Resume Next 
      If fTrialMode = False Then
        If Err.Number Then
          Trace("Error Updating User: " & oRecordSet.Fields(0) & "    Reason: " & Err.Description)
          iFailureCount = iFailureCount + 1
          iSuccessCount = iSuccessCount + 1
        End If
      End If
      On Error Goto 0
      iRecordCount = iRecordCount + 1
    ' -- Clean up --
    Set oField = Nothing
    Set oRecordSet = Nothing
    Set oCmd = Nothing
    Set oConnection = Nothing
    Set usr = Nothing
    ' Provide Summary
    Trace ("")
    Trace ("************* Summary **************")
    If fTrialMode = True Then
      Trace ("Running in Trial Mode")
    End If
    Trace ("Records Found: " & iRecordCount)
    Trace ("Successful Update: " & iSuccessCount)
    Trace ("Failure Update: " & iFailureCount)
    ' -------------------------------------------------------
    ' -------------------------------------------------------
    ' -------------------------------------------------------
    ' -------------------------------------------------------
    ' -------------------------------------------------------
    ' -------------------------------------------------------
    Sub Trace(message)
       WScript.Echo message
    end sub
'End script

Open in new window

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
Sorry to be worrying you again, but you wrote: I currently have two Exchange 2003 servers. One of them has been lost due to a hardware failure

For me it looks like orphaned AD / Exchange entries in your organisation, i suggest not to do only "rehome" your mailboxes. Fix your Domain Structure / AD / Exchange Adressbooks, etc too.
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today

From novice to tech pro — start learning today.