Есть желание немножко поучиться. Решил сделать систему управления пользователями на ASP, просто ради интереса, оставим в стороне вопросы зачем на ASP, зачем AD и прочее =)
Код:
<%@ LANGUAGE = VBScript %>
<%
Dim CheckNames
CheckNames = "ererer"
Dim objRootDSE
Set objRootDSE = GetObject("LDAP://rootDSE")
Dim objParentRoot
Set objParentRoot = GetObject("LDAP://ou=Test01," & objRootDSE.Get("defaultNamingContext"))
Dim CreateUser
If len(Request("UserName")) > 0 and len(Request("UserPass")) > 7 and Request("UserName") <> CheckNames then
Response.Write("<p>Begin create User name: " & Request("UserName") & "</p>")
Set CreateUser = objParentRoot.Create("user", "cn=" & Request("UserName"))
CreateUser.Put "sAMAccountName", Request("UserName")
CreateUser.Put "userPrincipalName", Request("UserName") & "@eshkatot.local"
CreateUser.Put "sn","test"
CreateUser.SetInfo
Response.Write("<p>Successfull!!!</p>")
Response.Write("<p>Setting Up Password</p>")
CreateUser.SetPassword(Request("UserPass"))
CreateUser.SetInfo
Response.Write("<p>Successfull!!!</p>")
else
Response.Write("<p>Wrong name</p>")
end if
%>
<HTML>
<HEAD>
<title>Create new user</title>
</HEAD>
<BODY>
<FORM METHOD = "POST" ACTION = create_script.asp ID = "frmImage" NAME = "getinfo">
<p>User Name:<br>
<input TYPE="text" NAME="UserName" VALUE=""><br>
Password:<br>
<input TYPE="text" NAME="UserPass" VALUE=""></p>
<INPUT ID="subFull" NAME="subR" TYPE="submit" VALUE="User Name">
</FORM>
</body>
</html>
Загвоздка в
CreateUser.Put "sAMAccountName", Request("UserName")
Без этой строки все работает отлично, но в поле кладется случайный набор символов, а это не хорошо. Пробовал менять поле после создания пользователя, не помогло, сервер выдает 500 ошибку.
Естественно в отдельном скрипте все работает как надо, а через ASP почему-то не хочет. Где грабли? Гуглил, но путного так ничего и не нагуглил.
Примечание:
Хм, а поделитесь пожалуйста как мне заставить работать ваш скрипт через веб-форму? Мне сейчас нужно понять как заставить это работать на VB+ASP=)
RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.
Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.
Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.