快捷搜索:

用ASP代码创建EXCHANGE2000用户

前段光阴写出一个法度榜样,只是不完善,不能判断是否存在该用户,现在弥补查找功能。

代码不够之处,希不吝指教!

完备代码如下:

);

'在目录的什么地方找(&(objectCategory=person)(sAMAccountName=用户

'名))(用户为?的用户;找到工具的属性(sAMAccount,ADsPath)(用户名,

'LDAP地址);查找的范围(subTree:查找搜索基以下的全部子树中)。例句

'便是下面这句.

'详细细节请参看《ASP3高档编程》P644,机器工业出版社(好象英华区内

'有这本书的电子文档,这本本书真的不错,值得购买)

strQuery = ";(&(objectCategory=person)" & _

"(sAMAccountName=" & Request.Form ("txtUserName") & "));" & _

"sAMAccountName,ADsPath;subTree"

'打开ADSI

Set 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, objConn

if not objRs.EOF then

strResult = False

Response.Write "用户已经存在"

else

'创建用户

strResult = True

End if

objRs.Close

Set objRs = Nothing

objConn.Close

Set objConn = Nothing

If 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")0 then

Response.Write "创建用户掉败!请重试一次

"

Response.Write " "

Response.Write ""

else

'以下是简单的测试

Set objMail = Server.CreateObject ("CDONTS.NewMail")

objMail.Send "Admins@china.org", emailname & "@china.org", "Welcome", "Welcome use China.org Mail"

set objMail = Nothing

Response.Write emailname & "用户已经成功创建!!!!" & "

三秒后导向登录页!"

Response.AddHeader "refresh","3;url=http://mail.china.org"

end if

End If

%>

您可能还会对下面的文章感兴趣: