|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
当然了,现在国内CRM厂商的产品与其说是CRM,但从至少从我的角度分析上来看,充其量只是一个大型的进销存而已了,了解尚浅,不够胆详评,这里只提技术问题编程
提要
本文会商怎样利用ActiveDirectoryServiceInterfaces(ADSI)2.0和VBScript经由过程编程将成员增加至SiteServer3.0MembershipDirectory的某个特定组中。
更多信息
依照以下步骤将某个成员增加至SiteServer3.0的一个组中:
绑定要增加用户的组。
依据要增加至组(成员必需存在)的用户的公用称号(CN)创立新MemberOf工具。
将MemberObject属性设置为要增加用户的分辨称号(DN)。
以下代码演示了该历程:
DimadsMemberOf
DimadsGroup
DimstrLdapSrv
DimstrMemberPath,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"
BindtothespecificgroupusingAdministratorcredentials
SetadsGroup=GetObject("LDAP:")
SetadsGroup=adsGroup.OpenDSObject(strGroupDn,strAdmin,_
strAdminPwd,CLng(0))
CreatethenewmemberOfobjectthatwillbestoredinthe
group
SetadsMemberOf=adsGroup.Create("memberof",strUserCn)
AddthepathtotheuserandstoreitinthememberObject
property
adsMemberOf.Put"memberobject",CStr(strUserDn)
Flushthepropertycacheandupdatethedirectory
adsMemberOf.SetInfo
Destroytheobjects
SetadsMemberOf=Nothing
SetadsGroup=Nothing
参考
ActiveDirectoryServiceInterfacesversion2.0位于MicrosoftDeveloperNetworkLibrary/SDKDocumentation/PlatformSDK/NetworkingandDistributedServices上。
关头字:prodsitesrv3
成绩范例:
成绩范例手艺:
ASP脚本是采用明文(plaintext)方式来编写的。 |
|