Active directory 全局目录的自连接查询

Active directory 全局目录的自连接查询,active-directory,Active Directory,我需要通过使用经典ASP查询全局目录来检索有关员工(strUser变量存储其sAMAccountName)ID及其经理的信息。这项工作: '=========Account and connection string information for LDAP======= Set objDomain = GetObject ("GC://RootDSE") objADsPath = objDomain.Get("defaultNamingContext") Set objDomain = Not

我需要通过使用经典ASP查询全局目录来检索有关员工(strUser变量存储其sAMAccountName)ID及其经理的信息。这项工作:

'=========Account and connection string information for LDAP=======
Set objDomain = GetObject ("GC://RootDSE")
objADsPath = objDomain.Get("defaultNamingContext")
Set objDomain = Nothing
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.provider ="ADsDSOObject"
objConn.Properties("User ID") = "..." 'domain account with read access to LDAP
objConn.Properties("Password") =  "..." 'domain account password
objConn.Properties("Encrypt Password") = True
objConn.open "Active Directory Provider"
Set objCom = CreateObject("ADODB.Command")
Set objCom.ActiveConnection = objConn
objCom.CommandText ="select name, givenName, sn, distinguishedName, manager, telephonenumber, mobile, mail, company, title, department, sAMAccountName,userAccountControl, msexchhidefromaddresslists FROM 'GC://"+objADsPath+"'  where sAMAccountname='"+strUser+"'"

'=======Executre query on LDAP for all accounts=========
Set objRS = objCom.Execute
现在,如果我尝试为GC使用别名,例如: 从'GC://'+objADsPath+“'开始,作为e 我进入一个无限循环

我需要的是一种在全局目录上进行自联接查询的方法(如e代表员工,m代表经理),其中e.manager=m.DiscriminatedName,换句话说,自联接的关系,即员工的经理是经理的可分辨名称

如何做到这一点

我也将感谢任何提示文件


非常感谢

另一种有效的方法是在员工详细信息的外部查询中嵌入经理详细信息的第二个查询

objCom2.CommandText ="select sAMAccountName, name, givenName, sn, distinguishedName, manager FROM 'GC://"+objADsPath+"' where distinguishedName='" + manager + "'"

我仍然想知道GC自连接查询是否可行。

另一种有效的方法是在员工详细信息的外部查询中嵌入第二个经理详细信息查询

objCom2.CommandText ="select sAMAccountName, name, givenName, sn, distinguishedName, manager FROM 'GC://"+objADsPath+"' where distinguishedName='" + manager + "'"
我仍然想知道GC自连接查询是否可行