powershell 轻松更新所有AD用户电子邮件域的脚本

Posted 2021-05-22

Param (
	[string]$oldDomain = "{OLDDOMAIN}",
	[string]$newDomain = "{NEWDOMAIN}",
	[string]$SearchBase = "{SEARCHBASE}"
)

Write-Verbose "$(Get-Date): Loading ActiveDirectory module..."
Try { Import-Module ActiveDirectory -ErrorAction Stop }
Catch { Write-Host "Unable to load Active Directory module, is RSAT installed?" -ForegroundColor Red; Exit }

Get-ADUser -Filter * -Properties givenName, Surname, EmailAddress, sAMAccountName -searchbase $SearchBase | %{
	if ($_.SurName -eq $null)
	{
		Write-Host "User Name:" $($_.sAMAccountName) "has been not been updated" -ForegroundColor Yellow
	}
	else
	{
		if ($_.EmailAddress)
		{
			if ($_.EmailAddress.EndsWith($oldDomain))
			{
				#Write-Output $($_.EmailAddress).Replace($oldDomain, $newDomain)
				Set-ADUser -Identity $_ -EmailAddress $($_.EmailAddress).Replace($oldDomain, $newDomain)
				Write-Host "User Name:" $($_.sAMAccountName) "has been updated" -ForegroundColor Green
			}
		}
		else
		{
			Write-Host "User Name:" $($_.sAMAccountName) "has not been updated" -ForegroundColor Red
		}
	}
}