Vbscript 在active directory林中搜索

我在Active Directory中有多个域，如下所示：

pnc.com→ 根域
europe.pnc.com→ 子域
asia.pnc.com→ 子域
americas.pnc.com→ 子域

我想写一个VBScript，可以在整个林中搜索用户，并显示用户对象的位置

我曾经尝试过这样的搜索，但我必须给出准确的域名。

您需要为从属域启用：

Set rootDSE=GetObject（“LDAP://rootDSE”）
base=“”
filter=“（&（objectClass=user）（objectCategory=Person））”
attr=“区分名称”
scope=“子树”
Set conn=CreateObject（“ADODB.Connection”）
连接提供程序=“ADsDSOObject”
连接打开“Active Directory提供程序”
Set cmd=CreateObject（“ADODB.Command”）
设置cmd.ActiveConnection=conn
cmd.Properties（“Chase转介”）=&h20
cmd.CommandText=base&“；”&filter&“；”&attr&“；”&scope
设置rs=cmd.Execute
…

早在我写a的时候，默认情况下启用此功能：

“在此处添加/导入类
设置qry=newadquery
qry.Filter=“…”
qry.Attributes=数组（“sAMAccountName”，…）
设置rs=qry.Execute
...