Microsoft KB Archive/192781

= How To How to Programmatically Create Members in Site Server 3.0 =

Article ID: 192781

Article Last Modified on 2/18/2005

-

APPLIES TO


 * Microsoft Site Server 3.0 Standard Edition

-



This article was previously published under Q192781



SUMMARY
This article describes how to programmatically create members in Site Server 3.0 Membership Directory using Active Directory Service Interfaces (ADSI) 2.0 and VBScript.



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

