当前位置：首页 -> 技术开发 -> ASP专区 -> 用ASP代码创建EXCHANGE2000用户（续）

用ASP代码创建EXCHANGE2000用户（续）

时间： 2021-07-31 作者：daque

前段功夫写出一个步调，不过不完备，不许确定能否生存该用户，此刻弥补搜索功效。代码不及之处，希不吝珠玉！完备代码如次：<%@ language=vbscriptcodepage="936"%><% option explicit %><html><head><meta http-equiv="content-type" content="text/html; charset=utf8"><meta name="generator" content="microsoft visual studio 7.0"></head><body><%'步调手段：创造exchange 2000 邮箱用户'步调实行办法：开始在ad（active directory：震动目次）中搜索能否有该用'户，即使有则提醒用户该名字仍旧生存，没有则创造该用户，'并为该用户创造邮箱。'步调安排：skyword, skyword@21cn.com'步调日子：2001-06-27'须要提防的题目：步调运用中，该当关心ldap的各别。而且步调的运转须要比'较主高的运转权力（我运用是处置员权力，呵呵比拟不安定，'大师在本质运用中要提防，否则被人夺取了帐号不要怪我。'我也不太会树立），须要在iis中树立（往日即是由于不领会'，走了不少弯道：））'其余再有一种计划，搜索用户可贯串数据库搜索，我想大师'会更熟习少许，不过要牢记在初始数据时，要把计划机内所'有的帐号都要记载进数据库，否则就不许筹备确定能否该用'户，由于ad只确定能否有该用户，而尽管该在什么场所，这'点大师要提防。'步调是顶用到少许常识点均加以解释，蓄意对大师对所扶助' 其余须要提防的是帐号名字不许小于2位，并且不许运用华文' 名字.dim objuserdim objcontainerdim objmailboxdim objmaildim recipname, recipdim servername, domainname, emailname, firstname, lastname, password'确定用户能否生存dim strquery, objconn, objrs, strresult'查问语句：语法：要找什么，即搜索基(<ldap://dc=program,dc=org>)；'在目次的什么场合找(&(objectcategory=person)(samaccountname=用户'名))（用户为？的用户；找到东西的属性(samaccount,adspath)（用户名，'ldap地方）；搜索的范畴(subtree:搜索探求基以次的所有子树中)。例句'即是底下这句.'简直详细请参看《asp3高档编制程序》p644，板滞产业出书社（好象精炼区内'有这该书的电子文书档案，这本该书真的不错，犯得着购置）strquery = "<ldap://dc=program,dc=org>;(&(objectcategory=person)" & _"(samaccountname=" & request.form ("txtusername") & "));" & _"samaccountname,adspath;subtree"'翻开adsiset objconn = server.createobject ("adodb.connection")objconn.provider = "adsdsoobject"'底下这句是用正当用户翻开，否则搜索的截止有误，本例中运用处置员帐号objconn.open "active directory provider","cn=administrator, cn=users, dc=program, dc=org","skyword"'搜索用户能否生存，不生存则创造用户set objrs = server.createobject ("adodb.recordset")objrs.open strquery, objconnif not objrs.eof thenstrresult = falseresponse.write "用户仍旧生存"else'创造用户strresult = trueend ifobjrs.closeset objrs = nothingobjconn.closeset objconn = nothingif strresult = true then'创造用户的代码'servername,domainname是adsi须要的ldap消息，是必定的。servername = "skyword.program.org"domainname = "dc=program,dc=org"emailname = request.form ("txtusername")password = request.form ("txtpassword")recip = "cn=" & emailname'底下这语个if语句没几何价格。：）if request.form ("txttruename") <> "" thenlastname = "sky"firstname = "word"elselastname = "last"firstname = "name"end if'翻开东西set objcontainer = getobject("ldap://" & servername & "/ou=china.org," & domainname)'创造帐号set objuser = objcontainer.create("user", recip)objuser.put "samaccountname", emailname'帐号objuser.put "sn", lastnameobjuser.put "givenname", firstnameobjuser.put "displayname", emailname '& "@hina.org"'表露的名字objuser.put "mail", emailname & "@china.org"objuser.put "userprincipalname", emailname & "@china.org"'用户登录帐号objuser.setinfo'写进ad中objuser.setpassword password'用户暗号objuser.accountdisabled = false'帐号奏效objuser.setinfo'写进ad,确定要,干什么我也不领会'创造邮箱set objmailbox = objuser'底下的ldap是查出来的，安置各别，ldap会有所各别。objmailbox.createmailbox "ldap://skyword.program.org/" & _"cn=mailbox store (skyword),cn=first storage group," & _"cn=informationstore,cn=skyword,cn=servers," & _"cn=first administrative group,cn=administrative groups," & _"cn=ecitye,cn=microsoft exchange,cn=services," & _"cn=configuration,dc=program,dc=org"objuser.setinfoset objcontainer = nothingset objuser = nothingset objmailbox = nothing'底下是大略的缺点处置。if err <> 0 thenresponse.write "创造用户波折！请重试一次<br>"response.write "<input type='button' value='重试一次' onclick='vbscript:history.back()'>"response.write "<input type='button' value='归来' onclick='vbscript:window.location.href=index.html'>"else'以次是大略的尝试set objmail = server.createobject ("cdonts.newmail")objmail.send "admins@china.org", emailname & "@china.org", "welcome", "welcome use china.org mail"set objmail = nothingresponse.write emailname & "用户仍旧胜利创造！!!!" & "<br>三秒后导向登录页！"response.addheader "refresh","3;url=http://mail.china.org"end ifend if%></body></html>

用ASP代码创建EXCHANGE2000用户（续）

相关推荐

推荐下载

热门阅览

最新排行