asp-classic – 使用VBScript查询Active Directory

发布时间：2020-12-16 06:51:56 所属栏目：asp.Net 来源：网络整理

导读：我想使用VBScript(经典ASP)查询 Active Directory. 我怎么能做到这一点？解决方法要查看OU的所有成员,请尝试以下操作… Set objOU = GetObject("LDAP://OU=YourOU,DC=YourDomain,DC=com")For each objMember in ObjOU ' get all the members' ' do somethi

我想使用VBScript(经典ASP)查询 Active Directory.
我怎么能做到这一点？

解决方法

要查看OU的所有成员,请尝试以下操作…

Set objOU = GetObject("LDAP://OU=YourOU,DC=YourDomain,DC=com")
For each objMember in ObjOU  ' get all the members'

    ' do something'

Next

要对DN进行自定义搜索,请尝试以下操作…

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));distinguishedName,adspath;subtree"
set objCmd = createobject("ADODB.Command")
objCmd.ActiveConnection = Conn
objCmd.Properties("SearchScope") = 2 ' we want to search everything
objCmd.Properties("Page Size") = 500 ' and we want our records in lots of 500 

objCmd.CommandText = strQueryDL
Set objRs = objCmd.Execute

While Not objRS.eof

    ' do something with objRS.Fields("distinguishedName")'
    objRS.MoveNext
Wend

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!