将 1,000 个用户添加到安全组

描述
演示脚本创建一个名为 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.”

0 0 投票数
文章评分
订阅评论
提醒
guest
2 评论
最久
最新 最赞
内联反馈
查看所有评论
大话西游之战歌
2011年9月21日 10:44

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

2
0
希望看到您的想法,请发表评论。x
()
x