|
|
| 欢迎来到月影社区！如果您觉得这里不错,请推荐给您的朋友们。月影社区：http://wf66.com/ |
如何通过编程为组添加成员
|
|
|
概要
本文讨论如何使用 Active Directory Service Interfaces (ADSI) 2.0 和 VBScript 通过编程将成员添加至 Site Server 3.0 Membership Directory 的某个特定组中。
更多信息
按照下列步骤将某个成员添加至 Site Server 3.0 的一个组中：
绑定要添加用户的组。
根据要添加至组（成员必须存在）的用户的公用名称 (CN) 创建新 MemberOf 对象。
将 MemberObject 属性设置为要添加用户的辨别名称 (DN)。
下列代码演示了该过程：
Dim adsMemberOf
Dim adsGroup
Dim strLdapSrv
Dim strMemberPath, strUserCn, strUserDn, _
strGroupDn, strAdmin, strAdminPwd
strLdapSrv = "LDAP://localhost:5292"
strMemberPath = ",ou=Members,o=Microsoft"
strUserCn = "cn=JohnDoe"
strUserDn = strUserCn + strMemberPath
strGroupDn = strLdapSrv +
"/o=Microsoft/ou=Groups/cn=Public"
strAdmin = "cn=Administrator,ou=Members,o=Microsoft"
strAdminPwd = "password"
'Bind to the specific group using Administrator credentials
Set adsGroup = GetObject("LDAP:")
Set adsGroup = adsGroup.OpenDSObject(strGroupDn, strAdmin, _
strAdminPwd, CLng(0))
'Create the new 'memberOf' object that will be stored in the
group
Set adsMemberOf = adsGroup.Create("memberof", strUserCn)
'Add the path to the user and store it in the 'memberObject'
property
adsMemberOf.Put "memberobject", CStr(strUserDn)
'Flush the property cache and update the directory
adsMemberOf.SetInfo
'Destroy the objects
Set adsMemberOf = Nothing
Set adsGroup = Nothing
参考
Active Directory Service Interfaces version 2.0 位于 Microsoft Developer Network Library/SDK Documentation/Platform SDK/Networking and Distributed Services 上。
关键字:prodsitesrv3
问题类型:
问题类型技术:如何通过编程为组添加成员 |
| [ 1 ] |
|
| 如何通过编程为组添加成员 num |
【打印本页
关闭】 |
|
