How To How to Programmatically Create Members in Site Server 3.0

MORE INFORMATION

When you create a new Member object, the following three properties must be set:

• objectClass
• cn (Common Name)
• GUID

The first two, objectClass and cn, are set when the Create() method is called. The third, GUID, must explicitly be set. If these properties are not set properly, the call to SetInfo() will fail and the new Member object will not be created.

The following code demonstrates adding a member programmatically:

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