Срок действия пароля никогда не истекает (поставщик LDAP)
Чтобы включить срок действия пароля с помощью поставщика LDAP, задайте флаг ADS_UF_DONT_EXPIRE_PASSWD для атрибута userAccountControl.
Const ADS_UF_DONT_EXPIRE_PASSWD = &H10000
Set usr = GetObject("LDAP://CN=jeffsmith,OU=Sales,DC=Fabrikam,DC=Com")
flag = usr.Get("userAccountControl")
newFlag = flag Or ADS_UF_DONT_EXPIRE_PASSWD
usr.Put "userAccountControl", newFlag
usr.SetInfo
#include <activeds.h>
IADsUser *pUser;
VARIANT var;
VariantInit(&var);
HRESULT hr = S_OK;
LPWSTR adsPath = L"LDAP://serv1/cn=Jeff Smith,cn=Users,dc=Fabrikam,dc=com";
hr = ADsGetObject(adsPath, IID_IADsUser, (void**)&pUser);
hr = pUser->Get(_bstr_t("userAccountControl"), &var);
V_I4(&var) |= ADS_UF_DONT_EXPIRE_PASSWD;
hr = pUser->Put(_bstr_t("userAccountControl"), var);
hr = pUser->SetInfo();
VariantClear(&var);
hr = pUser->Release();