Conta desativada (provedor LDAP)
Para desabilitar uma conta de usuário, defina a propriedade AccountDisabled como TRUE na interface IADsUser . Isso é semelhante ao provedor WinNT. Os exemplos de código a seguir mostram como desabilitar uma conta de usuário.
Exemplo 1
Dim usr As IADsUser
On Error GoTo Cleanup
Set usr = GetObject("LDAP:// CN=JeffSmith, OU=Sales, DC=Fabrikam, DC=Com")
usr.AccountDisabled = TRUE ' Disable the account.
usr.SetInfo
Cleanup:
If (Err.Number<>0) Then
MsgBox("An error has occurred. " & Err.Number)
End If
Set usr = Nothing
Exemplo 2
IADsUser *pUser = NULL;
HRESULT hr = S_OK;
LPWSTR adsPath;
adsPath=L"LDAP://serv1/cn=Jeff Smith,cn=Users, dc=Fabrikam, dc=com";
hr = ADsGetObject(adsPath,IID_IADsUser,(void**)&pUser);
if(FAILED(hr)){return;}
hr = pUser->put_AccountDisabled(true);
hr = pUser->SetInfo();