Работаю с LDAP-запросом пользователей Active Directory

Как проверить, отключена ли учетная запись пользователя в ActiveDirectory?


Const ADS_SCOPE_SUBTREE = 2
Set objCommand = CreateObject("ADODB.Command")
Set objConnection = CreateObject("ADODB.Connection")
objConnection.Provider = "ADsDSOObject"
objConnection.Open "Active Directory Provider"
Set objCommand.ActiveConnection = objConnection
objCommand.Properties("Page Size") = 1000
objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE
objCommand.CommandText = "SELECT Name, ADsPath FROM 'LDAP://admkrsk.ru/DC=domain,DC=ru' WHERE objectCategory = 'Person' AND objectClass= 'user'"

Set ADRecordSet = objCommand.Execute
If Not ADRecordSet.BOF Then
ADRecordSet.MoveFirst
End If
Do While (not ADRecordSet.EOF)
ADstrADsPath = ADRecordset.Fields("ADsPath")

If trim(ADRecordset.Fields("Name"))<>"" Then

Set ADUser = GetObject(ADstrADsPath)
ADx_FIO =trim(ADUser.cn)

..................................

..................................

End If
ADRecordSet.MoveNext
Loop
ADRecordSet.Close