<![CDATA[gOxiA=苏繁=SuFan Blog]]> https://maytide.net/index.php zh-cn https://maytide.net/read.php/861.htm <![CDATA[将 1,000 个用户添加到安全组]]> gOxiA <sufan_cn@msn.com> Sat, 09 Jul 2005 01:25:12 +0000 https://maytide.net/read.php/861.htm

描述

演示脚本创建一个名为 Group1 的安全组，并且将一千个用户（UserNo1 到 UserNo10000）添加到该组。此脚本不可用于生产环境。

有关使用 ADSI 创建对象的更多信息，请单击 此处。


支持平台

Windows Server 2003

是

Windows XP

是

Windows 2000

是

Windows NT 4.0

是，需要安装 Active Directory Client Extensions


脚本代码
Const ADS_PROPERTY_APPEND = 3
Set objRootDSE = GetObject("LDAP://rootDSE")
Set objContainer = GetObject("LDAP://cn=Users," & _
                              objRootDSE.Get("defaultNamingContext"))
Set objGroup = objContainer.Create("Group", "cn=Group1")
objGroup.Put "sAMAccountName","Group1"
objGroup.SetInfo
For i = 1 To 1000
strDN = ",cn=Users," & objRootDSE.defaultNamingContext
 objGroup.PutEx ADS_PROPERTY_APPEND, "member", _
   Array("cn=UserNo" & i & strDN)
 objGroup.SetInfo
Next
WScript.Echo "Group1 created and 1000 Users added to the group."

]]>