发信人: liubr()
整理人: i_am_trueman(2003-11-24 08:57:07), 站内信件
|
如果你使用Windows2000的活动目录(Active Directory)管理域用户，并且Exchange使用Windows集成认证，实际上修改Exchange密码也就是修改Windows密码。
<%
'通过form传递过来的用户名为UserName，旧密码为OldPassword，新密码为NewPassword
On Error Resume Next
strUserDN="cn=" & Request.Form("UserName") & ",cn=users,dc=windows,dc=mycorp,dc=com"
'以上与AD中用户配置有关，假定要修改的用户，位于users下
'域名为windows.mycorp.com
strUsername="LDAP://" & strUserDN
Set ads=GetObject("LDAP:")
'创建AD对象
Err.Clear
Set adsUser=ads.OpenDSObject(strUsername,strUserDN,Request.Form("OldPassword"),1)
'用当前用户名和密码认证
If Err=0 Then '认证成功，尝试修改密码
Err.Clear
adsUser.ChangePassword cstr(Request.Form("OldPassword)),cstr(Request.Form("NewPassword"))
If Err=0 then Response.Write "修改密码成功" else Response.write "密码未成功修改"
Else
Response.write "用户名或密码错误"
End If
Set adsUser=Nothing
Set ads=Nothing
On Error goto 0
%>
【 在 hustchen 的大作中提到：】
:能不能说的具体些，有没有示例代码，我很着急，谢谢了！
:【 在 liubr 的大作中提到：】
::Exchange使用Windows集成认证吗？Windows使用AD吗？
::如果是，要用ADSI操作AD
::【 在 hustchen 的大作中提到：】
:
:......
|
|