Question : AD 2008 and Exchange 2010 issue

Hi All

We have implemented Windows 2008 AD & Exchange 2010 in a customers place. In the First Phase we had only three servers. One for AD,one for Hub/cas and one for Mailbox. In the Second Phase we introduced 3 ADC servers in which 2 was for Head Office and 1 was for DR and 4 more exchange servers in which two servers was for was for Hub/cas and Mailbox respectively and the other two servers was for hub/cas and Mailbox in the DR site. All the implementation was completed.

The Next step was to remove the 1st DC because it was taken for lease. We moved all the roles in the 1st DC to an ADC and made it as a root DC. We demoted the 1st DC. After the demotion Exchange stopped working. Again we promoted it back. The issue is we have to demote the DC so that we can give this DC back.

We tried the below commands:
Set-ADServerSettings -PreferredServer 'DC Name'
Set-ExchangeServer -Identity “Exchange Server” -StaticDomainControllers 'DC Name' -StaticGlobalCatalogs 'DC Name'
But still no luck!!!!
The Exchange is taking the 1st DC as the main DC. Even the Blackberry is stopping if we stop the 1st DC.
In the NIC card we have removed the DNS entry of the 1st server.

Please let me know what should i do under these circumstances

Answer : AD 2008 and Exchange 2010 issue

That is a small tweak.

                       
         
           
             1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:

           
           
             Sub BKMCreatePerSection2()
    Dim rng As Range
    Dim Sec As Section
    Dim i As Integer
    Dim Suffix() As String
    Dim rngBookmark As Range
    
    Suffix = Split("DE,EN,ES,FR,IT", ",")
 
    For Each Sec In ActiveDocument.Sections
        Set rng = Sec.Range
        With rng.Find
            .Format = True
            .Style = ActiveDocument.Styles(wdStyleHeading2)
            Set rngBookmark = Sec.Range
            rngBookmark.MoveEnd wdCharacter, -1
            If .Execute Then
                ActiveDocument.Bookmarks.Add "Section_Bookmark_" & Suffix(i), rngBookmark
                i = i + 1
            End If
        End With
    Next Sec
        
End Sub
           
         