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
Proteja o ambiente do Active Directory protegendo as contas de usuário com privilégios mínimos e colocando-as no grupo de usuários protegidos. Saiba como limitar o escopo de autenticação e corrigir contas que talvez não estejam seguras.