使用者必須在下一次登入時變更密碼 （LDAP 提供者）

若要強制使用者在下次登入時變更其密碼，請將 pwdLastSet 屬性設定為零 （0）。 若要移除這項需求，請將 pwdLastSet 屬性設定為 -1。 pwdLastSet 屬性不能設定為系統以外的任何其他值。

下列程式代碼範例示範如何設定 [用戶必須在下次登入時變更密碼] 選項。

Dim usr as IADs

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

下列程式代碼範例示範如何設定 [用戶必須在下次登入時變更密碼] 選項。

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

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