Microsoft KB Archive/251174

= How to Programmatically Add Members to Distribution Lists =

Article ID: 251174

Article Last Modified on 2/4/2000

-

APPLIES TO


 * Microsoft Site Server 3.0 Standard Edition

-



This article was previously published under Q251174



SUMMARY
This article describes how to programmatically add a member to a specific distribution list in a Site Server 3.0 Membership directory using Active Directory Service Interfaces (ADSI) 2.5 and VBScript.



MORE INFORMATION
To add a member to a distribution list in Site Server 3.0, perform the following steps:
 * 1) Bind to the Distribution List in which you want to add the user.
 * 2) Append the Distinguished Name (DN) of the user who you want to add to the Distribution List.

The following code illustrates this procedure: Const ADS_ATTR_APPEND = 3

Dim strDistList, strLdapSrv, strRoot, strMemberPath, strUserCn, _  strUserDn, strDistListDn, strAdmin, strAdminPwd

strLdapSrv      = "LDAP://localhost:5292" strRoot         = "o=Microsoft" strMemberPath   = ",ou=Members," + strRoot strUserCn       = "cn=JohnDoe" strUserDn       = strUserCn + strMemberPath strDistListDn   = strLdapSrv + "/" + strRoot + _ "/ou=DistributionLists/cn=KmBriefList" strAdmin        = "cn=Administrator,ou=Members," + strRoot strAdminPwd     = "password"

'Bind to the specific Distribution List using Administrator credentials Set adsDistList = GetObject("LDAP:") Set adsDistList = adsDistList.OpenDSObject(strDistListDn, strAdmin, _                                   strAdminPwd, CLng(0))

' Append the new member to the ones in the distribution list adsDistList.PutEx ADS_ATTR_APPEND, "dlMember", Array(strUserDN)

'Flush the property cache and update the directory adsDistList.SetInfo

'Destroy the objects Set adsDistList = Nothing