Set Exam Account Passwords

Set-ExamAccount.ps1

[INT]$Count = Read-Host -Prompt "How Many Passwords?"
[INT]$Token = 1
[STRING]$Url = "https://www.dinopass.com/password/simple"

do
{
    $Password = (Get-Culture).TextInfo.ToTitleCase((Invoke-WebRequest -UseBasicParsing -Uri $Url).Content)
    #$Password = ConvertTo-SecureString $Password -AsPlainText -Force
    Set-ADAccountPassword -Reset -NewPassword $(ConvertTo-SecureString $($Password) -AsPlainText -Force) -Identity $("Exam"+$Token)
    Write-Host "Exam$Token - $Password"
    $Token++
} while($Token -le $Count)