Изменение пароля пользователем не удается изменить (поставщик WinNT)
Возможность пользователя изменить свой пароль — это разрешение, которое может быть предоставлено или запрещено. Чтобы запретить это разрешение, добавьте флаг ADS_UF_PASSWD_CANT_CHANGE в свойство userFlags объекта пользователя. Чтобы предоставить это разрешение, удалите флаг ADS_UF_PASSWD_CANT_CHANGE из свойства userFlags объекта пользователя.
Пример кода
В следующем примере кода показано, как изменить флаг ADS_UF_PASSWD_CANT_CHANGE свойства userFlags объекта пользователя.
Const ADS_UF_PASSWD_CANT_CHANGE = &H40
Sub SetUserCannotChangePassword(strDomain As String, strUser As String, strUserCred As String, strPassword As String, fUserCannotChangePassword As Boolean)
Dim oUser As IADs
strPath = "WinNT://" + strDomain + "/" + strUser
If "" <> strUserCred Then
Dim dso As IADsOpenDSObject
' Bind to the group with the specified user name and password.
Set dso = GetObject("WinNT:")
Set oUser = dso.OpenDSObject(strPath, strUserCred, strPassword, 1)
Else
' Bind to the group with the current credentials.
Set oUser = GetObject(strPath)
End If
lUserFlags = oUser.Get("userFlags")
If fUserCannotChangePassword Then
lUserFlags = lUserFlags Or ADS_UF_PASSWD_CANT_CHANGE
Else
lUserFlags = lUserFlags And Not ADS_UF_PASSWD_CANT_CHANGE
End If
' Modify the userFlags property.
oUser.Put "userFlags", lUserFlags
' Commit the changes to the server.
oUser.SetInfo
End Sub
В следующем примере кода показано, как изменить флаг ADS_UF_PASSWD_CANT_CHANGE свойства userFlags объекта пользователя.
//***************************************************************************
// SetUserCannotChangePassword()
//***************************************************************************
HRESULT SetUserCannotChangePassword(LPCWSTR pwszDomain,
LPCWSTR pwszUser,
LPCWSTR pwszUserCred,
LPCWSTR pwszPassword,
BOOL fCannotChangePassword)
{
if(NULL == pwszDomain ||
NULL == pwszUser)
{
return E_INVALIDARG;
}
HRESULT hr;
IADs *pads;
CComBSTR sbstrADsPath = L"WinNT://";
sbstrADsPath += pwszDomain;
sbstrADsPath += "/";
sbstrADsPath += pwszUser;
hr = ADsOpenObject( sbstrADsPath,
pwszUserCred,
pwszPassword,
ADS_SECURE_AUTHENTICATION,
IID_IADs,
(void**)&pads);
if(SUCCEEDED(hr))
{
CComBSTR sbstrPropName = "userFlags";
CComVariant svar;
hr = pads->Get(sbstrPropName, &svar);
if(SUCCEEDED(hr))
{
if(fCannotChangePassword)
{
svar.lVal |= ADS_UF_PASSWD_CANT_CHANGE;
}
else
{
svar.lVal &= ~ADS_UF_PASSWD_CANT_CHANGE;
}
// Perform the change.
hr = pads->Put(sbstrPropName, svar);
// Commit the change.
hr = pads->SetInfo();
}
pads->Release();
}
return hr;
}