Modificar la contraseña de la cuenta de usuario de Active Directory

Como a menudo me hacen esta pregunta, pondré el código compilado aquí, puede consultarlo:
Agregue una referencia COM antes de usar: Biblioteca de tipos Active DS < Br> El siguiente código se compila en VB.NET
Función 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 como ActiveDs.IADsUser
Try
user = GetObject ("LDAP: //CN =" &strUser &"," &organizationname &"," &strDomain)
user.ChangePassword (oldPasswd, newPasswd)
Catch ex As Exception
Response.Write ("< script > alert ('Se produjo un error al cambiar la contraseña del usuario (" &ex.Source &"):" &ex.Message &"') < /script >")
Response.End ()
End Try
End Sub
Function havedomainname (ByVal strdomainName As String)
Dim a (), b, d As String, i, e As Integer
a = División (strdomainName, ".", -1, 1)
e = UBound (a)
For i = 0 To e
If i < > e Entonces
b = a (i
d = d &"DC =" &a (i) &","
Else
d = d &"DC =" &a (i)
Fin Si
Siguiente
havedomainname = d
End Function