В. Существует ли сценарий для ввода учетной записи нового пользователя Active Directory (AD) через соединение LDAP?

О. нового пользователя (Bob Bobbington) через соединение LDAP и вводит его в контейнер Users.

Set objOU = GetObject(LDAP://CN=Users,DC=savilltech,DC=net)
Set objUser = objOU.Create("User", "cn=Bob Bobbington")
objUser.Put "sAMAccountName", "Bob"
objUser.Put "displayName", "Bob Bobbington"
objUser.Put "name", "Bob Bobbington"
objUser.Put "givenName", "Bob"
objUser.Put "sn", "Bob"
objUser.Put "department", "IT"
objUser.Put "mail", bob@bob.com
objUser.SetInfo
objUser.AccountDisabled = false
objUser.put "userPassword", "Pa55word"
objUser.SetInfo