使用VBSCRIPT拉取AD域用户列表

最新推荐文章于 2026-02-27 00:33:45 发布

转载最新推荐文章于 2026-02-27 00:33:45 发布 · 1k 阅读

网络基础专栏收录该内容

10 篇文章

订阅专栏

本文介绍如何在IIS环境中配置并使用ADODB.Connection对象连接到LDAP，执行查询以获取用户信息，如姓名、电子邮件、电话等，并通过ASP页面展示查询结果。

修改下面两项，并在IIS下运行：
objConn.Properties("User ID") = "domain\account" 'domain account with read access to LDAP
objConn.Properties("Password") = "yyyy" 'domain account password

<%
'=========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" 'domain account with read access to LDAP
objConn.Properties("Password") = "yyyy" '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,telephonenumber,mobile,mail,company,title,department,sAMAccountName,sn,userAccountControl,msexchhidefromaddresslists FROM 'GC://"+objADsPath+"' where sAMAccountname='*' ORDER by sAMAccountname"

'=======Executre queury on LDAP for all accounts=========
Set objRS = objCom.Execute

'Loop through records and write out all information using ASP
Response.Write "<center><table>"

If Err Then
response.write "input not right"
end if

Do While Not objRS.EOF Or objRS.BOF
Response.Write "<tr>"
Response.Write "<td>"
Response.Write objRS("name")
Response.Write "</td><td>"
Response.Write objRS("mail")
Response.Write "</td><td>"
Response.Write objRS("telephonenumber")
Response.Write "</td><td>"
Response.Write objRS("mobile")
Response.Write "</td><td>"
Response.Write objRS("company")
Response.Write "</td><td>"
Response.Write objRS("department")
Response.Write "</td><td>"
Response.Write objRS("title")
Response.Write "</td><td>"
Response.Write objRS("userAccountControl")
Response.Write "</td><td>"
Response.Write objRS("sAMAccountName")
Response.Write "</td><td>"
Response.Write objRS("msexchhidefromaddresslists")
Response.Write "</td><td>"
Response.Write FormatDateTime(Date,2)
Response.Write "</td>"
Response.Write "</tr>"
objRS.MoveNext
Response.Flush
Loop

Response.Write "</table>"

'Close objects and remove from memory
objRS.Close
objConn.Close
Set objRS = Nothing
Set objConn = Nothing
Set objCom = Nothing
Set objADsPath = Nothing
Set objDomain = Nothing
%>