在exchange2000中，如何让用户自己更改邮件密码？
在exchange2000中，如何让用户自己更改邮件密码？ 问题点数：20、回复次数：7Top
1 楼zhpfaff（zhp）回复于 2002-01-01 16:51:01 得分 5
这个问题我已经解决了，方法有3种
1。在OWA里有选项里的修改密码，你可以看看原代码，你需要建立IIsadmpwd虚拟目录
2。你可以制作个组件来修改密码
3。你也可以直接使用ASP来修改密码
2，3使用的ADSI编程给你一段vbscript代码，你试试
Dim objReference,strUser,strOldPassword,strNewPassword,strConfirmNewPassword
Dim strdomain
strdomain="你服务器的域 比如：abc.com或server(NT4)"
strUser = Request.Form("txtUser")
strOldPassword = Request.Form("txtOldPassword")
strNewPassword = Request.Form("txtNewPassword")
strConfirmNewPassword = Request.Form("txtConfirmNewPassword")
if strUser<>"" then
call SetPassword(strUser,strOldPassword,strNewPassword,strConfirmNewPassword,strdomain)
end if
Sub SetPassword1(strUser,strOldPassword,strNewPassword,strConfirmNewPassword,domain)
Set adsUser = GetObject("WinNT://" & domain & "/" & strUser & ",user")
adsUser.ChangePassword strOldPassword,strNewPassword
Set adsUser=Nothing
strDialogText = """成功修改用户 " & pstrUser & " 的口令."""
CreateAlertMarkup(strDialogText)
End Sub
Sub CreateAlertMarkup(pstrDialogText)
Dim strScriptingLanguage
strScriptingLanguage = """JavaScript"""
MyResponse.Write vbCrLf
MyResponse.Write ("<SCRIPT LANGUAGE=" & strScriptingLanguage & ">") & vbCrLf
MyResponse.Write ("<!--") & vbCrLf
MyResponse.Write ("{") & vbCrLf
MyResponse.Write vbTab & ("window.alert(" & pstrDialogText & ");") & vbCrLf
MyResponse.Write ("}") & vbCrLf
MyResponse.Write ("-->") & vbCrLf
MyResponse.Write ("</SCRIPT>") & vbCrLf
End Sub
其他我就不说了，这里没有验证旧密码是否正确，我也不知道如何验证呢，希望有人告诉我
使用VB制作个组件函数基本一样，如果你需要，我可以给你。Top
2 楼sqq（）回复于 2002-01-01 18:24:59 得分 0
to zhpfaff(zhp):
我用的是http://servername/exchange中＂选项＂中的修改密码，但操作失败．
Top
3 楼zhpfaff（zhp）回复于 2002-01-02 09:24:18 得分 10
第一种方法就是使用浏览器访问，OWA就是啊，你要建立虚拟目录IIsadmpwd,并且你要把这个目录下的*.htr文件修改一下，因为他使用的是https是需要验证的，如果你的用户没有验证当然就出错了，其实你可以修改脚本文件，把制作自己的修改密码的页面，在Exchsrvr/exchweb/controls/util_Buttons20.js里就是修改密码的URL代码,可以把window.open(szURL,0,szOpts)里的参数修改成自己网页，它默认的是iisadmpwd目录下的文件，你可以把https改成http,iisadmpwd的实际位置是winnt/system32/inetsrv/iisadmpwd
你可以看见在这个目录下有许多htr文件，一般默认打开的是aexp2b.htr，你可以用记事本打开它，看见action="https://<%iis.SERVER_NAME%>/_AuthChangeUrl?<%urlparam%>你把https改成httpTop
4 楼Kevinwen（壮志凌云）回复于 2002-01-02 11:55:04 得分 5
Hi Sqq,
Please refer to http://support.microsoft.com/support/kb/articles/q267/5/96.asp
Top
5 楼sqq（）回复于 2002-01-03 13:04:40 得分 0
多谢各位，问题已解决了．祝在大家在新的一年里事事顺心！Top
6 楼Julie（阿萸）回复于 2002-01-16 16:15:14 得分 0
各位，按照你们的方式（除了编程外）我都是过了，
Please refer to http://support.microsoft.com/support/kb/articles/q267/5/96.asp我也看过了，修改密码还是不成功？？？？？？？？？？
还有一点不明白，SSL在哪里安装，又怎样配置？
Top
7 楼akeewww（akeewww）回复于 2002-03-14 23:33:36 得分 0
添加、删除程序中安装SSLTop
