Возникла такая задачка: Нужно в ASP поменять пароль пользователю.
( Знаю этот раздел не по ASP, но у меня вопр больше по объекту WinNT )
Пишу вот такой код
- Код: Выделить всё
'// Получаю имя локальной машины
Dim Network
Set Network = CreateObject("WScript.Network")
Dim ComputerName
ComputerName = Network.ComputerName
'// Получаю ссылка на объект управления учётными записями
Dim Dso
Set Dso = GetObject("WinNT:")
Dim Query,UserName,AdminName,AdminPassword
'// Задаю имя и пароль администратора, для того чтобы на основании их создать объект обладающий правами админа
AdminName = "Администратор"
AdminPassword = "AdminPassword"
UserName = "User99"
'// Создаю запрос к учётной записи пользователя
Query = "WinNT://" & ComputerName & "/" & UserName
'// На основании прав админа получаю объект пользователя
Set Account = Dso.OpenDSObject(Query,AdminName,AdminPassword,1)
'// Пытаюсь разблокировать пользователя
Account.Put "UserFlags", Account.Get("UserFlags") - 16
'// Пытаюсь обновить инфу пользователя
Account.SetInfo
И вот на последней строке падает с ошибкой
Тип ошибки:
Active Directory (0x80070005)
Ошибка доступа
Посоветуйте пожалуйста как с этим справиться ? Что делаю неправильно ?
