Probably easier to just use a conditional:
Code:
function ADS_PWChangeRight($usr, $domain, $Right)
    dim $objUsr, $_, $UserFlags
    dim $ADS_UF_PASSWORD_CANT_CHANGE
    $ADS_UF_PASSWORD_CANT_CHANGE=&40
    $objUsr = getobject("WinNT://" + $domain + "/" + $usr + ",user")
    if not @error
        $UserFlags = $objUsr.Get("UserFlags")
        if not $Right
            $UserFlags = $UserFlags | $ADS_UF_PASSWORD_CANT_CHANGE
        else
            If ($UserFlags & $ADS_UF_PASSWORD_CANT_CHANGE) $UserFlags = $UserFlags ^ $ADS_UF_PASSWORD_CANT_CHANGE EndIf
        endif
        $objUsr.Put("UserFlags", $UserFlags)
        $objUsr.SetInfo
        $ADS_PWChangeRight = @error
    else
        $ADS_PWChangeRight = @error
    endif
endfunction