AutoPasswordExtend.ps1

Function Reset-PasswordAge {
    
    Param (
        [Parameter (Mandatory=$True)] [String] $SamAccountName,
        [String] $DNSDomainName = $ENV:USERDNSDOMAIN,
        [Bool] $Force
    )
    Try 
    {
        # Get the user properties from AD
        $ADUser = Get-ADUser -Identity $SamAccountName -Properties Name,pwdLastSet,PasswordNeverExpires -Server $DNSDomainName
    }
    Catch 
    {
         Write-Host "User ($SamAccountName) not found. Aborting." -ForegroundColor Red
         Return
    }

    $Culture = Get-Culture

    # Get todays date and format it correctly.
    $Today = Get-Date -Format ($Culture.DateTimeFormat.FullDateTimePattern)

    # Get the date of the last password change and format it correctly.
    $LastChange = Get-Date -Date ([DateTime]::FromFileTime($ADUser.pwdLastSet)) -Format ($Culture.DateTimeFormat.FullDateTimePattern)
    Write-Host "Last Password ($SamAccountName) change on: $LastChange" -ForegroundColor Yellow

    If ($Force -eq $true) 
    {
        # Set the password to expired, must be done first.
        $ADUser.pwdLastSet = 0
        # Set the account so that the password expires.
        $ADUser.PasswordNeverExpires = $False
        # Save the changes
        Set-ADUser -Instance $ADUser -Server $DNSDomainName

        # Reset the date of the last password change to today.
        $ADUser.pwdLastSet = -1
        # Save the changes
        Set-ADUser -Instance $ADUser -Server $DNSDomainName

        # Inform the user of the script that the account was changed.
        Write-Host "Last Password ($SamAccountName) changed to: $Today" -ForegroundColor Green
    }    
}


$users = Import-Excel -Path '.\PasswordExpirationPlan.xlsx'
[Int]$weekNum = [Int](Get-Date).DayOfYear / 7
[Array]$ResetThisWeek
foreach($user in $users){
    if($user.Week -eq $weekNum){
        Reset-PasswordAge -SamAccountName $user.SamAccountName -Force $true
        [Array]$ResetThisWeek += $user
    }
}

Export-Excel -Path .\Users.xlsx -InputObject $ResetThisWeek

Send-MailMessage -SmtpServer <SMTP_RELAY> -to <your email> -From <an email> -Subject "Password Expirations" -Body "The attached users have had their expirations reset." -Attachments .\Users.xlsx 
Remove-Item -Path .\Users.xlsx