-----提供AD\Exchange\Lync\Sharepoint\CRM\SC\O365等微软产品实施及外包，QQ:185426445.电话18666943750
创新互联公司坚持“要么做到，要么别承诺”的工作理念，服务领域包括：成都网站设计、网站制作、企业官网、英文网站、手机端网站、网站推广等服务，满足客户于互联网时代的
定安网站设计、移动媒体设计的需求，帮助企业找到有效的互联网解决方案。努力成为您成熟可靠的网络建设合作伙伴！
需求：根据要求对集团AD域及下属3个子域的所有AD账号进行统计，查询所有锁定的账号，解锁，并每天早上发送邮件到指向邮箱。（之前三十九的基础上略作调整，只发一封邮件即可）
Remove-Item C:\get_locked_user\ -Recurse -Force
if(!(test-path C:\get_locked_user)) {New-Item C:\get_locked_user -type directory}
Import-Module activedirectory
$yuntcloud_Lockeduser=Search-ADAccount -LockedOut -SearchBase "dc=yuntcloud,dc=com" -server dc01|select name,samaccountname
$aaa_Lockeduser=Search-ADAccount -LockedOut -SearchBase "dc=aaa,dc=yuntcloud,dc=com" -server aaaDC1|select name,samaccountname
$bbb_Lockeduser=Search-ADAccount -LockedOut -SearchBase "dc=bbb,dc=yuntcloud,dc=com" -server bbbdc1|select name,samaccountname
$ccc_Lockeduser=Search-ADAccount -LockedOut -SearchBase "dc=ccc,dc=yuntcloud,dc=com" -server cccDC1|select name,samaccountname
#send email
$UserName = "test01@yuntcloud.com" #定义管理员账户名称
$Password = ConvertTo-SecureString "Anvf20170708" -AsPlainText –Force
$cred = New-Object System.Management.Automation.PSCredential($UserName,$Password)
$nFrom="test01@yuntcloud.com"
$nTo="zhouping@yuntcloud.com"
$lockeduser=@()
#Unlock yuntcloud Locked user
if ([string]::IsNullOrEmpty($($yuntcloud_Lockeduser|%{$_.name})))
{
Write-Host "yuntcloud no locked user"
Start-Sleep 5
Set-Content C:\get_locked_user\locked.txt -Value "yuntcloud no locked user"
#Send-MailMessage -From $nFrom -To $nTo -Subject "yuntcloud no locked user" -Body "yuntcloud no locked user" -Credential $cred -SmtpServer "mail.yuntcloud.com" -Encoding ([System.Text.Encoding]::UTF8)
}
else
{
Write-Host "yuntcloud Locked user"
foreach($i in $yuntcloud_Lockeduser)
{
Write-Host $i.name
$lockeduser+=$i
}
Start-Sleep 5
Search-ADAccount -LockedOut -SearchBase "dc=yuntcloud,dc=com" -server dc01 |Unlock-ADAccount
Write-Host "yuntcloud all locked account were unlocked"
$lockeduser |Export-Csv -Path C:\get_locked_user\yuntcloud_lockeduser.csv -NoTypeInformation -Encoding utf8
add-Content C:\get_locked_user\locked.txt -Value "yuntcloud Locked user"
add-Content C:\get_locked_user\locked.txt -Value $($yuntcloud_Lockeduser|%{$_.name})
#Send-MailMessage -From $nfrom -To $nto -Subject "yuntcloud locked user" -Body "yuntcloud locked user" -Attachments "C:\get_locked_user\yuntcloud_lockeduser.csv" -Credential $cred -SmtpServer mail.yuntcloud.com -Encoding ([System.Text.Encoding]::UTF8)
Start-Sleep 3
}
#Unlock aaa.yuntcloud.com Locked user
$lockeduser=@()
if ([string]::IsNullOrEmpty($($aaa_Lockeduser|%{$_.name})))
{
Write-Host "aaa no locked user"
Start-Sleep 5
add-Content C:\get_locked_user\locked.txt -Value "aaa no locked user"
#Send-MailMessage -From $nfrom -To $nto -Subject "aaa no locked user" -Body "aaa no locked user" -Credential $cred -SmtpServer mail.yuntcloud.com -Encoding ([System.Text.Encoding]::UTF8)
}
else
{
Write-Host "aaa Locked user"
foreach($i in $aaa_Lockeduser)
{
Write-Host $i.name
$lockeduser+=$i
}
Start-Sleep 5
Search-ADAccount -LockedOut -SearchBase "dc=aaa,dc=yuntcloud,dc=com" -server aaaDC1 |Unlock-ADAccount
Write-Host "aaa all locked account were unlocked"
$lockeduser |Export-Csv -Path C:\get_locked_user\aaa_lockeduser.csv -NoTypeInformation -Encoding utf8
add-Content C:\get_locked_user\locked.txt -Value "aaa Locked user"
add-Content C:\get_locked_user\locked.txt -Value $($aaa_Lockeduser|%{$_.name})
#Send-MailMessage -From $nfrom -To $nto -Subject "aaa locked user" -Body "aaa locked user" -Attachments "C:\get_locked_user\aaa_lockeduser.csv" -Credential $cred -SmtpServer mail.yuntcloud.com -Encoding ([System.Text.Encoding]::UTF8)
Start-Sleep 3
}
#Unlock bbb.yuntcloud.com Locked user
$lockeduser=@()
if ([string]::IsNullOrEmpty($($bbb_Lockeduser|%{$_.name})))
{
Write-Host "bbb no locked user"
Start-Sleep 5
add-Content C:\get_locked_user\locked.txt -Value "bbb no locked user"
#Send-MailMessage -From $nfrom -To $nto -Subject "bbb no locked user" -Body "bbb no locked user" -Credential $cred -SmtpServer mail.yuntcloud.com -Encoding ([System.Text.Encoding]::UTF8)
}
else
{
Write-Host "bbb Locked user"
foreach($i in $bbb_Lockeduser)
{
Write-Host $i.name
$lockeduser+=$i
}
Start-Sleep 5
Search-ADAccount -LockedOut -SearchBase "dc=bbb,dc=yuntcloud,dc=com" -server bbbdc1 |Unlock-ADAccount
Write-Host "bbb all locked account were unlocked"
$lockeduser |Export-Csv -Path C:\get_locked_user\bbb_lockeduser.csv -NoTypeInformation -Encoding utf8
add-Content C:\get_locked_user\locked.txt -Value "bbb Locked user"
add-Content C:\get_locked_user\locked.txt -Value $($bbb_Lockeduser|%{$_.name})
#Send-MailMessage -From $nfrom -To $nto -Subject "bbb locked user" -Body "bbb locked user" -Attachments "C:\get_locked_user\bbb_lockeduser.csv" -Credential $cred -SmtpServer mail.yuntcloud.com -Encoding ([System.Text.Encoding]::UTF8)
Start-Sleep 3
}
#Unlock ccc.yuntcloud.com Locked user
$lockeduser=@()
if ([string]::IsNullOrEmpty($($ccc_Lockeduser|%{$_.name})))
{
Write-Host "ccc no locked user"
Start-Sleep 5
add-Content C:\get_locked_user\locked.txt -Value "ccc no locked user"
#Send-MailMessage -From $nfrom -To $nto -Subject "ccc no locked user" -Body "ccc no locked user" -Credential $cred -SmtpServer mail.yuntcloud.com -Encoding ([System.Text.Encoding]::UTF8)
}
else
{
Write-Host "ccc Locked user"
foreach($i in $ccc_Lockeduser)
{
Write-Host $i.name
$lockeduser+=$i
}
Start-Sleep 5
Search-ADAccount -LockedOut -SearchBase "dc=ccc,dc=yuntcloud,dc=com" -server cccDC1 |Unlock-ADAccount
Write-Host "ccc all locked account were unlocked"
$lockeduser |Export-Csv -Path C:\get_locked_user\ccc_lockeduser.csv -NoTypeInformation -Encoding utf8
add-Content C:\get_locked_user\locked.txt -Value "ccc Locked user"
add-Content C:\get_locked_user\locked.txt -Value $($ccc_Lockeduser|%{$_.name})
#Send-MailMessage -From $nfrom -To $nto -Subject "ccc locked user" -Body "ccc locked user" -Attachments "C:\get_locked_user\ccc_lockeduser.csv" -Credential $cred -SmtpServer mail.yuntcloud.com -Encoding ([System.Text.Encoding]::UTF8)
Start-Sleep 3
}
$body=get-Content C:\get_locked_user\locked.txt|Out-String
if (((Test-Path C:\get_locked_user\yuntcloud_lockeduser.csv) -eq $true) -and ((Test-Path C:\get_locked_user\aaa_lockeduser.csv) -eq $false) -and ((Test-Path C:\get_locked_user\bbb_lockeduser.csv) -eq $false) -and ((Test-Path C:\get_locked_user\ccc_lockeduser.csv) -eq $false))
{
Send-MailMessage -From $nfrom -To $nto -Subject "yuntcloud 4 domains all locked user information total" -Body $body -Attachments "C:\get_locked_user\yuntcloud_lockeduser.csv" -Credential $cred -SmtpServer mail.yuntcloud.com -Encoding ([System.Text.Encoding]::UTF8)
}
elseif (((Test-Path C:\get_locked_user\yuntcloud_lockeduser.csv) -eq $true) -and ((Test-Path C:\get_locked_user\aaa_lockeduser.csv) -eq $true) -and ((Test-Path C:\get_locked_user\bbb_lockeduser.csv) -eq $false) -and ((Test-Path C:\get_locked_user\ccc_lockeduser.csv) -eq $false))
{
Send-MailMessage -From $nfrom -To $nto -Subject "yuntcloud 4 domains all locked user information total" -Body $body -Attachments "C:\get_locked_user\yuntcloud_lockeduser.csv","C:\get_locked_user\aaa_lockeduser.csv" -Credential $cred -SmtpServer mail.yuntcloud.com -Encoding ([System.Text.Encoding]::UTF8)
}
elseif (((Test-Path C:\get_locked_user\yuntcloud_lockeduser.csv) -eq $true) -and ((Test-Path C:\get_locked_user\aaa_lockeduser.csv) -eq $true) -and ((Test-Path C:\get_locked_user\bbb_lockeduser.csv) -eq $true) -and ((Test-Path C:\get_locked_user\ccc_lockeduser.csv) -eq $false))
{
Send-MailMessage -From $nfrom -To $nto -Subject "yuntcloud 4 domains all locked user information total" -Body $body -Attachments "C:\get_locked_user\yuntcloud_lockeduser.csv","C:\get_locked_user\aaa_lockeduser.csv","C:\get_locked_user\bbb_lockeduser.csv" -Credential $cred -SmtpServer mail.yuntcloud.com -Encoding ([System.Text.Encoding]::UTF8)
}
elseif (((Test-Path C:\get_locked_user\yuntcloud_lockeduser.csv) -eq $true) -and ((Test-Path C:\get_locked_user\aaa_lockeduser.csv) -eq $true) -and ((Test-Path C:\get_locked_user\bbb_lockeduser.csv) -eq $true) -and ((Test-Path C:\get_locked_user\ccc_lockeduser.csv) -eq $true))
{
Send-MailMessage -From $nfrom -To $nto -Subject "yuntcloud 4 domains all locked user information total" -Body $body -Attachments "C:\get_locked_user\yuntcloud_lockeduser.csv","C:\get_locked_user\aaa_lockeduser.csv","C:\get_locked_user\bbb_lockeduser.csv","C:\get_locked_user\ccc_lockeduser.csv" -Credential $cred -SmtpServer mail.yuntcloud.com -Encoding ([System.Text.Encoding]::UTF8)
}
else
{
Send-MailMessage -From $nfrom -To $nto -Subject "yuntcloud 4 domains all locked user information total" -Body $body -Credential $cred -SmtpServer mail.yuntcloud.com -Encoding ([System.Text.Encoding]::UTF8)
}另外有需要云服务器可以了解下创新互联scvps.cn，海内外云服务器15元起步，三天无理由+7*72小时售后在线，公司持有idc许可证，提供“云服务器、裸金属服务器、高防服务器、香港服务器、美国服务器、虚拟主机、免备案服务器”等云主机租用服务以及企业上云的综合解决方案，具有“安全稳定、简单易用、服务可用性高、性价比高”等特点与优势，专为企业上云打造定制，能够满足用户丰富、多元化的应用场景需求。
网站名称：Powershell管理系列（四十）PowerShell查询-创新互联
网站路径：
http://www.cdkjz.cn/article/cships.html
