Problema consulta LDAP
Publicado por Jordi (6 intervenciones) el 04/05/2017 09:20:32
Buenas,
Estoy teniendo un problema con un método que se encarga de realizar una conexión LDAP y devolver unos datos.
El error es el siguiente:
Esto se produce en la condición:
Donde da el fallo en el If.
El método entero es el siguiente
He estado mirando información sobre la conexión de LDAP, pero parece estar correcta. No entiendo el motivo del fallo. ¿Alguien me puede despejar este problema?
Gracias, un saludo
Jordi
Estoy teniendo un problema con un método que se encarga de realizar una conexión LDAP y devolver unos datos.
El error es el siguiente:
1
The search filter cannot be recognized.Esto se produce en la condición:
1
2
3
4
5
6
if not objRs.EOF then objRs.MoveFirstGetField_ADUser = objRS.Fields(sFieldAD)
else
'msgbox sMail
end if
Donde da el fallo en el If.
El método entero es el siguiente
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
public function GetField_ADUser(upe, sFieldAD)
'Set ObjFSOx = CreateObject("Scripting.FileSystemObject")
'Set myLog = ObjFSOx.OpenTextFile("C:\temp\my.log", 8, true, 0)
' myLog.WriteLine sMail
'myLog.Close
set conn = createobject("ADODB.Connection")
Set iAdRootDSE = GetObject("LDAP://RootDSE")
strDefaultNamingContext = iAdRootDSE.Get("defaultNamingContext")
Conn.Provider = "ADsDSOObject"
Conn.Open "ADs Provider"
strQueryDL = "<LDAP://" & strDefaultNamingContext & ">; (&(objectCategory=person)(objectClass=user)(sAMAccountName="& upe & "));CN," & sFieldAD & ",adspath;subtree"
set objCmd = createobject("ADODB.Command")
objCmd.ActiveConnection = Conn
objCmd.Properties("SearchScope") = 2 ' we want to search everything
objCmd.Properties("Page Size") = 1 ' and we want our records in lots of 1
objCmd.CommandText = strQueryDL
Set objRs = objCmd.Execute
if isnull(objRS) then
else
if not objRs.EOF then objRs.MoveFirstGetField_ADUser = objRS.Fields(sFieldAD)
else
'msgbox sMail
end if
end if
objRs.close Conn.close set objRS = nothing set objCmd = nothing set Conn = nothingend function
He estado mirando información sobre la conexión de LDAP, pero parece estar correcta. No entiendo el motivo del fallo. ¿Alguien me puede despejar este problema?
Gracias, un saludo
Jordi
Valora esta pregunta
0