ADSIでユーザー表示名の部分一致検索を行うには

    Dim cn As ADODB.Connection
    Dim cm As ADODB.Command
    Dim rs As ADODB.Recordset
    Dim SQL As String
    Dim ret

    Set cn = New ADODB.Connection
    cn.Open "Provider=ADsDSOObject;"

    Set cm = New ADODB.Command
    cm.ActiveConnection = cn
    SQL = "Select * "
    SQL = SQL & " from 'LDAP://ad-server' "
    
    'OK
    SQL = SQL & " where objectClass = 'user' and displayName = 'TestUser'"
    'NG
    'SQL = SQL & " where objectClass = 'user' and displayName like '%est%'"
    
    cm.CommandText = SQL
    cm.Properties("Page Size") = 1000
    cm.Properties("Timeout") = 300
    cm.Properties("Searchscope") = 2
    cm.Properties("Cache Results") = False
    
    Set rs = cm.Execute
    rs.MoveFirst
    
    Do Until rs.EOF
        Debug.Print rs(0).Value
        rs.MoveNext
    Loop