O usuário deve alterar a senha no próximo logon (provedor LDAP)

Para forçar um usuário a alterar sua senha no próximo logon, defina o atributo pwdLastSet como zero (0). Para remover esse requisito, defina o atributo pwdLastSet como -1. O atributo pwdLastSet não pode ser definido como qualquer outro valor, exceto pelo sistema.

O exemplo de código a seguir mostra como definir a opção "O usuário deve alterar a senha no próximo logon".

Dim usr as IADs

Set usr = GetObject("LDAP://CN=Jeff Smith,OU=Sales,DC=Fabrikam,DC=Com")
usr.Put "pwdLastSet", CLng(0)
usr.SetInfo

O exemplo de código a seguir mostra como definir a opção "O usuário deve alterar a senha no próximo logon".

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

    SetUserMustChangePassword()

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

HRESULT SetUserMustChangePassword(LPCWSTR pwszUserADsPath, 
                                  LPCWSTR pwszUsername, 
                                  LPCWSTR pwszPassword)
{
    IADs *pUser;
    HRESULT hr;

    hr = ADsOpenObject(pwszUserADsPath,
                        pwszUsername,
                        pwszPassword,
                        ADS_SECURE_AUTHENTICATION,
                        IID_IADs,
                        (void**)&pUser);

    if(SUCCEEDED(hr))
    {
        VARIANT var;
        VariantInit(&var);
        V_I4(&var) = 0;
        V_VT(&var) = VT_I4;
        hr = pUser->Put(CComBSTR("pwdLastSet"), var);
        hr = pUser->SetInfo();

        VariantClear(&var);
        pUser->Release();
    }

    return hr;
}