Expiración de la cuenta (proveedor LDAP)

Para establecer la fecha de expiración de la cuenta, establezca la propiedad IADsUser.AccountExpirationDate en el valor de fecha deseado. Para deshabilitar la fecha de expiración de la cuenta, establezca el atributo accountExpires en cero. En los ejemplos de código siguientes se muestra cómo establecer la fecha de expiración.

Public Sub SetUserAccountExpirationDate(User As IADsUser, ExpirationDate As Date)
    If 0 = ExpirationDate Then
        ' Disable the account expiration date.
        User.Put "accountExpires", 0
    Else
        ' Set the new account expiration date.
        User.AccountExpirationDate = ExpirationDate
    End If
    
    User.SetInfo
 
End Sub

/***************************************************************************

    SetUserAccountExpirationDate()

***************************************************************************/

HRESULT SetUserAccountExpirationDate(IADsUser *pUser, DATE date)
{
    if(!pUser) 
    {
        return E_INVALIDARG;
    }

    HRESULT hr;

    if(!date || date < 0) 
    {
        // Account never expires. Set the accountExpires attribute to zero.
        VARIANT var;
        VariantInit(&var);
        V_I4(&var) = 0;
        V_VT(&var) = VT_I4;
        
        hr = pUser->Put(CComBSTR("accountExpires"), var); 

        VariantClear(&var);
    }
    else 
    {
        // Account expires on date.
        hr = pUser->put_AccountExpirationDate(date); 
    }

    if(S_OK == hr)
    {
        hr = pUser->SetInfo();
    }

    return hr;
}

Nota

El atributo accountExpires contiene la fecha de expiración de la cuenta. El complemento MMC de Usuarios y equipos de Active Directory muestra la fecha de expiración de la cuenta al final. Es decir, el complemento MMC de Usuarios y equipos de Active Directory mostrará la fecha de expiración de la cuenta como un día anterior a la fecha contenida en el atributo accountExpires.