Как мне получить все поля из LDAP?
Я пытаюсь получить определенные поля с этим кодом:
Set objRoot = GetObject("LDAP://RootDSE")
Domain = objRoot.get("defaultNamingContext")
Set cn = CreateObject("ADODB.Connection")
Set cmd = CreateObject("ADODB.Command")
Set rs = CreateObject("ADODB.Recordset")
cn.Open "Provider=ADsDSOObject;"
cmd.activeconnection = cn
strAttributes = "cn,ou,sn,mail"
cmd.CommandText = "SELECT " & strAttributes & " FROM 'LDAP://" & Domain & "' WHERE sAMAccountName = '" & VBA.Environ("UserName") & "'"
Set rs = cmd.Execute
Но как мне просмотреть все доступные поля (Атрибуты)?Кажется, что подстановочный знак звездочки возвращает только поле ADsPath.