Exchange 2003 사서함을 Exchange Online 메일 사용 가능 사용자로 변환

아티클
04/04/2023

단계적 마이그레이션을 완료한 후 온-프레미스 사서함을 메일 사용 가능 사용자로 변환하여 온-프레미스 사용자가 클라우드 사서함에 자동으로 연결할 수 있도록 합니다.

사서함을 메일 사용 가능 사용자로 변환하는 이유

Active Directory를 사용하여 온-프레미스 조직의 클라우드 기반 사용자를 관리할 수 있도록 마이그레이션된 온-프레미스 사서함을 MEU(메일 사용 사용자)로 변환해야 합니다.

이 문서에는 클라우드 기반 사서함에서 정보를 수집하는 PowerShell 스크립트와 Exchange 2003 사서함을 MEU로 변환하는 VB(Visual Basic) 스크립트가 포함되어 있습니다. 이 스크립트를 실행하면 클라우드 기반 사서함의 프록시 주소가 Active Directory에 있는 MEU에 복사됩니다. MEU의 속성을 사용하면 디렉터리 동기화가 MEU와 해당 클라우드 사서함을 일치시킬 수 있습니다.

마이그레이션 일괄 처리를 위해 온-프레미스 사서함을 MEU로 변환하는 것이 좋습니다. 준비된 Exchange 마이그레이션 일괄 처리가 완료되면 일괄 처리의 모든 사서함이 성공적으로 마이그레이션되었고 사서함 항목을 클라우드로 초기 동기화가 완료되었는지 확인한 후 마이그레이션 일괄 처리의 사서함을 MEU로 변환합니다.

클라우드 사서함에서 데이터를 수집하기 위한 PowerShell 스크립트

이 섹션의 스크립트를 사용하여 클라우드 기반 사서함에 대한 정보를 수집하고 Exchange 2003 사서함을 MEU로 변환합니다.

PowerShell 스크립트는 클라우드 사서함에서 정보를 수집하고 CSV 파일에 저장합니다. 먼저 이 스크립트를 실행합니다.

스크립트를 메모장에 복사하고 파일을 ExportO365UserInfo.ps1 저장합니다.

참고

스크립트를 실행하기 전에 Exchange Online PowerShell 모듈을 설치해야 합니다. 지침은 Exchange Online PowerShell 모듈 설치 및 유지 관리를 참조하세요. 모듈은 최신 인증을 사용합니다.

일반적으로 조직이 Microsoft 365 또는 Microsoft 365 GCC인 경우 스크립트를 그대로 사용할 수 있습니다. 조직이 Office 365 독일, Microsoft 365 GCC High 또는 Microsoft 365 DoD인 경우 스크립트에서 Connect-ExchangeOnline줄을 편집해야 합니다. 특히 ExchangeEnvironmentName 매개 변수와 조직에 적절한 값을 사용해야 합니다. 자세한 내용은 Exchange Online PowerShell에 연결의 예를 참조하세요.

Param($migrationCSVFileName = "migration.csv")
function O365Logon
{
    #Check for current open O365 sessions and allow the admin to either use the existing session or create a new one
    $session = Get-PSSession | ?{$_.ConfigurationName -eq 'Microsoft.Exchange'}
    if($session -ne $null)
    {
        $a = Read-Host "An open session to Exchange Online PowerShell already exists. Do you want to use this session?  Enter y to use the open session, anything else to close and open a fresh session."
        if($a.ToLower() -eq 'y')
        {
            Write-Host "Using existing Exchange Online Powershell Session." -ForeGroundColor Green
            return
        }
        Disconnect-ExchangeOnline -Confirm:$false
    }
    Import-Module ExchangeOnlineManagement
    Connect-ExchangeOnline
}
function Main
{
    #Verify the migration CSV file exists
    if(!(Test-Path $migrationCSVFileName))
    {
        Write-Host "File $migrationCSVFileName does not exist." -ForegroundColor Red
        Exit
    }
    #Import user list from migration.csv file
    $MigrationCSV = Import-Csv $migrationCSVFileName
    #Get mailbox list based on email addresses from CSV file
    $MailBoxList = $MigrationCSV | %{$_.EmailAddress} | Get-Mailbox
    $Users = @()
    #Get LegacyDN, Tenant, and On-Premises Email addresses for the users
    foreach($user in $MailBoxList)
    {
        $UserInfo = New-Object System.Object
        $CloudEmailAddress = $user.EmailAddresses | ?{($_ -match 'onmicrosoft') -and ($_ -cmatch 'smtp:')}
        if ($CloudEmailAddress.Count -gt 1)
        {
            $CloudEmailAddress = $CloudEmailAddress[0].ToString().ToLower().Replace('smtp:', '')
            Write-Host "$user returned more than one cloud email address. Using $CloudEmailAddress" -ForegroundColor Yellow
        }
        else
        {
            $CloudEmailAddress = $CloudEmailAddress.ToString().ToLower().Replace('smtp:', '')
        }
        $UserInfo | Add-Member -Type NoteProperty -Name LegacyExchangeDN -Value $user.LegacyExchangeDN
        $UserInfo | Add-Member -Type NoteProperty -Name CloudEmailAddress -Value $CloudEmailAddress
        $UserInfo | Add-Member -Type NoteProperty -Name OnPremiseEmailAddress -Value $user.PrimarySMTPAddress.ToString()
        $Users += $UserInfo
    }
    #Check for existing csv file and overwrite if needed
    if(Test-Path ".\cloud.csv")
    {
        $delete = Read-Host "The file cloud.csv already exists in the current directory. Do you want to delete it?  Enter y to delete, anything else to exit this script."
        if($delete.ToString().ToLower() -eq 'y')
        {
            Write-Host "Deleting existing cloud.csv file" -ForeGroundColor Red
            Remove-Item ".\cloud.csv"
        }
        else
        {
            Write-Host "Will NOT delete current cloud.csv file. Exiting script." -ForeGroundColor Green
            Exit
        }
    }
    $Users | Export-CSV -Path ".\cloud.csv" -notype
    (Get-Content ".\cloud.csv") | %{$_ -replace '"', ''} | Set-Content ".\cloud.csv" -Encoding Unicode
    Write-Host "CSV File Successfully Exported to cloud.csv" -ForeGroundColor Green
}
O365Logon
Main

Visual Basic 스크립트는 온-프레미스 Exchange 2003 사서함을 MEU로 변환합니다. PowerShell 스크립트를 실행한 후 이 스크립트를 실행하여 클라우드 사서함에서 정보를 수집합니다.

스크립트를 메모장에 복사하고 파일을 Exchange2003MBtoMEU.vbs 저장합니다.

'Globals/Constants
Const ADS_PROPERTY_APPEND = 3
Dim UserDN
Dim remoteSMTPAddress
Dim remoteLegacyDN
Dim domainController
Dim csvMode
csvMode = FALSE
Dim csvFileName
Dim lastADLookupFailed
Class UserInfo
    public OnPremiseEmailAddress
    public CloudEmailAddress
    public CloudLegacyDN
    public LegacyDN
    public ProxyAddresses
    public Mail
    public MailboxGUID
    public DistinguishedName
    Public Sub Class_Initialize()
        Set ProxyAddresses = CreateObject("Scripting.Dictionary")
    End Sub
End Class
'Command Line Parameters
If WScript.Arguments.Count = 0 Then
    'No parameters passed
    WScript.Echo("No parameters were passed.")
    ShowHelp()
ElseIf StrComp(WScript.Arguments(0), "-c", vbTextCompare) = 0 And WScript.Arguments.Count = 2 Then
    WScript.Echo("Missing DC Name.")
    ShowHelp()
ElseIf StrComp(WScript.Arguments(0), "-c", vbTextCompare) = 0 Then
    'CSV Mode
    csvFileName = WScript.Arguments(1)
    domainController = WScript.Arguments(2)
    csvMode = TRUE
    WScript.Echo("CSV mode detected. Filename: " & WScript.Arguments(1) & vbCrLf)
ElseIf wscript.Arguments.Count <> 4 Then
    'Invalid Arguments
    WScript.Echo WScript.Arguments.Count
    Call ShowHelp()
Else
    'Manual Mode
    UserDN = wscript.Arguments(0)
    remoteSMTPAddress = wscript.Arguments(1)
    remoteLegacyDN = wscript.Arguments(2)
    domainController = wscript.Arguments(3)
End If
Main()
'Main entry point
Sub Main
    'Check for CSV Mode
    If csvMode = TRUE Then
        UserInfoArray = GetUserInfoFromCSVFile()
    Else
        WScript.Echo "Manual Mode Detected" & vbCrLf
        Set info = New UserInfo
        info.CloudEmailAddress = remoteSMTPAddress
        info.DistinguishedName = UserDN
        info.CloudLegacyDN = remoteLegacyDN
        ProcessSingleUser(info)
    End If
End Sub
'Process a single user (manual mode)
Sub ProcessSingleUser(ByRef UserInfo)
    userADSIPath = "LDAP://" & domainController & "/" & UserInfo.DistinguishedName
    WScript.Echo "Processing user " & userADSIPath
    Set MyUser = GetObject(userADSIPath)
    proxyCounter = 1
    For Each address in MyUser.Get("proxyAddresses")
        UserInfo.ProxyAddresses.Add proxyCounter, address
        proxyCounter = proxyCounter + 1
    Next
    UserInfo.OnPremiseEmailAddress = GetPrimarySMTPAddress(UserInfo.ProxyAddresses)
    UserInfo.Mail = MyUser.Get("mail")
    UserInfo.MailboxGUID = MyUser.Get("msExchMailboxGUID")
    UserInfo.LegacyDN = MyUser.Get("legacyExchangeDN")
    ProcessMailbox(UserInfo)
End Sub
'Populate user info from CSV data
Function GetUserInfoFromCSVFile()
    CSVInfo = ReadCSVFile()
    For i = 0 To (UBound(CSVInfo)-1)
        lastADLookupFailed = false
        Set info = New UserInfo
        info.CloudLegacyDN = Split(CSVInfo(i+1), ",")(0)
        info.CloudEmailAddress = Split(CSVInfo(i+1), ",")(1)
        info.OnPremiseEmailAddress = Split(CSVInfo(i+1), ",")(2)
        WScript.Echo "Processing user " & info.OnPremiseEmailAddress
        WScript.Echo "Calling LookupADInformationFromSMTPAddress"
        LookupADInformationFromSMTPAddress(info)
        If lastADLookupFailed = false Then
            WScript.Echo "Calling ProcessMailbox"
            ProcessMailbox(info)
        End If
        set info = nothing
    Next
End Function
'Populate user info from AD
Sub LookupADInformationFromSMTPAddress(ByRef info)
    'Lookup the rest of the info in AD using the SMTP address
    Set objRootDSE = GetObject("LDAP://RootDSE")
    strDomain = objRootDSE.Get("DefaultNamingContext")
    Set objRootDSE = nothing
    Set objConnection = CreateObject("ADODB.Connection")
    objConnection.Provider = "ADsDSOObject"
    objConnection.Open "Active Directory Provider"
    Set objCommand = CreateObject("ADODB.Command")
    BaseDN = "<LDAP://" & domainController & "/" & strDomain & ">"
    adFilter = "(&(proxyAddresses=SMTP:" & info.OnPremiseEmailAddress & "))"
    Attributes = "distinguishedName,msExchMailboxGUID,mail,proxyAddresses,legacyExchangeDN"
    Query = BaseDN & ";" & adFilter & ";" & Attributes & ";subtree"
    objCommand.CommandText = Query
    Set objCommand.ActiveConnection = objConnection
    On Error Resume Next
    Set objRecordSet = objCommand.Execute
    'Handle any errors that result from the query
    If Err.Number <> 0 Then
        WScript.Echo "Error encountered on query " & Query & ". Skipping user."
        lastADLookupFailed = true
        return
    End If
    'Handle zero or ambiguous search results
    If objRecordSet.RecordCount = 0 Then
        WScript.Echo "No users found for address " & info.OnPremiseEmailAddress
        lastADLookupFailed = true
        return
    ElseIf objRecordSet.RecordCount > 1 Then
        WScript.Echo "Ambiguous search results for email address " & info.OnPremiseEmailAddress
        lastADLookupFailed = true
        return
    ElseIf Not objRecordSet.EOF Then
        info.LegacyDN = objRecordSet.Fields("legacyExchangeDN").Value
        info.Mail = objRecordSet.Fields("mail").Value
        info.MailboxGUID = objRecordSet.Fields("msExchMailboxGUID").Value
        proxyCounter = 1
        For Each address in objRecordSet.Fields("proxyAddresses").Value
            info.ProxyAddresses.Add proxyCounter, address
            proxyCounter = proxyCounter + 1
        Next
        info.DistinguishedName = objRecordSet.Fields("distinguishedName").Value
        objRecordSet.MoveNext
    End If
    objConnection = nothing
    objCommand = nothing
    objRecordSet = nothing
    On Error Goto 0
End Sub
'Populate data from the CSV file
Function ReadCSVFile()
    'Open file
    Set objFS = CreateObject("Scripting.FileSystemObject")
    Set objTextFile = objFS.OpenTextFile(csvFileName, 1, false, -1)
    'Loop through each line, putting each line of the CSV file into an array to be returned to the caller
    counter = 0
    Dim CSVArray()
    Do While NOT objTextFile.AtEndOfStream
        ReDim Preserve CSVArray(counter)
        CSVArray(counter) = objTextFile.ReadLine
        counter = counter + 1
    Loop
    'Close and return
    objTextFile.Close
    Set objTextFile = nothing
    Set objFS = nothing
    ReadCSVFile = CSVArray
End Function
'Process the migration
Sub ProcessMailbox(User)
    'Get user properties
    userADSIPath = "LDAP://" & domainController & "/" & User.DistinguishedName
    Set MyUser = GetObject(userADSIPath)
    'Add x.500 address to list of existing proxies
    existingLegDnFound = FALSE
    newLegDnFound = FALSE
    'Loop through each address in User.ProxyAddresses
    For i = 1 To User.ProxyAddresses.Count
        If StrComp(address, "x500:" & User.LegacyDN, vbTextCompare) = 0 Then
            WScript.Echo "x500 proxy " & User.LegacyDN & " already exists"
            existingLegDNFound = true
        End If
        If StrComp(address, "x500:" & User.CloudLegacyDN, vbTextCompare) = 0 Then
            WScript.Echo "x500 proxy " & User.CloudLegacyDN & " already exists"
            newLegDnFound = true
        End If
    Next
    'Add existing leg DN to proxy list
    If existingLegDnFound = FALSE Then
        WScript.Echo "Adding existing legacy DN " & User.LegacyDN & " to proxy addresses"
        User.ProxyAddresses.Add (User.ProxyAddresses.Count+1),("x500:" & User.LegacyDN)
    End If
    'Add new leg DN to proxy list
    If newLegDnFound = FALSE Then
        'Add new leg DN to proxy addresses
        WScript.Echo "Adding new legacy DN " & User.CloudLegacyDN & " to existing proxy addresses"
        User.ProxyAddresses.Add (User.ProxyAddresses.Count+1),("x500:" & User.CloudLegacyDN)
    End If
    'Dump out new list of addresses
    WScript.Echo "Original proxy addresses updated count: " & User.ProxyAddresses.Count
    For i = 1 to User.ProxyAddresses.Count
        WScript.Echo " proxyAddress " & i & ": " & User.ProxyAddresses(i)
    Next
    'Delete the Mailbox
    WScript.Echo "Opening " & userADSIPath & " as CDOEXM::IMailboxStore object"
    Set Mailbox = MyUser
    Wscript.Echo "Deleting Mailbox"
    On Error Resume Next
    Mailbox.DeleteMailbox
    'Handle any errors deleting the mailbox
    If Err.Number <> 0 Then
        WScript.Echo "Error " & Err.number & ". Skipping User." & vbCrLf & "Description: " & Err.Description & vbCrLf
        Exit Sub
    End If
    On Error Goto 0
    'Save and continue
    WScript.Echo "Saving Changes"
    MyUser.SetInfo
    WScript.Echo "Refeshing ADSI Cache"
    MyUser.GetInfo
    Set Mailbox = nothing
    'Mail Enable the User
    WScript.Echo "Opening " & userADSIPath & " as CDOEXM::IMailRecipient"
    Set MailUser = MyUser
    WScript.Echo "Mail Enabling user using targetAddress " & User.CloudEmailAddress
    MailUser.MailEnable User.CloudEmailAddress
    WScript.Echo "Disabling Recipient Update Service for user"
    MyUser.PutEx ADS_PROPERTY_APPEND, "msExchPoliciesExcluded", Array("{26491CFC-9E50-4857-861B-0CB8DF22B5D7}")
    WScript.Echo "Saving Changes"
    MyUser.SetInfo
    WScript.Echo "Refreshing ADSI Cache"
    MyUser.GetInfo
    'Add Legacy DN back on to the user
    WScript.Echo "Writing legacyExchangeDN as " & User.LegacyDN
    MyUser.Put "legacyExchangeDN", User.LegacyDN
    'Add old proxies list back on to the MEU
    WScript.Echo "Writing proxyAddresses back to the user"
    For j=1 To User.ProxyAddresses.Count
        MyUser.PutEx ADS_PROPERTY_APPEND, "proxyAddresses", Array(User.ProxyAddresses(j))
        MyUser.SetInfo
        MyUser.GetInfo
    Next
    'Add mail attribute back on to the MEU
    WScript.Echo "Writing mail attribute as " & User.Mail
    MyUser.Put "mail", User.Mail
    'Add msExchMailboxGUID back on to the MEU
    WScript.Echo "Converting mailbox GUID to writable format"
    Dim mbxGUIDByteArray
    Call ConvertHexStringToByteArray(OctetToHexString(User.MailboxGUID), mbxGUIDByteArray)
    WScript.Echo "Writing property msExchMailboxGUID to user object with value " & OctetToHexString(User.MailboxGUID)
    MyUser.Put "msExchMailboxGUID", mbxGUIDByteArray
    WScript.Echo "Saving Changes"
    MyUser.SetInfo
    WScript.Echo "Migration Complete!" & vbCrLf
End Sub
'Returns the primary SMTP address of a user
Function GetPrimarySMTPAddress(Addresses)
    For Each address in Addresses
        If Left(address, 4) = "SMTP" Then GetPrimarySMTPAddress = address
    Next
End Function
'Converts Hex string to byte array for writing to AD
Sub ConvertHexStringToByteArray(ByVal strHexString, ByRef pByteArray)
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set Stream = CreateObject("ADODB.Stream")
    Temp = FSO.GetTempName()
    Set TS = FSO.CreateTextFile(Temp)
    For i = 1 To (Len (strHexString) -1) Step 2
        TS.Write Chr("&h" & Mid (strHexString, i, 2))
    Next
    TS.Close
    Stream.Type = 1
    Stream.Open
    Stream.LoadFromFile Temp
    pByteArray = Stream.Read
    Stream.Close
    FSO.DeleteFile Temp
    Set Stream = nothing
    Set FSO = Nothing
End Sub
'Converts raw bytes from AD GUID to readable string
Function OctetToHexString (arrbytOctet)
    OctetToHexStr = ""
    For k = 1 To Lenb (arrbytOctet)
        OctetToHexString = OctetToHexString & Right("0" & Hex(Ascb(Midb(arrbytOctet, k, 1))), 2)
    Next
End Function
Sub ShowHelp()
    WScript.Echo("This script runs in two modes, CSV Mode and Manual Mode." & vbCrLf & "CSV Mode allows you to specify a CSV file from which to pull usernames." & vbCrLf& "Manual mode allows you to run the script against a single user.")
    WSCript.Echo("Both modes require you to specify the name of a DC to use in the local domain." & vbCrLf & "To run the script in CSV Mode, use the following syntax:")
    WScript.Echo("  cscript Exchange2003MBtoMEU.vbs -c x:\csv\csvfilename.csv dc.domain.com")
    WScript.Echo("To run the script in Manual Mode, you must specify the users AD Distinguished Name, Remote SMTP Address, Remote Legacy Exchange DN, and Domain Controller Name.")
    WSCript.Echo("  cscript Exchange2003MBtoMEU.vbs " & chr(34) & "CN=UserName,CN=Users,DC=domain,DC=com" & chr(34) & " " & chr(34) & "user@cloudaddress.com" & chr(34) & " " & chr(34) & "/o=Cloud Org/ou=Cloud Site/ou=Recipients/cn=CloudUser" & chr(34) & " dc.domain.com")
    WScript.Quit
End Sub

스크립트는 무엇을 합니까?

ExportO365UserInfo.ps1

ExportO365UserInfo.ps1 단계적 Exchange 마이그레이션 중에 마이그레이션한 클라우드 사서함에 대한 정보를 수집하기 위해 클라우드 기반 조직에서 실행하는 PowerShell 스크립트입니다. 이 스크립트에서는 여러 사용자의 범위를 지정하는 데 CSV 파일을 사용합니다. 사용자 배치를 마이그레이션하는 데 사용한 것과 동일한 마이그레이션 CSV 파일을 사용하는 것이 좋습니다.

ExportO365UserInfo 스크립트를 실행하면 다음 작업이 수행됩니다.

다음 속성은 입력 CSV 파일에 나열된 사용자의 클라우드 사서함에서 수집됩니다.
- 기본 SMTP 주소입니다.
- 해당 온-프레미스 사서함의 기본 SMTP 주소입니다.
- 클라우드 사서함에 대한 기타 프록시 주소입니다.
- LegacyExchangeDN
수집된 속성은 Cloud.csv라는 CSV 파일에 저장됩니다.

Exchange2003MBtoMEU.vbs

Exchange2003MBtoMEU.vbs 사서함을 MEU로 변환하기 위해 온-프레미스 Exchange 2003 조직에서 실행하는 VB 스크립트입니다. ExportO365UserInfo.ps1 PowerShell 스크립트에서 생성된 Cloud.csv 파일을 사용합니다.

Exchange2003MBtoMEU.vbs 스크립트를 실행하면 입력 CSV 파일에 나열된 각 사서함에 대해 다음 작업이 수행됩니다.

입력 CSV 파일 및 온-프레미스 사서함에서 정보를 수집합니다.
온-프레미스 및 클라우드 사서함에서 MEU에 추가할 프록시 주소 목록을 만듭니다.
온-프레미스 사서함을 삭제합니다.
다음 속성을 사용하여 MEU를 만듭니다.
- legacyExchangeDN: 온-프레미스 사서함의 값입니다.
- mail: 클라우드 사서함의 기본 SMTP입니다.
- msExchMailboxGuid: 온-프레미스 사서함의 값입니다.
- proxyAddresses: 온-프레미스 사서함과 클라우드 사서함의 값입니다.
- targetAddress: 온-프레미스 사서함에서 읽습니다. 값은 클라우드 사서함의 기본 SMTP입니다.
  중요
  
  Exchange Online Exchange 2003으로 오프보딩을 사용하도록 설정하려면 MEU의 msExchMailboxGuid 속성 값을 클라우드 기반 사서함의 GUID로 바꿔야 합니다. 클라우드 기반 사서함의 GUID 값을 가져와 CSV 파일에 저장하려면 다음 Exchange Online PowerShell 명령을 실행합니다.
```
Get-Mailbox | Select PrimarySmtpAddress,Guid | Export-csv -Path .\guid.csv
```
  이 명령은 모든 클라우드 사서함의 기본 SMTP 주소 및 GUID를 guid.csv 파일로 추출한 다음 이 파일을 현재 디렉터리에 저장합니다.

입력 CSV 파일을 사용하여 여러 사서함을 변환하는 대신, 수동 모드에서 Exchange2003MBtoMEU.vbs 스크립트를 실행하여 한 번에 하나씩 사서함을 변환할 수 있습니다. 이 메서드를 선택하는 경우 다음 입력 매개 변수를 제공해야 합니다.

온-프레미스 사서함의 DN(고유 이름)
클라우드 사서함의 기본 SMTP 주소
클라우드 사서함에 대한 Exchange 레거시 DN
Exchange 2003 조직의 도메인 컨트롤러 이름

온-프레미스 사서함을 MEU로 변환하는 단계

Exchange Online 조직에서 ExportO365UserInfo.ps1 실행합니다. 입력 파일로 마이그레이션 일괄 처리를 위한 CSV 파일을 사용합니다. 이 스크립트는 Cloud.csv라는 CSV 파일을 만듭니다.
```
cd <location of the script>

.\ExportO365UserInfo.ps1 <CSV input file>
```
예시:
```
cd c:\data\scripts

.\ExportO365UserInfo.ps1 .\MigrationBatch1.csv
```
Exchange2003MBtoMEU.vbs 및 Cloud.csv를 온-프레미스 조직의 같은 디렉터리에 복사합니다.

온-프레미스 조직에서 다음 명령을 실행합니다.

cscript Exchange2003MBtoMEU.vbs -c .\Cloud.csv <FQDN of on-premises domain controller>

예:

cscript Exchange2003MBtoMEU.vbs -c .\Cloud.csv DC1.contoso.com

수동 모드에서 스크립트를 실행하려면 다음 명령을 입력합니다. 각 값 사이에 공백을 사용합니다.

cscript Exchange2003MBtoMEU.vbs "<DN of on-premises mailbox>" "<Primary SMTP of cloud mailbox>" "<ExchangeLegacyDN of cloud mailbox>" <FQDN of on-premises domain controller>

예:

cscript Exchange2003MBtoMEU.vbs "CN=Ann Beebe,CN=Users,DC=contoso,DC=com" "annb@contoso.onmicrosoft.com" "/o=First Organization/ou=Exchange Administrative Group (FYDIBOHF23SPDLT)/cn=Recipients/cn=d808d014cec5411ea6de1f70cc116e7b-annb" DC1.contoso.com

새 MEU가 만들어졌는지 확인합니다. Active Directory 사용자 및 컴퓨터 다음 단계를 수행합니다.
1. 작업>찾기를 클릭합니다.
2. Exchange 탭을 클릭합니다.
3. Show only Exchange recipients(Exchange 받는 사람만 표시)를 선택한 다음 외부 전자 메일 주소가 있는 사용자를 선택합니다.
4. 지금 찾기를 클릭합니다.
  
  MEU로 변환된 사서함이 검색 결과 아래에 나열됩니다.
Active Directory 사용자 및 컴퓨터, ASI 편집 또는 Ldp.exe 사용하여 다음 MEU 속성이 올바른 정보로 채워져 있는지 확인합니다.
- Legacyexchangedn
- mail
- msExchMailboxGuid^*
- proxyAddresses
- Targetaddress
^* 앞에서 설명한 것처럼, Exchange2003MBtoMEU.vbs 스크립트는 온-프레미스 사서함의 msExchMailboxGuid 값을 유지합니다. Microsoft 365 또는 Office 365 Exchange 2003으로 오프보딩을 사용하도록 설정하려면 MEU의 msExchMailboxGuid 속성 값을 클라우드 기반 사서함의 GUID로 바꿔야 합니다.

Share via