AD密码更改

 1DirectoryEntry ent = new DirectoryEntry("LDAP://" + Session["Ldappath"].ToString(), Components.DAL.myData.DecryptDES(Session["Name"].ToString(), "FGNCName"),
 2                     password);
 3            DirectorySearcher DSr = new DirectorySearcher(ent);
 4            DSr.SearchScope = SearchScope.Subtree;
 5            DSr.Filter = "(sAMAccountName=" + Components.DAL.myData.DecryptDES(Session["Name"].ToString(), "FGNCName") + ")";
 6            SearchResult sr = DSr.FindOne();
 7            DirectoryEntry entry = sr.GetDirectoryEntry();
 8            string password = txtNewPwd.Text.Trim();            
 9            ActiveDs.IADsUser user = (ActiveDs.IADsUser)entry.NativeObject;
10            user.ChangePassword(txtCurPwd.Text.Trim(), txtNewPwd.Text.Trim());
11            Response.Write("<script language=javascript>alert('Change password successed!');</scriIIS中有一个组件IISADMPWD可以更改Active Directory的密码。
操作步骤：一、新建一个虚拟目录，路径指向C:\WINDOWS\system32\inetsrv\iisadmpwd；
             二、设置为https，可以执行script，还要指定domain名称；
             三、web扩展中将Active Server Pages启动。

自己建能更改AD密码的网站，其所在服务器必须在AD域中。

 1DirectoryEntry ent = new DirectoryEntry("LDAP://" + Session["Ldappath"].ToString(), 
 2
 3Components.DAL.myData.DecryptDES(Session["ADUserName"].ToString(), "key"),
 4                     txtCurPwd.Text.Trim(),AuthenticationTypes.Secure);
 5   DirectorySearcher DSr = new DirectorySearcher(ent);
 6 DSr.SearchScope = SearchScope.Subtree;
 7 DSr.Filter = "(sAMAccountName=" +
           Components.DAL.myData.DecryptDES(Session["ADUserName"].ToString(), "key") + ")";
 8 SearchResult sr = DSr.FindOne();
 9  DirectoryEntry entry = sr.GetDirectoryEntry();10        
  ActiveDs.IADsUser user = (ActiveDs.IADsUser)entry.NativeObject;
  user.ChangePassword(txtCurPwd.Text.Trim(), txtNewPwd.Text.Trim());
            Response.Write("<script language=javascript>alert('Change password successed!');</script>");