PowerShell 替换 Office365 用户主邮件地址
#首先我得获取一个名单，这个名单一部分是现有AD里面的，还有一部分是通过Excel发给我的$result=@()
$users=get-aduser -Filter {proxyaddresses -like "*old.com.au*"} -Properties proxyaddresses -SearchBase "ou=old,ou=melbourne,dc=test,dc=com,dc=au"
foreach( $user in $users){
foreach ($address in $user.proxyAddresses)
{
if($address -like "*@old.com.au*"){
$rappaddress=$address.Substring(5)
break;
}
}
$temp=@{"Full Name"=$user.Name;"Current Email"=$rappaddress}
$result+=$temp
}
#$result
$a=import-csv C:\temp\newuserList.csv | select "Full Name", "Current Email"
$oo=$result+$a
#获取名单以后，对于名单当前的用户 我希望获取他们的主邮件地址，于是写了个function
function Get-PrimarySMTP(){
Param
(
# Param1 help description
[Parameter(Mandatory=$true,
ValueFromPipelineByPropertyName=$true,
Position=0)]
]
$users
)
$pp=$null
$pp=@{'name'=$null;'primarysmtp'=$null}
$obj=New-Object -TypeName psobject -Property $pp
$result=@()
foreach($user in $users){
$info=get-aduser -Filter {name -eq $user} -Properties proxyaddresses
$primarySMTPAddress = ""
foreach ($address in $info.proxyAddresses)
{
if (($address.Length -gt 5) -and ($address.SubString(0,5) -ceq 'SMTP:') )
{
$primarySMTPAddress = $address.SubString(5)
break
}
}
$objtemp=$obj | select *
$objtemp.name=$info.Name
$objtemp.primarysmtp=$primarySMTPAddress
$result+=$objtemp
}
$result
}
#执行看看 当前用户的主SMTP地址
Get-PrimarySMTP -users $users
#对于每一个用户的每一个地址进行循环，如果是大写的那就变成小写，如果小写的刚好是我需要的那个，那就改成大写
$users=$oo | sort "full Name"|select -ExpandProperty "Full Name"
foreach($user in $users){
$info=get-aduser -Filter {name -eq $user} -Properties proxyaddresses
$filter="smtp:"+$info.GivenName+"."+$info.Surname+"@new.com"
$new=@()
foreach($address in $info.proxyaddresses){
$temp=$address
if($address -clike "SMTP*"){
$temp=$address.ToLower()
}
if($address -like $filter){
$temp=$address.Substring(0,4).toupper()+$address.Substring(4).tolower()
}
$new+=$temp
}
write-host "---------------------------" -ForegroundColor Cyan
$new
set-aduser $info.SamAccountName -Replace @{proxyaddresses=$new} -confirm
}
#然后同步一下DC
repadmin /syncall syddc01 dc=omnicom,dc=com,dc=au /d /e /a
#再看看新的的SMTP主地址
Get-PrimarySMTP -users $users
#同步到O365
import-module dirsync
Start-OnlineCoexistenceSync
#通过Azure AD 模块查询O365的邮箱看看是否已经更新了
$users | get-mailbox | select name, primarysmtpaddress
页:
[1]