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

В. Существует ли сценарий для ввода учетной записи нового пользователя 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