请帮忙给我分析一下这段用asp在Exchange中创建新用户的程序，谢谢（分段1）
这是一段用asp在Exchange中创建新用户的程序，我是新手，谁能帮我分析一下，谢谢……
<%@ LANGUAGE="VBSCRIPT" %>
<%
'Option Explicit
const ADS_UF_NORMAL_ACCOUNT = 2
const ADS_SECURE_AUTHENTICATION = 1
Sub Binding()
Dim strServerName, strCN, strDC, strOU, strLDAP
strServerName = "mail-server"
strCN = "cn=beijing"
strDC = "dc=mail,dc=abc,dc=com,dc=cn"
strOU = "ou=BJMail"
strLDAP = "LDAP://" & strServerName & "/" & strCN & "," & strOU & "," & strDC
Response.Write(strLDAP)
Dim usr
Set usr = GetObject(strLDAP)
Dim mbx
set mbx = usr
Set usr = Nothing
set mbx = Nothing
End Sub
Sub CreateUserAccount(strFirstName, strLastName)
Dim strDomain, strServerName, strCN, strDC, strOU
strDomain = "mail.abc.com.cn"
strServerName = "mail-server"
strCN = "cn="
strDC = "dc=mail,dc=abc,dc=com,dc=cn"
strOU = "ou=BJMail"
Dim strLDAP
strCN = strCN & strFirstName & strLastName
strLDAP = "LDAP://" & strServerName & "/" & strCN & "," & strOU & "," & strDC
Err.Clear
Dim prn
Set prn = Server.CreateObject("CDO.Person")
With prn
.FirstName = strFirstName
.LastName = strLastName
.Fields("userAccountControl") = ADS_UF_NORMAL_ACCOUNT
.Fields.Update
.DataSource.SaveTo strLDAP
End With
if Err.number <> 0 then
Response.Write("<BR>Error:" & "Num=" & Err.number & ", Desc=" & Err.description )
exit sub
end if
Dim mbx
Dim strHomeMDBURL, strFirstGroup
strFirstGroup = "2000BJ"
Set mbx = prn.GetInterface("IMailboxStore")
strHomeMDBURL = "LDAP://" & strServerName & "/" & _
"CN=Mailbox Store (" & strServerName & ")," & _
"CN=First Storage Group," & _
"CN=InformationStore," & _
"CN=" & strServerName & "," & _
"CN=Servers," & _
"CN=First Administrative Group," & _
"CN=Administrative Groups," & _
"CN=" & strFirstGroup & "," & _
"CN=Microsoft Exchange," & _
"CN=Services," & _
"CN=Configuration," & _
strDC
mbx.CreateMailbox strHomeMDBURL
if Err.number <> 0 then
Response.Write("<BR>Error:" & "Num=" & Err.number & ", Desc=" & Err.description & "Source=" & Err.source)
exit sub
end if
Dim strAlias
strAlias = strFirstName & strLastName
With prn
.Email = "SMTP:" & strAlias & "@" & strDomain
.Fields("mailnickname") = strAlias
.Fields.Update
.DataSource.Save
End With
if Err.number <> 0 then
Response.Write("<BR>Error:" & "Num=" & Err.number & ", Desc=" & Err.description & "Line=" & Server.GetLastError().Line())
exit sub
end if
Dim ou, usr
Set usr = GetObject(strLDAP)
if Err.number <> 0 then
Response.Write("<BR>Error:" & "Num=" & Err.number & ", Desc=" & Err.description & ",Source=" & Err.source)
exit sub
end if
With usr
.FullName = strAlias
.AccountDisabled = FALSE
.SetInfo
.SetPassword("")
End With
Set prn = Nothing
Set mbx = Nothing
set usr = nothing
End Sub
问题点数：20、回复次数：11Top
1 楼storm97（风暴不再）回复于 2002-02-23 16:15:40 得分 20
请将e-mail留下，我给你程序加上注释，发给你！
Top
2 楼storm97（风暴不再）回复于 2002-02-23 16:19:56 得分 0
这一段程序是在服务器端的AD中创建新用户，及为该用户创建exchange信箱，MBX为用户邮箱存储区域，当你安装完exchange后，在exchange的虚拟磁盘分区中会由该文件夹，里面存放的是所有在服务器上存在的用户信箱的信息。Top
3 楼storm97（风暴不再）回复于 2002-02-23 16:20:35 得分 0
这一段程序是在服务器端的AD中创建新用户，及为该用户创建exchange信箱，MBX为用户邮箱存储区域，当你安装完exchange后，在exchange的虚拟磁盘分区中会由该文件夹，里面存放的是所有在服务器上存在的用户信箱的信息。Top
4 楼ddalone（只有自己）回复于 2002-02-24 16:53:54 得分 0
谢谢……
ddalone@sina.comTop
5 楼ddalone（只有自己）回复于 2002-02-24 16:57:27 得分 0
有几个地方请详细说明一下
cn=beijing
ou=BJMail
这两个到底具体指的是什么？
谢谢storm97(风暴不再)
Top
6 楼storm97（风暴不再）回复于 2002-02-25 09:02:17 得分 0
建议你先看看有关exchange方面基础知识的书，要不然很多东西你无法理解，
很多基础的东西你也不知道！所以要先学习学习关于exchange和outlook开发！Top
7 楼ddalone（只有自己）回复于 2002-02-25 10:51:13 得分 0
能不能推荐几本这方面的书，谢谢！！Top
8 楼storm97（风暴不再）回复于 2002-02-26 12:37:52 得分 0
我最近很忙！没时间给一行一行分析那个程序的意思！
所以你最好是自己看书吧！你的那个范例很简单，看看书就能看懂！
Addoil!!Top
9 楼yizia（椅子）回复于 2002-03-02 12:49:48 得分 0
去看看ldap的书
ou是组织单位
要在ad里建一个ou才可以添加用户，别忘了Top
10 楼AndrewT（河马）回复于 2002-03-05 13:41:38 得分 0
在LDAP中的关键字，OU表示组织单元，CN表示对象名称，DC指域，这段代码中由一段需要注意，在vb中可以使用set mbx=user这样的语句，但由ASP中数据类型都是VARIANT,所以在后面的代码中使用了prn.GetInterface()这样的语句，这一点当初我可是查了很久才搞明白的Top
11 楼ddalone（只有自己）回复于 2002-03-07 21:41:38 得分 0
这分给谁啊？555…………
大家都帮了我了，不过storm97(风暴不再) 最热心，我把分加给他了啊
呵呵…………
谢谢河马……谢谢大家……Top
12 楼larson（Unkonwn）回复于 2002-03-08 13:26:22 得分 0
怎么多人帮你且解决了你的问题，你难道不会多加点分吗？Top
