http://www.microsoft.com/windows2000/library/howitworks/activedirectory/adsilinks.asp

http://www.microsoft.com

rtk.htm interopt.htm ad.htm winnt.htm dev.htm ../default.htm router.gif (3874 bytes)
http://www.microsoft.com/siteserver/?RLD=259
 

Requirements

 

Creating Members

This information is adopted from the Site Server Knowledge Base.

Dim oADsContainer
Dim oADsNewUser
Dim oGuidGen
Dim strGuid
Dim strLdapPath 'The path to the ou=Members container

strLdapPath = "LDAP://localhost:5292/o=Microsoft/ou=Members"

'Instantiate the GUID Generator that comes with Site Server
'and store the GUID for use later on.

Set oGuidGen = CreateObject("Membership.GuidGen.1")
strGuid = oGuidGen.GenerateGuid

'Bind to the container in which the Member will be created.

Set oADsContainer = GetObject(strLdapPath)

'Create the new user object, note that the Create() method returns
'an interface pointer.

Set oADsNewUser = oADsContainer.Create("member", "cn=JohnDoe")
oADsNewUser.Put "givenName", "John"
oADsNewUser.Put "sn", "Doe"
oADsNewUser.Put "userPassword", "password"
oADsNewUser.Put "GUID", CStr(strGuid)
oADsNewUser.SetInfo

'Destroy the objects.

Set oGuidGen = Nothing
Set oADsNewUser = Nothing
Set oADsContainer = Nothing

 

Adding Members to Groups

Adopted from the Site Server Knowledge Base.

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