vbscript - 使用 VBScript/WSH 查询 Active Directory 并导出

Question

我想使用 VBScript 或 WSH 脚本查询 AD 服务器以获取某些字段

这些字段

• DN
• userid
• mail
• company
• displayName

并将字段导出/输出到文本文件。

我怎样才能做到这一点？

我来自 Linux 背景，需要这个，因为运行脚本的计算机正在运行 Windows

使用Linux，

`ldapsearch -x -h hostserver -b "cn=contacts,dc=support,dc=com" CN="name"`

Answer 1

通常的方法是使用 ADO 和 LDAP query检索有关 AD 对象的信息:

Set rootDSE = GetObject("LDAP://RootDSE")

base   = "<LDAP://" & rootDSE.Get("defaultNamingContext") & ">"
filter = "(&(objectClass=user)(objectCategory=Person))"
attr   = "distinguishedName,userid,mail,company,displayName"
scope  = "subtree"

Set conn = CreateObject("ADODB.Connection")
conn.Provider = "ADsDSOObject"
conn.Open "Active Directory Provider"

Set cmd = CreateObject("ADODB.Command")
Set cmd.ActiveConnection = conn
cmd.CommandText = base & ";" & filter & ";" & attr & ";" & scope

Set rs = cmd.Execute
Do Until rs.EOF
  'do stuff with rs.Fields(fieldname).Value
  rs.MoveNext
Loop
rs.Close

conn.Close

正如你所看到的，涉及到很多样板代码，所以我写了 this class (ADQuery) 以简化处理。自述文件包含一些示例。

如果您已经知道对象的可分辨名称，您也可以像这样直接检索它:

dn = "CN=Joe User,OU=Users,DC=example,DC=com"
Set user = GetObject("LDAP://" & dn)
WScript.Echo user.Get("displayName")
WScript.Echo user.Get("mail")
...