标题：将 1,000 个用户添加到安全组
出处：gOxiA=苏繁=SuFan Blog
时间：Sat, 09 Jul 2005 09:25:12 +0000
作者：gOxiA
地址：https://goxia.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 = 3Set 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.SetInfoFor i = 1 To 1000strDN = ",cn=Users," & objRootDSE.defaultNamingContext objGroup.PutEx ADS_PROPERTY_APPEND, "member", _   Array("cn=UserNo" & i & strDN) objGroup.SetInfoNextWScript.Echo "Group1 created and 1000 Users added to the group."




Generated by Bo-blog 2.1.1 Release