Expiração da conta (provedor LDAP)

Para definir a data de expiração da conta, defina a propriedade IADsUser.AccountExpirationDate como o valor de data desejado. Para desabilitar a data de expiração da conta, defina o atributo accountExpires como zero. Os exemplos de código a seguir mostram como definir a data de expiração.

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;
}

Observação

O atributo accountExpires contém a data de expiração da conta. O snap-in MMC Usuários e Computadores do Active Directory exibe a data em que a conta expirará no final do evento. Ou seja, o snap-in MMC Usuários e Computadores do Active Directory exibirá a data de expiração da conta como um dia antes da data contida no atributo accountExpires .