How about...


Break On

$ADS_UF_DONT_EXPIRE_PASSWD = &10000

$strDomainOrWorkgroup = @DOMAIN
$strComputer = @WKSTA
$strUser = "Jenny"

$objUser = GetObject("WinNT://" + $strDomainOrWorkgroup + "/" +
    $strComputer + "/" + $strUser + ",User")
$objUserFlags = $objUser.Get("UserFlags")
If ($objUserFlags & $ADS_UF_DONT_EXPIRE_PASSWD) = 0
    $objPasswordExpirationFlag = $objUserFlags + $ADS_UF_DONT_EXPIRE_PASSWD
    $objUser.Put ("userFlags", $objPasswordExpirationFlag)
    $objUser.SetInfo
    @SERROR ?
Else
    "Account already has the Password Never Expires Flag." ?
EndIf