Param($AN,$AP)
$root = [ADSI]''
$searcher = New-Object System.DirectoryServices.DirectorySearcher($root)
$searcher.Filter = "(&(objectClass=user)(sAMAccountName=$AN))"
$user = $searcher.FindOne()
$userPath = $user.Path
$accountToSetPW = [ADSI]$userPath
$accountToSetPW.SetPassword($AP)
$accountToSetPW.put("pwdLastSet", 0)
$accountToSetPW.SetInfo()