계정 사용 안 함(LDAP 공급자)
사용자 계정을 사용하지 않도록 설정하려면 IADsUser 인터페이스에서 AccountDisabled 속성을 TRUE로 설정합니다. WinNT 공급자와 비슷합니다. 다음 코드 예제에서는 사용자 계정을 사용하지 않도록 설정하는 방법을 보여 줍니다.
예 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
예 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();