Active Directoryユーザーアカウントのパスワードを変更する

この質問をよくするので、ここにコンパイル済みコードを配置します。それを参照することができます。
使用前にCOM参照を追加してください。Active DS Type Library < Br>以下のコードはVB.NETでコンパイルされています。
関数DomainPassword（）を文字列として追加します。新しい情報を追加するActiveDs.ADSystemInfoClass（）
Dim retDomain文字列として設定するretDomain = havedomainname（info.DomainDNSName）
Dim OUname As String = "Users"
getuser（retDomain、 "Administrator"、OUname、 ""、 ""）を呼び出します。

終了関数
プライベートSub getuser（ByVal strDomain As By String、ByVal strUser）文字列として、ByVal組織名を文字列として、ByVal oldPasswdを文字列として、ByVal newPasswdを文字列として

DimユーザーとしてActiveDs.IADsUser
お試しください
user = GetObject（ "LDAP：//CN ="& strUser& & "、"&組織名& "、"& strDomain）
user.ChangePassword（oldPasswd、newPasswd）
例外としてキャッチ

Response.Write （ "< script> alert（ 'ユーザーパスワードの変更中にエラーが発生しました（"& ex.Source& "）："& ex.Message& "'）< /script>"）
Response.End（）
終了しようとすると、終了

関数havedomainname（ByVal strdomainNameを文字列として）
dim a（）、b、d文字列として、i、e整数として
a =分割（strdomainName、 "。"、-1、1）
e = UBound（a）
For i = 0 To e
i<> eの場合
b = a（i
d = d& "DC ="&a（i）& "、"その他d = d& "DC ="& a（i）
終了もし
次
havedomainname = D
エンド機能