page561.vbs

来自「Apress - Managing Enterprise Systems Wit」· VBS 代码 · 共 13 行

'bind to the container to add user to. In this example the acme domain.
Set objContainer = GetObject("LDAP://cn=Users,dc=acme,dc=com")

Set objUser = objContainer.Create("User", "cn=Fred Smith")
objUser.Put "samAccountName", "freds"
objUser.SetInfo

objUser.pwdLastSet = -1
objUser.SetPassword "we12oi90"
objUser.AccountDisabled = False

objUser.SetInfo