Как проверить, отключена ли учетная запись пользователя в 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