【修改活动目录用户帐号的密码】
由于经常有人问及此方面的问题所以我将整理出来的代码放到这里，大家参考一下：
使用前请添加COM引用：Active DS Type Library
一下代码在VB.NET下编译通过
Function DomainPassWord() As String
Dim info As New ActiveDs.ADSystemInfoClass()
Dim retDomain As String
retDomain = havedomainname(info.DomainDNSName)
Dim OUname As String = "Users "
Call getuser(retDomain, "Administrator ", OUname, " ", " ")
End Function
Private Sub getuser(ByVal strDomain As String, ByVal strUser As String, ByVal organizationname As String, ByVal oldPasswd As String, ByVal newPasswd As String)
Dim user As ActiveDs.IADsUser
Try
user = GetObject( "LDAP://CN= " & strUser & ", " & organizationname & ", " & strDomain)
user.ChangePassword(oldPasswd, newPasswd)
Catch ex As Exception
Response.Write( "

• Windows Vista注册表修改新篇
• DNF Ex贴图坐标如何修改 DNF补丁坐标定位方法介绍
• 支付宝五福分了多少钱？支付宝五福活动结果公布
• 苹果iPhone6s修改文件夹名称的方法
• Windows Vista Express升级活动进展顺利
• Windows Vista上网注册表修改小技巧
• Windows Vista启动程序轻松修改
• 电脑怎么重新输入wifi密码
• 夏至民间习俗有哪些？夏至的风俗活动是什么？
• 教你轻松修改Windows Vista 注册表