Public/Import/Switch-AddressDomain.ps1
|
function Switch-AddressDomain { <# .SYNOPSIS Modifies PrimarySMTPAddress via Active Directory by changing domain from old to new. Makes the primary address a secondary (additional) smtp address. Optionally, changes the UPN, changes the mail attributes or clears all proxy addresses first. .DESCRIPTION Modifies PrimarySMTPAddress via Active Directory by changing domain from old to new. Makes the primary address a secondary (additional) smtp address. Optionally, changes the UPN, changes the mail attributes or clears all proxy addresses first. .PARAMETER Row Input of a CSV that includes a minimum of Distinguished Names .PARAMETER OldDomain The domain from which are going to change the primary SMTP suffix .PARAMETER NewDomain The domain to which are going to change the primary SMTP suffix .PARAMETER SwitchUPNDomain UserPrincipalName becomes the Primary SMTP address .PARAMETER SwitchMailDomain Mail attribute becomes the Primary SMTP address .PARAMETER SwitchMsRTCSIP msRTCSIP-PrimaryUserAddress attribute becomes the Primary SMTP address .PARAMETER FirstClearAllProxyAddresses This should be used with extreme caution and is self explanatory. .PARAMETER LogOnly Run this first. Outputs log file of "what-if" .EXAMPLE Import-Csv .\CsvOfDNs.csv | Switch-AddressDomain -OldDomain "contoso.com" -NewDomain "fabrikam.com" -SwitchUPNDomain -SwitchMailDomain -LogOnly -Verbose .EXAMPLE Import-Csv .\CsvOfDNs.csv | Switch-AddressDomain -OldDomain "contoso.com" -NewDomain "fabrikam.com" -SwitchUPNDomain -SwitchMailDomain -Verbose .NOTES Input of Distinguished Names are expected in CSV with DistinguishedName header in your CSV #> [CmdletBinding(SupportsShouldProcess)] param ( [Parameter(ValueFromPipeline = $true, Mandatory = $true)] $Row, [Parameter()] [string]$OldDomain, [Parameter()] [string]$NewDomain, [Parameter()] [Switch]$SwitchUPNDomain, [Parameter()] [Switch]$SwitchMailDomain, [Parameter()] [Switch]$SwitchMsRTCSIP, [Parameter()] [Switch]$LogOnly, [Parameter()] [Switch]$FirstClearAllProxyAddresses ) Begin { if ($OldDomain -and (-not $NewDomain)) { Write-Warning "Must use NewDomain parameter when specifying OldDomain parameter" break } if ($NewDomain -and (-not $OldDomain)) { Write-Warning "Must use OldDomain parameter when specifying NewDomain parameter" break } Import-Module ActiveDirectory -Verbose:$False $OutputPath = '.\' $LogFileName = $(get-date -Format yyyy-MM-dd_HH-mm-ss) $Log = Join-Path $OutputPath ($LogFileName + "-WhatIf_Import.csv") $ErrorLog = Join-Path $OutputPath ($LogFileName + "-Error_Log.csv") } Process { ForEach ($CurRow in $Row) { $DistinguishedName = $CurRow.DistinguishedName Write-Verbose "Current Distinguishedname $DistinguishedName" $ADUser = Get-ADUser -Filter {DistinguishedName -eq $DistinguishedName} -Properties proxyAddresses, mail, ObjectGUID, DisplayName Write-Verbose "Current ADUSer $($ADUser.DisplayName)" $DisplayName = $ADuser.DisplayName $Mail = $ADuser.Mail $ObjectGUID = $ADUser.ObjectGUID $UserPrincipalName = $ADUser.UserPrincipalName $NewSIPlowercase = $null $OldPrimarySMTP = $ADUser.ProxyAddresses | Where-Object {$_ -cmatch 'SMTP:'} $NewPrimarySMTP = $OldPrimarySMTP | ForEach-Object { $_ -replace ([Regex]::Escape($OldDomain), $NewDomain) } Write-Verbose "$DisplayName `t Old PrimarySMTP address $OldPrimarySMTP" Write-Verbose "$DisplayName `t New PrimarySMTP address $NewPrimarySMTP" $OldSIP = $ADUser.ProxyAddresses | Where-Object {$_ -cmatch 'SIP:'} Write-Verbose "$DisplayName `t Old SIP address $OldSIP" $NewSIP = $OldSIP | ForEach-Object { $_ -replace ([Regex]::Escape($OldDomain), $NewDomain) } Write-Verbose "$DisplayName `t New SIP address $NewSIP" $OldPrimarySMTPTrimmed = $($OldPrimarySMTP.Substring(5)).ToLower() $NewUPNandMail = $OldPrimarySMTPTrimmed | ForEach-Object { $_ -replace ([Regex]::Escape($OldDomain), $NewDomain) } $NewAlternateFromOldPrimary = "smtp:{0}" -f $OldPrimarySMTPTrimmed Write-Verbose "$DisplayName `t NewAlternateFromOldPrimary $NewAlternateFromOldPrimary" $Address = @( $NewPrimarySMTP $NewAlternateFromOldPrimary ) Write-Verbose "$DisplayName `t AddressesPriorToSIP $Address" if ($NewSIP) { $NewSIPlowercase = $NewSIP.ToLower() $Address += $NewSIP # $Address.Add($NewSIP) } if (-not $LogOnly) { try { $errorActionPreference = 'Stop' if ($FirstClearAllProxyAddresses) { $ADUser | Set-ADUser -clear ProxyAddresses Write-Verbose "$DisplayName `t Cleared ProxyAddresses" } $params = @{} if ($SwitchUPNDomain) { $params.UserPrincipalName = $NewUPNandMail Write-Verbose "$DisplayName `t Setting UserPrincipalName $NewUPNandMail" } if ($SwitchMailDomain) { $params.EmailAddress = $NewUPNandMail Write-Verbose "$DisplayName `t Setting Mail Attribute $NewUPNandMail" } if ($params.Count -gt 0) { $ADUser | Set-ADUser @params } if ($NewSIP) { Set-ADUser -Identity $ObjectGUID -remove @{ProxyAddresses = $OldSIP} Write-Verbose "$DisplayName `t Removing Old SIP $OldSIP" } Set-ADUser -Identity $ObjectGUID -remove @{ProxyAddresses = $OldPrimarySMTP} Write-Verbose "$DisplayName `t Removing Old PrimarySMTP $OldPrimarySMTP" if ($SwitchMsRTCSIP -and $NewSIPlowercase) { Set-ADUser -Identity $ObjectGUID -Replace @{'msRTCSIP-PrimaryUserAddress' = $NewSIPlowercase} Write-Verbose "$DisplayName `t Setting msRTCSIP-PrimaryUserAddress Attribute $NewSIPlowercase" } $Address | ForEach-Object { Set-ADUser -Identity $ObjectGUID -Add @{ProxyAddresses = "$_"} Write-Verbose "$DisplayName `t Set ProxyAddress $($_)" } } catch { [PSCustomObject]@{ DisplayName = $DisplayName ObjectGUID = $ObjectGUID Error = $_ OldMail = $Mail OldUPN = $UserPrincipalName NewUPNandMail = $NewUPNandMail NewPrimarySMTP = $NewPrimarySMTP NewSIP = $NewSIP msRTCSIP = $NewSIPlowercase NewAlternate = $NewAlternateFromOldPrimary AddressesAdded = $Address -join ';' DistinguishedName = $DistinguishedName } | Export-Csv $ErrorLog -Append -NoTypeInformation -Encoding UTF8 } } else { if ($Address) { [PSCustomObject]@{ DisplayName = $DisplayName ObjectGUID = $ObjectGUID OldMail = $Mail OldUPN = $UserPrincipalName NewUPNandMail = $NewUPNandMail NewPrimarySMTP = $NewPrimarySMTP NewSIP = $NewSIP msRTCSIP = $NewSIPlowercase NewAlternate = $NewAlternateFromOldPrimary AddressesAdded = $Address -join ';' DistinguishedName = $DistinguishedName } | Export-Csv $Log -Append -NoTypeInformation -Encoding UTF8 } } } } End { } } |