修改AD用户密码

[guozhanfu]

如何用
DirectoryEntry entry
entry.Invoke("ChangePassword", password );修改AD用户密码

[jupiterII]

Accessing Active Directory Through the .NET Framework
http://www.15seconds.com/issue/020730.htm

[godliu521]

up

[KK4]

Accessing Active Directory Through the .NET Framework
http://www.15seconds.com/issue/020730.htm

[liuyd]

up

[gOODiDEA]

参考：

Set ou = GetObject("LDAP://OU=Marketing,OU=DSys,DC=adsidev,DC=nttest,DC=microsoft,DC=com")
Set usr = ou.Create("user", "CN=James Smith")

'---- Mandatory attributes----
usr.Put "samAccountName", "jsmith"

'---- Optional attributes, you may skip this----
usr.Put "sn", "Smith"
usr.Put "givenName", "James"
usr.Put "userPrincipalName", "[e-mail]"
usr.Put "telephoneNumber", "[phone]"
usr.Put "title", "Marketing Administrator Dept"
usr.SetInfo

'--Now that the user is created, reset the user's password and
'--enable its account.

usr.SetPassword "secret***!"
usr.AccountDisabled = False
usr.SetInfo