Guest User

Untitled

a guest
Sep 13th, 2018
93
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.93 KB | None | 0 0
  1. Import-Module ActiveDirectory -ErrorAction SilentlyContinue
  2. $password = $args.Get(0).ToString()
  3. $Result = Get-ADUser ((Search-ADAccount -LockedOut).SamAccountName) | Select-Object SamAccountName,Surname,GivenName,DistinguishedName | ConvertTo-Html | Out-String
  4. $strFileName = "c:\MRC\lockedout.txt"
  5. $path = "c:\MRC"
  6.  
  7. If ($Result) {
  8. If(!(test-path $path))
  9. {
  10. New-Item -ItemType Directory -Force -Path $path
  11. }
  12.  
  13. $username = 'user3091@mysmtp.fr'
  14.  
  15. New-Item $strFileName -ItemType file -Force
  16. $secpasswd = ConvertTo-SecureString $password -AsPlainText -Force
  17. $mycreds = New-Object System.Management.Automation.PSCredential ($username, $secpasswd)
  18.  
  19. Send-MailMessage -Credential $mycreds -To info@monservice.cloud -From user3091@mysmtp.fr -Subject "Comptes AD Locked !" -Body $Result -BodyAsHtml -SmtpServer srv359.mysmtp.fr
  20. } elseif (Test-Path $strFileName) {
  21. Remove-Item $strFileName }
Add Comment
Please, Sign In to add comment