'======================================================================================
«Спасибо за использование программы практической функции, разработанной ASP001 Studio
'Http://www.asp001.net
'=========================================================================================================================
QQ: 1974229
E-mail: [email protected]
'Для получения дополнительных программ скачать, пожалуйста, перейдите по адресу http://www.asp001.net
'======================================================================================
'Введение функции: Управление учетными записями NT через ASP
«Эта функция использует ADSI и требует разрешения пользователя группы администраторов
Разработка программы: ASP001 Studio Chuqi
'======================================================================================
'Заполните пользователем
'Использование функций: AddUser (компьютер, имя пользователя, пароль, полное имя, информация)
'Параметры: имя компьютера, имя учетной записи, пароль учетной записи, полное имя учетной записи, описание учетной записи
Пример: Adduser "127.0.0.1", "test", "test", "test", "Account Administrator", «Эта учетная запись заполняется через ASP»
'Измените основную информацию указанного пользователя
'Использование функций: Edituser (компьютер, имя пользователя, OldPassword, пароль, полное имя, информация)
'Параметры: имя компьютера, имя учетной записи, пароль учетной записи, полное имя учетной записи, описание учетной записи
Пример: Edituser "127.0.0.1", "test", "test2", "Модификация учетной записи администратора", «Эта учетная запись была изменена через ASP»
'Удалить указанного пользователя
'Использование функций: Deluser (компьютер, имя пользователя)
'Параметры: имя компьютера, имя пользователя'
Пример: Deluser "127.0.0.1", "Тест"
=====================================================================================
FunctionAdduser (компьютер, имя пользователя, пароль, полное имя, информация)
'Выполните команду Create Account
SetComputerObj = getObject ("winnt: //" & computer)
SetNewuser = computerObj.create («Пользователь», имя пользователя)
Newuser.setInfo
'Сделайте настройки учетной записи
Newuser.setPassword (пароль) пароль учетной записи
Newuser.fullname = fullName 'полное имя учетной записи
Newuser.description = info'account Описание
Newuser.userflags = & h10000 '& h20000 (пользователь должен изменить пароль в следующий раз, когда вы войдете в систему) и H0040 (пользователь не может изменить пароль) и H10000 (пароль постоянно верен) и H0002 (учетная запись временно отключена)
Newuser.setInfo
response.write "account" & username & "Создано успешно!"
SetComputerObj = ничего
Конечная функция
FunctionDituser (компьютер, имя пользователя, OldPassword, пароль, полное имя, информация)
'Прочтите информацию пользователя
SetChangeUserObj = getObject ("winnt: //" & computer & "/" & username & ", user")
'Изменить пароль учетной записи
ifpassword <> "" Тогда
ChangeUserObj.setPasswordPassword
response.write "Успешно изменен пароль учетной записи! <br>"
эндиф
'Измените полное имя учетной записи
iffullName <> "" Тогда
UserfullName = changeUserobj.get ("fullName")