Expiration du compte (fournisseur LDAP)

Pour définir la date d’expiration du compte, définissez la propriété IADsUser.AccountExpirationDate sur la valeur de date souhaitée. Pour désactiver la date d’expiration du compte, définissez l’attribut accountExpires sur zéro. Les exemples de code suivants montrent comment définir la date d’expiration.

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

Notes

L’attribut accountExpires contient la date d’expiration du compte. Le composant logiciel enfichable MMC Utilisateurs et ordinateurs Active Directory affiche la date d’expiration du compte à la fin de. Autrement dit, le composant logiciel enfichable MMC Utilisateurs et ordinateurs Active Directory affiche la date d’expiration du compte un jour avant la date contenue dans l’attribut accountExpires.