Microsoft KB Archive/251176
Article ID: 251176
Article Last Modified on 2/4/2000
- Microsoft Site Server 3.0 Standard Edition
This article was previously published under Q251176
This article describes how to programmatically remove a member from a specific distribution list in Site Server 3.0 Membership Directory using Active Directory Service Interfaces (ADSI) 2.5 and VBScript.
To remove a member from a distribution list in Site Server 3.0, perform the following steps:
- Bind to the Distribution List in which you want to remove the user.
- Remove the Distinguished Name (DN) of the user you want to remove from to the Distribution List.
The following code illustrates this procedure:
Const ADS_ATTR_DELETE = 4 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)) ' Remove the member from the ones in the distribution list adsDistList.PutEx ADS_ATTR_DELETE, "dlMember", Array(strUserDN) 'Flush the property cache and update the directory adsDistList.SetInfo 'Destroy the objects Set adsDistList = Nothing
SDK Documentation / Platform SDK / Networking and Directory Services / Active Directory Service Interfaces
Keywords: kbhowto KB251176