ExchangePowerShell.psm1

# EP (ExchangePowerShell) Powershell Module 0.6.0
# Author: Pietro Ciaccio | LinkedIn: https://www.linkedin.com/in/pietrociaccio | Twitter: @PietroCiac
# Pre-requisites: Exchange Server 2016 Exchange Management Shell

# Checks if the powershell session has the Exchange 2016 powershell module loaded

if (!($env:ExchangeInstallPath)) {
    throw "Exchange Server system variable ExchangeInstallPath missing."
}

if ($env:ExchangeInstallPath -notmatch '\\V15\\') {
    write-warning "The Microsoft Exchange Management Shell will be loaded from '$($env:ExchangeInstallPath)'"
    write-warning "Exchange Server 2016 powershell module not detected. There may be issues."
}

try {
    $cmd = $null; $cmd = get-command 'get-mailbox' -erroraction stop
} catch {
    $invexpr = ". '$env:ExchangeInstallPath\bin\RemoteExchange.ps1'; Connect-ExchangeServer -auto -ClientApplication:ManagementShell"
    Invoke-Expression $invexpr
}

try {
    $cmd = $null; $cmd = get-command 'get-mailbox' -erroraction stop
} catch {
    throw "Unable to load the Microsoft Exchange Management Shell."
}

# Non Exchange specific functions and cmdlets
function Get-EPDate {
    <#
    .SYNOPSIS
        Checks date format for cmdlets.
 
    .DESCRIPTION
        Checks date format for cmdlets
 
    #>

    [cmdletbinding()]
    Param (
        [Parameter(mandatory=$true,valuefrompipelinebypropertyname=$false)][PSCustomObject]$Date
    )

    Process {        
        
        # validate date time
        if ($date.gettype().fullname -ne "System.DateTime") {
            try {
                $date = $date.tostring()
                if ($date -match "\D") {
                    throw "DateTime and numerical value formats supported only."
                }
                switch ($date.length) {
                    7           {$date = "0" + $date}
                    13          {$date = "0" + $date}
                    default     {}
                }
                switch ($date.length) {
                    8           {$date = [datetime]::ParseExact($date,'ddMMyyyy',$null)}
                    14          {$date = [datetime]::ParseExact($date,'ddMMyyyyHHmmss',$null)}
                    default     {throw "Unsupported date provided. Must be ddMMyyyy or ddMMyyyyHHmmss. E.g. 15112019150329 for 15th November 2019 15:03:29."}
                }
            } catch {
                throw $_.exception.message
            }
        }

        if ($date.gettype().fullname -ne "System.DateTime") {
            throw "'Date' format is unsupported. This must be of format System.DateTime or a string in the format of ddMMyyyy or ddMMyyyyHHmmss."
        }

        return $Date

    }
}

# Exchange Server functions and cmdlets
function Get-EPExchangeServer{
    <#
    .SYNOPSIS
        Checks an Exchange 2016 servers identity.
 
    .DESCRIPTION
        Checks an Exchange 2016 servers identity.
 
    .PARAMETER Identity
        Specify the identity of the computer. This can be piped from Get-ExchangeServer or specified explicitly using a string.
    #>

    [cmdletbinding()]
    Param (
        [Parameter(mandatory=$true,valuefrompipelinebypropertyname=$true)][PSCustomObject]$Identity
    )

    Process {        
        
        # Validate Exchange Server
        if ($input) {
            if ($input.objectcategory.name -ne "ms-Exch-Exchange-Server"){
                throw "Unable to validate Exchange server identity."
            } else {
                $ExchangeServer = $null; $ExchangeServer = $input
            }
        }

        if (!($input)) {
            if ($identity.gettype().fullname -ne "System.String") {
                throw "Unable to use parameter 'Identity' of type '$($identity.gettype().fullname)'." 
            } else {
                try {
                    $ExchangeServer = $null; $ExchangeServer = Get-ExchangeServer -Identity $identity -erroraction stop
                } catch {
                    throw $_.exception.message
                }
            }
        }

        if ($ExchangeServer.Admindisplayversion.major -ne "15") {
            write-warning "Exchange version is not 15 for '$($ExchangeServer.identity)'. There may be issues."
        }

        return $ExchangeServer
    }
}

function Clear-EPExchangeLogs {
    <#
    .SYNOPSIS
        Clears Exchange Server 2016 logs older than a specified date.
 
    .DESCRIPTION
        Clears Exchange Server 2016 logs older than a specified date. Deletes files with extensions .log .blg and .etl. The cmdlet will determine the Exchange and IIS logging directories automatically.
 
    .PARAMETER Identity
        Specify the identity of the computer. This can be piped from Get-ExchangeServer or specified explicitly using a string.
 
    .PARAMETER StartDate
        Specify the date from which to clear logs. This can be of type Date.Time or a string in the format of ddMMyyyy or ddMMyyyyHHmmss.
     
    .EXAMPLE
        Get-ExchangeServer Server1 | Clear-EPExchangeLogs -Date (get-date).adddays(-30)
 
        This will clear logs older than 30 days on the Exchange server Server1.
 
    .EXAMPLE
        Clear-EPExchangeLogs -Identity Server2 -Date 01112019
 
        This will clear logs older than the 1st November 2019 on the Exchange server Server2.
 
    #>

    [cmdletbinding()]
    Param (
        [Parameter(mandatory=$true,valuefrompipelinebypropertyname=$true)][PSCustomObject]$Identity,
        [Parameter(mandatory=$true,valuefrompipelinebypropertyname=$false)][PSCustomObject]$StartDate
    )
    Process {      
        
        # Validate identity

        $ExchangeServer = $null
        try {
            if ($input) {            
                $ExchangeServer = $input | Get-EPExchangeServer
            } else {
                $ExchangeServer = Get-EPExchangeServer -Identity $Identity
            }
        } catch {
            throw $_.exception.message         
        }

        # validate date time
        $Date = Get-EPDate -Date $StartDate

        # Script blocks
        $Scriptblock = $null; $Scriptblock = [scriptblock]::Create('
            Param($thisdate,$thisserver)
             
            $files = $null
            $scopecount = 0
            $successcount = 0
            $errorcount = 0
            $Status = $null
            $Comment = $null
 
            try {
                $ExchangeLoggingPath = $null; $ExchangeLoggingPath = $env:exchangeinstallpath + "Logging"
 
                if (test-path $ExchangeLoggingPath) {
 
                    $Files += [System.IO.Directory]::GetFiles($ExchangeLoggingPath,"*.log","AllDirectories")
                    $Files += [System.IO.Directory]::GetFiles($ExchangeLoggingPath,"*.blg","AllDirectories")
                    $Files += [System.IO.Directory]::GetFiles($ExchangeLoggingPath,"*.etl","AllDirectories")
 
                    $IISLoggingPath = $null;
                    try {
                        $IISLoggingPath = (get-iissite).logfile.directory
                    } catch {
                        throw "Unable to determine IIS logging paths."
                    }
                    if ($IISLoggingPath) {
                        $IISLoggingPath | . {process
                            {
                                $Files += [System.IO.Directory]::GetFiles([System.Environment]::ExpandEnvironmentVariables($_),"*.log","AllDirectories")
                            }
                        }
                    }
                } else {
                    throw "$ExchangeLoggingPath does not exist."
                }
     
                if ($Files) {
                    $Files | . {process
                        {
                            if ($([System.IO.File]::GetLastWriteTime($_)) -lt $thisdate) {
                                $scopecount += 1
                                try {
                                    [System.IO.File]::Delete($_)
                                    $successcount += 1
                                } catch {
                                    $errorcount += 1
                                }
                            }
                        }
                    }
                }
                $Status = "OK"
            } catch {
                $Status = "Error"
                $Comment += $_.exception.message
            }
 
            [pscustomobject]@{
                "Identity" = $thisServer
                "TotalFound" = $(($Files | measure).count)
                "InScope" = $scopecount
                "Deleted" = $successcount
                "Skipped" = $errorcount
                "Status" = $Status
                "Comment" = $null
            }
        '
)      

        # Local or Remote execution
        try {            
            $localhostname = (Get-WmiObject win32_computersystem).DNSHostName+"."+(Get-WmiObject win32_computersystem).Domain
            if ($localhostname -eq $ExchangeServer.fqdn) {
                try {
                    $scriptblock.invoke($date,$($ExchangeServer.fqdn))
                } catch {
                    throw $_.exception.message
                }
            } else {
                try {
                    Invoke-Command -ComputerName $($ExchangeServer.fqdn) -ScriptBlock $Scriptblock -ArgumentList $date,$($ExchangeServer.fqdn) -ErrorAction stop | select * -ExcludeProperty pscomputername,runspaceid
                } catch {
                    throw $_.exception.message
                }
            }            
        } catch {
            [pscustomobject]@{
                "Identity" = $($ExchangeServer.fqdn)
                "TotalFound" = 0
                "InScope" = 0
                "Deleted" = 0
                "Skipped" = 0
                "Status" = "Error"
                "Comment" = $_.exception.message
            }  
        } 
    }
}


function Enable-EPMaintenanceMode {
    <#
    .SYNOPSIS
        Puts a Microsoft Exchange Server 2016 computer into maintenance mode.
  
    .DESCRIPTION
        Puts a Microsoft Exchange Server 2016 computer into maintenance mode. CmdLet will -
          
            - drain queues
            - restart transport services
            - redirect messages to a redirection server
            - move off active database copies to an available DAG member
            - suspend the cluster node
            - prevent database activation on the server
            - suspend passive copies
            - set all server component states to inactive
  
    .PARAMETER Identity
        Specify the identity of the computer. This can be piped from Get-ExchangeServer or specified explicitly using a string.
  
    .PARAMETER RedirectionTarget
        Specify the identity of the computer you wish to redirect pending messages to.
          
    .PARAMETER MoveActiveDatabaseCopies
        Specify whether to move active database copies to other DAG members, if possible. The default is false.
  
    #>

    [cmdletbinding()]
    Param (
        [Parameter(mandatory=$true,valuefrompipelinebypropertyname=$true)][PSCustomObject]$Identity,
        [Parameter(mandatory=$false,valuefrompipelinebypropertyname=$false)][PSCustomObject]$RedirectionTarget,
        [switch]$MoveActiveDatabaseCopies
    )
    Process {        

        # Validate identity
        if ($input) {            
            $ExchangeServer = $null; $ExchangeServer = $input | Get-EPExchangeServer
        } else {
            $ExchangeServer = $null; $ExchangeServer = Get-EPExchangeServer -Identity $Identity
        }

        # Validate Redirection Server
        $RedirectionServer = $null; 
        if ($RedirectionTarget) {
            try {
                $RedirectionServer = Get-EPExchangeServer -Identity $RedirectionTarget
            } catch {
                throw $_.exception.message
            }
        }

        # Determine DAG membership
        $isDAGMember = $false
        try {
            $RecipientServer = $null; $RecipientServer = Get-MailboxServer -identity $Exchangeserver.fqdn -erroraction stop
            if ($($RecipientServer | measure).count -ne 1) {
                throw "$($($RecipientServer | measure).count) servers returned from query. Unable to continue."
            }
            if ($RecipientServer.DatabaseAvailabilityGroup -ne $null) {
                $isDAGMember = $true
            }
        } catch {
            throw $_.exception.message
        } 

        # Draining queues
        Write-Host "Putting '$($ExchangeServer.fqdn.toupper())' into maintenance mode."
        if ($RedirectionServer){
            Write-Host "Using '$($RedirectionServer.fqdn.toupper())' for message redirection."
        }
        Write-Host "Draining mail queues."
        try {
            Set-ServerComponentState -Identity $($ExchangeServer.fqdn) -Component HubTransport -State Draining -Requester Maintenance -erroraction stop
        } catch {
            throw $_.exception.message
        }

        # Restarting transport services
        Write-Host "Restarting MSExchangeTransport and MSExchangeFrontEndTransport services."
        $n = 0
        Do {
            try {
                invoke-command -ComputerName $($ExchangeServer.fqdn) -scriptblock {"MSExchangeTransport","MSExchangeFrontEndTransport" | restart-service -WarningAction SilentlyContinue} -ErrorAction stop -WarningAction SilentlyContinue
                break
            } catch {
                $n++
                write-host "WARNING: Issue restarting MSExchangeTransport and MSExchangeFrontEndTransport services. Waiting 60 seconds then retrying." -nonewline -ForegroundColor Yellow
                start-sleep -Seconds 60
                write-host " Retry attempt $n of 5." -ForegroundColor Yellow      
            }
            if ($n -eq 5) {
                throw "Issue restarting MSExchangeTransport and MSExchangeFrontEndTransport services."
            }
        } while ($true)

        # Redirect messages
        if ($RedirectionServer) {
            Write-Host "Redirecting messages."      
            try {
                Redirect-Message -Server $($ExchangeServer.fqdn) -Target $($RedirectionServer.fqdn) -confirm:$false -erroraction stop -WarningAction SilentlyContinue
            } catch {
                throw $_.exception.message
            }
        }

        # DAG members only
        if ($isDAGMember) {

            # Move active database copies off
            try {
                Write-Host "Setting DatabaseCopyActivationDisabledAndMoveNow to 'True'."
                Set-MailboxServer -Identity $($ExchangeServer.fqdn) -DatabaseCopyActivationDisabledAndMoveNow $True -erroraction Stop -confirm:$false
            } catch {
                throw $_.exception.message
            }

            # Move active copies immediately
            try {
                $actives = $null; $actives = Get-MailboxDatabaseCopyStatus *\$($ExchangeServer.name) | ? {$_.activecopy -eq $true}
                write-host "$($($actives | measure).count) active database copies found."

                if ($($($actives | measure).count) -eq 0 -and $MoveActiveDatabaseCopies) {
                    Write-host "No active database copies to move."
                }

                if ($actives -and $MoveActiveDatabaseCopies) {
                    write-host "Moving active databases to other DAG members."
                    $actives | . {
                        process {
                            if ($($($($_ | . { process {(get-Mailboxdatabase $_.databasename).servers}}) | measure).count) -lt 2) {
                                Write-Warning "No other database copies exist. Unable to move active database copy."
                            } else {
                                $move = $null; $move = Get-Mailboxdatabase $($_.databasename) |  Move-ActiveMailboxDatabase -MountDialOverride lossless -SkipClientExperienceChecks -SkipMaximumActiveDatabasesChecks -confirm:$false -erroraction stop 
                                if ($move.status -ne "Succeeded") {
                                    throw "$($move.identity) Mailbox database move issue."
                                }
                            }
                        }                        
                    }
                }

            } catch {
                throw $_.exception.message
            }

            # Suspend cluster node
            Write-Host "Suspending cluster node."      
            try {
                invoke-command -ComputerName $($ExchangeServer.fqdn) -ScriptBlock {
                    if ((Get-ClusterNode $($using:ExchangeServer.fqdn)).state -ne "Paused") {
                        Suspend-ClusterNode $($using:ExchangeServer.fqdn)
                    }     
                } -ErrorAction Stop | out-null
            } catch {
                throw $_.exception.message
            }

            # Set activation policy to blocked
            try {
                Write-Host "Setting DatabaseCopyAutoActivationPolicy to 'Blocked'."
                Set-MailboxServer -Identity $($ExchangeServer.fqdn) -DatabaseCopyAutoActivationPolicy Blocked -erroraction Stop -confirm:$false
            } catch {
                throw $_.exception.message
            }

            # Suspend passive copies
            try {                
                $Copies = $null; $Copies = Get-MailboxDatabaseCopyStatus *\$($ExchangeServer.name) | ? {$_.activecopy -eq $false}
                if ($Copies) {
                    Write-Host "Suspending passive copies."                
                    $Copies | . { process {
                            $_  | Suspend-MailboxDatabaseCopy -confirm:$false -erroraction stop
                        }                
                    }
                }
            } catch {
                throw $_.exception.message
            }

        }

        # Complete maintenance mode
        try {
            Write-Host "Completing maintenance mode."
            Set-ServerComponentState -Identity $($ExchangeServer.fqdn) -Component ServerWideOffline -State Inactive -Requester Maintenance -erroraction stop
        } catch {
            throw $_.exception.message
        }
        
        write-host "Done."     
        
    }
}

function Disable-EPMaintenanceMode {
    <#
    .SYNOPSIS
        Removes a Microsoft Exchange Server 2016 computer from maintenance mode.
  
    .DESCRIPTION
        Removes a Microsoft Exchange Server 2016 computer from maintenance mode. Cmdlet will -
  
            - set all server component states to active
            - resume the cluster node
            - enable database activation on the server
            - resume passive database copies
            - resume transport
            - restart transport services
  
    .PARAMETER Identity
        Specify the identity of the computer. This can be piped from Get-ExchangeServer or specified explicitly using a string.
  
    #>

    [cmdletbinding()]
    Param (
        [Parameter(mandatory=$true,valuefrompipelinebypropertyname=$true)][PSCustomObject]$Identity
    )
    Process {        

        # Validate identity
        if ($input) {            
            $ExchangeServer = $null; $ExchangeServer = $input | Get-EPExchangeServer
        } else {
            $ExchangeServer = $null; $ExchangeServer = Get-EPExchangeServer -Identity $Identity
        }

        # Determine DAG membership
        $isDAGMember = $false
        try {
            $RecipientServer = $null; $RecipientServer = Get-MailboxServer -identity $Exchangeserver.fqdn -erroraction stop
            if ($($RecipientServer | measure).count -ne 1) {
                throw "$($($RecipientServer | measure).count) servers returned from query. Unable to continue."
            }
            if ($null -ne $RecipientServer.DatabaseAvailabilityGroup) {
                $isDAGMember = $true
            }
        } catch {
            throw $_.exception.message
        } 

        # Remove from maintenance mode
        try {
            Write-Host "Removing '$($ExchangeServer.fqdn.toupper())' from maintenance mode."
            Set-ServerComponentState -Identity $($ExchangeServer.fqdn) -Component ServerWideOffline -State Active -Requester Maintenance -erroraction stop
        } catch {
            throw $_.exception.message
        } 
        
        # DAG members only
        if ($isDAGMember) {
            
            # Resume cluster node
            Write-Host "Resuming cluster node."       
            try {
                invoke-command -ComputerName $($ExchangeServer.fqdn) -ScriptBlock {
                    if ((Get-ClusterNode $($using:ExchangeServer.fqdn)).state -ne "Up") {
                        Resume-ClusterNode $($using:ExchangeServer.fqdn)
                    }     
                } -ErrorAction Stop | out-null
            } catch {
                throw $_.exception.message
            }

            # Move active database copies on
            try {
                Write-Host "Setting DatabaseCopyActivationDisabledAndMoveNow to 'False'."
                Set-MailboxServer -Identity $($ExchangeServer.fqdn) -DatabaseCopyActivationDisabledAndMoveNow $false -erroraction Stop -confirm:$false
            } catch {
                throw $_.exception.message
            }     

            # Set activation policy to unrestricted
            try {
                Write-Host "Setting DatabaseCopyAutoActivationPolicy to 'Unrestricted'."
                Set-MailboxServer -Identity $($ExchangeServer.fqdn) -DatabaseCopyAutoActivationPolicy Unrestricted -erroraction Stop -confirm:$false
            } catch {
                throw $_.exception.message
            }   
            
            # Resume passive copies
            try {                
                $Copies = $null; $Copies = Get-MailboxDatabaseCopyStatus *\$($ExchangeServer.name) | ? {$_.activecopy -eq $false}
                if ($Copies) {
                    Write-Host "Resuming passive copies."
                    $Copies | . { process {
                            $_  | Resume-MailboxDatabaseCopy -confirm:$false -erroraction stop
                        }                
                    }
                }
            } catch {
                throw $_.exception.message
            }

        }     
        
        # Resume transport
        Write-Host "Resuming transport."
        try {
            Set-ServerComponentState -Identity $($ExchangeServer.fqdn) -Component HubTransport -State Active -Requester Maintenance -erroraction stop
        } catch {
            throw $_.exception.message
        }

        # Restarting transport services
        Write-Host "Restarting MSExchangeTransport and MSExchangeFrontEndTransport services."
        $n = 0
        Do {
            try {
                invoke-command -ComputerName $($ExchangeServer.fqdn) -scriptblock {"MSExchangeTransport","MSExchangeFrontEndTransport" | restart-service -WarningAction SilentlyContinue} -ErrorAction stop -WarningAction SilentlyContinue
                break
            } catch {
                $n++
                write-host "WARNING: Issue restarting MSExchangeTransport and MSExchangeFrontEndTransport services. Waiting 60 seconds then retrying." -nonewline -ForegroundColor Yellow
                Start-Sleep -Seconds 60
                write-host " Retry attempt $n of 5." -ForegroundColor Yellow      
            }
            if ($n -eq 5) {
                throw "Issue restarting MSExchangeTransport and MSExchangeFrontEndTransport services."
            }
        } while ($true)

        write-host "Done."

    }
}


# Mail enabled objects cmdlets and functions

function Remove-EPProxyAddress{
    <#
    .SYNOPSIS
        Removes secondary SMTP addresses from mail enabled objects that match a specific domain.
 
    .DESCRIPTION
        Removes secondary SMTP addresses from mail enabled objects that match a specific domain.
 
    .PARAMETER Identity
        Specify the identity of the mail enabled object. This can be piped from Get-Recipient, Get-Recipient, Get-DistributionGroup etc or specified explicitly using a string.
 
    .PARAMETER SMTPDomain
        Specify the SMTP domain that you wish to have removed from the object's proxy addresses.
     
    .PARAMETER X500Keyword
        Specify a keyword that can be matched to an X500 address that you wish to have removed from the object's proxy addresses.
 
    .PARAMETER Confirm
        Specify if you want to be prompted. The default is true.
 
    #>

    [cmdletbinding()]
    Param (
        [Parameter(mandatory=$true,valuefrompipelinebypropertyname=$true)][PSCustomObject]$Identity,
        [Parameter(mandatory=$false,valuefrompipelinebypropertyname=$true)][string]$SMTPDomain,
        [Parameter(mandatory=$false,valuefrompipelinebypropertyname=$true)][string]$X500Keyword,
        [Parameter(mandatory=$false,valuefrompipelinebypropertyname=$true)][Boolean]$Confirm=$true
    )

    Process {

        $Pxys = $null
        $Recipient = $null
        $Status = $null
        $Comment = $null
        $SMTPDomain = $SMTPDomain.toupper()

        $MailObj = [pscustomobject]@{
            "Identity" = $null
            "GUID" = $null
            "RecipientTypeDetails" = $null
            "Status" = $Status
            "Comment" = $Comment
        }

        try {
            if ($input) {
                $Recipient = $Input
                if (!($Recipient.recipienttypedetails)) {
                    $MailObj.identity = $Input.identity
                    throw "Issue with input object."
                }
            }

            if (!($input)) {
                $Recipient = Get-Recipient -identity $Identity -erroraction stop                
            }

            if (!($Recipient)) {
                throw "Recipient not found."
            }

            if (($Recipient | measure).count -gt 1) {
                throw "Too many matches found."
            }

            $MailObj.identity = $Recipient.identity
            $MailObj.RecipientTypeDetails = $Recipient.RecipientTypeDetails
            $MailObj.GUID = $Recipient.guid.guid

            if ($Recipient.exchangeversion.exchangebuild.major -ne 15) {
                write-warning "Exchange version is not 15 for '$($Recipient.identity)'. There may be issues."
                $Comment += "Exchange version is not 15. There may be issues."
            }

            $Pxys = ($Recipient).emailaddresses.proxyaddressstring | sort 

            if (!($Pxys)) {
                throw "No proxy addresses found."
            }

            $PxysToRemove = $null

            if (!($SMTPDomain -or $X500Keyword)) {
                throw "No parameters passed to cmdlet."
            }

            if ($SMTPDomain) {
                $PxysToRemove = $Pxys | sort | ? {($_ -match "$SMTPDomain$" -and $_ -cmatch "^smtp:")}
                $Pxys = $Pxys | sort | ? {!($_ -match "$SMTPDomain$" -and $_ -cmatch "^smtp:")}           
            }

            if ($X500Keyword) {
                $PxysToRemove += $Pxys | ? {($_ -match "^X500:" -and $_ -match $X500Keyword)}
                $Pxys = $Pxys | sort | ? {!($_ -match "^X500:" -and $_ -match $X500Keyword)} 
            }


            if (!($PxysToRemove)) {
                $MailObj.Status = "OK"
            } else {
                $ADObj = $null
                $GUID = $null
                $GUID = $Recipient.guid.guid
                $ADObj = Get-ADObject -Filter {objectguid -eq $GUID} -Properties proxyaddresses -Server $recipient.originatingserver
                if (!($ADObj)) {
                    throw "Recipient not found in Active Directory."
                }

                $Pxys = $Pxys | . { process{ $_.tostring()}}
                $ADObj.proxyaddresses = $Pxys
                
                if ($Confirm) {
                    write-host "Are you sure you want to remove proxy addresses from '$($Recipient.identity)'?"
                    write-host ""
                    write-host "Proxy addresses to keep -`n"
                    $Pxys
                    write-host ""
                    Write-host "Proxy addresses to remove -`n"
                    $PxysToRemove
                    write-host ""
                    write-host "[Y] Yes " -ForegroundColor Yellow -NoNewline
                    write-host '[N] No (default is "Y"): ' -NoNewline                    
                    $Read = Read-Host
                }
                if (!($Read)) {
                    $Read = "Y"
                }
                if ($Read -match "^Y$|^Yes$") {
                    Set-ADObject -Instance $ADObj -Server $recipient.originatingserver -erroraction stop
                } else {
                    throw "Cancelled by user."
                }

                $MailObj.status = "Updated"
                $MailObj.Comment += "Removed $($PxysToRemove -join ";")"
            }

        } catch {
            $MailObj.Status = "Error"
            $MailObj.Comment += $_.exception.message
        }
   
        $MailObj

    }
}

function ConvertTo-EPMailUser{
    <#
    .SYNOPSIS
        Converts a mailbox to a mail user.
 
    .DESCRIPTION
        Converts a mailbox to a mail user.
 
    .PARAMETER Identity
        Specify the identity of the mailbox enabled object. This can be piped from Get-Recipient, Get-Mailbox etc or specified explicitly using a string.
 
    .PARAMETER ExternalEmailAddress
        Specify the ExternalEmailAddress of the mail user. If this is not specified the primary SMTP address will be used.
     
    .PARAMETER Confirm
        Specify if you want to be prompted. The default is true.
 
    #>
    
    [cmdletbinding()]
    Param (
        [Parameter(mandatory=$true,valuefrompipelinebypropertyname=$true)][PSCustomObject]$Identity,
        [Parameter(mandatory=$false,valuefrompipelinebypropertyname=$false)][string]$ExternalEmailAddress,
        [Parameter(mandatory=$false,valuefrompipelinebypropertyname=$true)][Boolean]$Confirm=$true
    )

    Process {

        $MailObj = [pscustomobject]@{
            "Identity" = $null
            "GUID" = $null
            "RecipientTypeDetails" = $null
            "ExternalEmailAddress" = $null
            "Status" = $Status
            "Comment" = $Comment
        }

        try {

            $Recipient = $null

            if ($input) {
                $Recipient = $Input
                if (!($Recipient.recipienttypedetails)) {
                    $MailObj.identity = $Input.identity
                    throw "Issue with input object."
                } else {
                    if (!($Recipient.recipienttypedetails -match "mailbox$" -or $Recipient.recipienttypedetails -match "mailuser$")) {
                        $MailObj.identity = $Input.identity
                        throw "Issue with input object."
                    }
                }
            }

            if (!($input)) {
                $Recipient = Get-Recipient -identity $Identity -erroraction stop                
            }

            if (!($Recipient)) {
                throw "Recipient not found."
            }

            if (($Recipient | measure).count -gt 1) {
                throw "Too many matches found."
            }

            if ($Recipient.exchangeversion.exchangebuild.major -ne 15) {
                write-warning "Exchange version is not 15 for '$($Recipient.identity)'. There may be issues."
                $Comment += "Exchange version is not 15. There may be issues."
            }

            $MailObj.identity = $Recipient.identity
            $MailObj.RecipientTypeDetails = $Recipient.RecipientTypeDetails
            $MailObj.GUID = $Recipient.guid.guid


            if ($ExternalEmailAddress) {               
                $MailObj.ExternalEmailAddress = $ExternalEmailAddress
            } else {
                $MailObj.ExternalEmailAddress = $Recipient.primarysmtpaddress
            }
            
            $TargetAddress = $null
            $TargetAddress = $MailObj.ExternalEmailAddress
            if ($TargetAddress -notmatch "^smtp:") {
                $TargetAddress = "SMTP:" + $TargetAddress
            }

            if ($Recipient.recipienttypedetails -eq "mailuser" -and $Recipient.ExternalEmailAddress -ceq $TargetAddress) {

                $MailObj.Status = "OK"

            } else {

                $ADObj = $null
                $ADObj = Get-ADObject -Identity $MailObj.GUID -Properties homeMDB,msExchHomeServerName,msExchMailboxGUID,msExchArchiveGUID,msExchArchiveName,msExchRecipientDisplayType,msExchRecipientTypeDetails,targetaddress -Server $recipient.originatingserver
                $ADObj.homeMDB = $null
                $ADObj.msExchHomeServerName = $null
                $ADObj.msExchMailboxGUID = $null
                $ADObj.msExchArchiveGUID = $null
                $ADObj.msExchArchiveName = $null
                $ADObj.msExchRecipientDisplayType = 6
                $ADObj.msExchRecipientTypeDetails = 128
                $ADObj.targetAddress = $TargetAddress

                if ($Confirm) {
                    write-host "Are you sure you want to convert the mailbox to a mailuser using ExternalEmailAddress '$TargetAddress' for '$($Recipient.identity)'?"
                    write-host "[Y] Yes " -ForegroundColor Yellow -NoNewline
                    write-host '[N] No (default is "Y"): ' -NoNewline                    
                    $Read = Read-Host
                }
                if (!($Read)) {
                    $Read = "Y"
                }
                if ($Read -match "^Y$|^Yes$") {
                    Set-ADObject -Instance $ADObj -Server $recipient.originatingserver -erroraction stop
                } else {
                    throw "Cancelled by user."
                }

                $MailObj.Status = "Updated"
                $MailObj.Comment += "ExternalEmailAddress set to '$TargetAddress'"
            }

        } catch {
            $MailObj.Status = "Error"
            $MailObj.Comment += $_.exception.message
        }

        $MailObj

    }
}

function ConvertTo-EPMailContact{
    <#
    .SYNOPSIS
        Converts a mailbox or mail user to a mail contact.
 
    .DESCRIPTION
        Converts a mailbox or mail user to a mail contact. The user object will have Exchange attributes removed and a mail contact object will be created in the same organizational unit unless specified with the OrganizationalUnit parameter.
 
    .PARAMETER Identity
        Specify the identity of the mailbox or mail enabled object. This can be piped from Get-Recipient, Get-Mailbox etc or specified explicitly using a string.
 
    .PARAMETER ExternalEmailAddress
        Specify the ExternalEmailAddress of the mail contact. If this is not specified for a mailbox the primary SMTP address will be used.
        If this is not specified for a mail user to ExternalEmailAddress of the mail user will be used.
 
    .PARAMETER OrganizationalUnit
        Specify where you would like the mail contact to be created. If not specified the same organizationalunit as the user object will be used.
 
    .PARAMETER Confirm
        Specify if you want to be prompted. The default is true.
 
    #>
    
    [cmdletbinding()]
    Param (
        [Parameter(mandatory=$true,valuefrompipelinebypropertyname=$true)][PSCustomObject]$Identity,
        [Parameter(mandatory=$false,valuefrompipelinebypropertyname=$false)][string]$ExternalEmailAddress,
        [Parameter(mandatory=$false,valuefrompipelinebypropertyname=$false)][string]$OrganizationalUnit,
        [Parameter(mandatory=$false,valuefrompipelinebypropertyname=$true)][Boolean]$Confirm=$true
    )

    Process {

        $MailObj = [pscustomobject]@{
            "Identity" = $null
            "GUID" = $null
            "RecipientTypeDetails" = $null
            "ExternalEmailAddress" = $null
            "Status" = $Status
            "Comment" = $Comment
        }

        try {

            $Recipient = $null

            if ($input) {
                $Recipient = $Input
                if (!($Recipient.recipienttypedetails)) {
                    $MailObj.identity = $Input.identity
                    throw "Issue with input object."
                } else {
                    if (!($Recipient.recipienttypedetails -match "mailbox$" -or $Recipient.recipienttypedetails -match "mailuser$" -or $Recipient.recipienttypedetails -match "mailcontact$")) {
                        $MailObj.identity = $Input.identity
                        throw "Issue with input object."
                    }
                }
            }

            if (!($input)) {
                $Recipient = Get-Recipient -identity $Identity -erroraction stop                
            }

            if (!($Recipient)) {
                throw "Recipient not found."
            }

            if (($Recipient | measure).count -gt 1) {
                throw "Too many matches found."
            }

            if ($Recipient.exchangeversion.exchangebuild.major -ne 15) {
                write-warning "Exchange version is not 15 for '$($Recipient.identity)'. There may be issues."
                $Comment += "Exchange version is not 15. There may be issues."
            }

            $MailObj.identity = $Recipient.identity
            $MailObj.RecipientTypeDetails = $Recipient.RecipientTypeDetails
            $MailObj.GUID = $Recipient.guid.guid

            if ($ExternalEmailAddress) {
                $MailObj.ExternalEmailAddress = $ExternalEmailAddress
            } else {
                if ($Recipient.recipienttypedetails -match "mailbox$") {
                    $MailObj.ExternalEmailAddress = $Recipient.primarysmtpaddress.address
                }
                if ($Recipient.recipienttypedetails -match "mailuser$") {
                    if ($Recipient.ExternalEmailAddress) {
                        $MailObj.ExternalEmailAddress = $Recipient.ExternalEmailAddress
                    }
                }
            }

            $TargetAddress = $null
            $TargetAddress = $MailObj.ExternalEmailAddress
            if ($TargetAddress -notmatch "^smtp:") {
                $TargetAddress = "SMTP:" + $TargetAddress
            }

            if ($Recipient.recipienttypedetails -eq "mailcontact") {

                $MailObj.Status = "Error"
                $MailObj.Comment += "MailContact objects not supported."

            } else {

                if ($Confirm) {
                    write-host "Are you sure you want to convert to a mail contact using ExternalEmailAddress '$TargetAddress' for '$($Recipient.identity)'?"
                    write-host "[Y] Yes " -ForegroundColor Yellow -NoNewline
                    write-host '[N] No (default is "Y"): ' -NoNewline                    
                    $Read = Read-Host
                }
                if (!($Read)) {
                    $Read = "Y"
                }
                if ($Read -match "^Y$|^Yes$") {    
        
                    if (!($Recipient.primarysmtpaddress.address)) {
                        throw "Missing primary SMTP address."
                    }

                    $TempSMTPAddress = $null
                    $TempSMTPAddress = [guid]::NewGuid().guid + "@tempaddr.local"

                    $Pxys = $null
                    $Pxys = $Recipient.emailaddresses.proxyaddressstring
                    $X500 = (get-adobject -Identity $recipient.guid.guid -Properties legacyexchangedn -Server $recipient.originatingserver).legacyexchangedn
                    
                    if (!($X500)) {
                        throw "LegacyExchangeDN is null."
                    }

                    $X500 = "X500:" + $X500
                    $Pxys += $X500
                    $Pxys = $Pxys | . {process{$_.tostring()}}

                    $ContactName = $null
                    $ContactName = $Recipient.name + "-MailContact"
                    $ConObj = $null

                    if (!($OrganizationalUnit)) {
                        $ConObj = New-MailContact -Name $ContactName -Displayname $($Recipient.Displayname) -OrganizationalUnit $($Recipient.OrganizationalUnit) -PrimarySMTPAddress $TempSMTPAddress -ExternalEmailAddress $TargetAddress -erroraction stop
                    } else {
                        $ConObj = New-MailContact -Name $ContactName -Displayname $($Recipient.Displayname) -OrganizationalUnit "$OrganizationalUnit" -PrimarySMTPAddress $TempSMTPAddress -ExternalEmailAddress $TargetAddress -erroraction stop
                    }

                    if (!($ConObj)) {
                         throw "Issue creating mail contact."
                    } else {
                        if ($ConObj.EmailAddressPolicyEnabled) {
                            Set-MailContact -Identity $ConObj.guid.guid -EmailAddressPolicyEnabled $false -domaincontroller $recipient.originatingserver -erroraction stop
                        }
                    }

                    switch -regex ($Recipient.recipienttypedetails) {
                        'mailbox$'      {
                                            Disable-Mailbox -Identity $Recipient.guid.guid -confirm:$false -erroraction stop
                                            Set-ADObject -Identity $recipient.guid.guid -clear legacyexchangedn -Server $recipient.originatingserver -erroraction stop
                                        }
                        'mailuser$'     {
                                            Disable-MailUser -Identity $Recipient.guid.guid -confirm:$false -erroraction stop    
                                            Set-ADObject -Identity $recipient.guid.guid -clear legacyexchangedn -Server $recipient.originatingserver -erroraction stop                                      
                                        }
                        default { throw "Unsupported '$($Recipient.recipienttypedetails)'"}
                    }
                    
                    Set-MailContact -identity $ConObj.guid.guid -EmailAddresses $Pxys -domaincontroller $recipient.originatingserver -erroraction stop                

                } else {
                    throw "Cancelled by user."
                }

                $MailObj.Status = "Updated"
                $MailObj.Comment += "Created '$ContactName'. ExternalEmailAddress set to '$TargetAddress'"
            }

        } catch {
            $MailObj.Status = "Error"
            $MailObj.Comment += $_.exception.message
        }

        $MailObj

    }
}

Function Compare-ObjectProperties {
    Param(
        [PSObject]$ReferenceObject,
        [PSObject]$DifferenceObject  
    )
    $objprops = $ReferenceObject | Get-Member -MemberType Property,NoteProperty | % Name
    $objprops += $DifferenceObject | Get-Member -MemberType Property,NoteProperty | % Name
    $objprops = $objprops | Sort | Select -Unique
    $diffs = @()
    foreach ($objprop in $objprops) {
        $diff = Compare-Object $ReferenceObject $DifferenceObject -Property $objprop
        if ($diff) {            
            $diffprops = @{
                PropertyName=$objprop
                RefValue=($diff | ? {$_.SideIndicator -eq '<='} | % $($objprop))
                DiffValue=($diff | ? {$_.SideIndicator -eq '=>'} | % $($objprop))
            }
            $diffs += New-Object PSObject -Property $diffprops
        }        
    }
    if ($diffs) {return ($diffs | Select PropertyName,RefValue,DiffValue)}     
}