게시판 본문 Active Directory Service Interface - Read Only
Exchange2000에서의 사용자추가 |
---|
작성자: 짜리
작성일시: 2005-11-09 16:11,
조회수: 3,361
|
먼저 익스에서 사용자 계정의 추가하는것과 아울러 엑티브디렉토리에서의
사용자추가 그리고 메일박스생성 이 3가지를 asp에서 처리해야 합니다. 여기도 찾아보았고 데브피아에서도 그리고 프리첼 커뮤니티에서도 찾아보았지만 제가 원하는것을 (아마도 제가 소스를 이해를 못한듯) 못찾았습니다. 그래서 이렇게 염치불구하고 여기에 질문을 올립니다. 아래 질문중에서 익스2003에서 계정추가라는 질문에 있는 소스를 갖다가 사용해보아도 도무지 알수없는 에러만 나오고 소스의 각 변수에 대입할 값을 무엇을 넣어야 하는지도 모르겟습니다. 부디 도움을 주세요 아래 소스에서 설명좀 해주세요 참고로 저의 익스체인지 서버의 이름은 ERPSQLSVR 이구요 도메인은 hanyangeng.co.kr 구요 사용자 계정은 아무거나 상관없습니다. 위 정보만 가지고 아래소스를 사용할 수 있나요? <% ' UserID = Trim(Request("uid")) ' ChangePW = Trim(Request("Change_PW"))' ' DomainName = Trim(Request("DomainName"))' ' GroupName = LCASE(Left(DomainName, Instr(1, DomainName, ".", 1)-1)) UserID = "kusnow" ChangePW = "1111" DomainName = "hanyangeng.co.kr" GroupName = "hanyangeng" Dim intUserFlags UF_DONT_EXPIRE_PASSWD = &H10000 bFound = false Set adsRootDSE = GetObject("LDAP://ERPSQLSVR") strDomainDN = adsRootDSE.Get("defaultNamingContext") Set objServer = CreateObject("CDOEXM.ExchangeServer") Set objSG = CreateObject("CDOEXM.StorageGroup") Set objMSDB = CreateObject("CDOEXM.MailboxStoreDB") Set iDS = objServer.GetInterface("IDataSource") iDS.Open strServerName For Each storegroup In objServer.StorageGroups objSG.DataSource.Open storegroup If Err <> 0 Then Response.Write "An error occurred opening the specified storage group." Response.Write "Error: 0x" & Hex(Err.Number) & " " & Err.Description Response.Write "Exiting the application." Set objSG = Nothing Response.End End If If UCase(strStorageGroup) = UCase(objSG.Name) Then For Each mbx In objSG.MailboxStoreDBs objMSDB.DataSource.Open mbx If UCase(strMailboxStore) = UCase(objMSDB.Name) Then bFound = True strLDAPUrl = "LDAP://" + mbx Exit For End If Next End If If bFound Then Exit For Next Set objServer = Nothing Set objSG = Nothing Set objMSDB = Nothing strADsPath = "LDAP://OU=" & GroupName & "," & strDomainDN strUserName = "cn=Administrator,cn=Users," & strDomainDN strPassword = "$gksdidENG$" Set adsNamespace = GetObject("LDAP:") Set adsRoot = adsNamespace.OpenDSObject(strADsPath, strUserName, strPassword, 0) If Err = 0 Then Err.Clear strAlias = UserID & "_" & GroupName Set adsUser = adsRoot.Create("user", "CN=" & strAlias) adsUser.Put "sAMAccountName", strAlias adsUser.Put "userPrincipalName", strAlias & "@" & DomainName adsUser.SetInfo If Err = 0 Then Response.Write "사용자를 생성하였습니다.<BR>" adsUser.GetInfo 'adsUser.SetPassword ChangePW adsUser.put "SetPassword", ChangePW ' 문제가 되는부분......................... ' Enable the account (default when created is disabled) adsUser.AccountDisabled = False ' Set the display name of the user adsUser.FullName = UserID & "_" & GroupName adsUser.Put "description", GroupName adsUser.Put "mailNickname", strAlias ' 암호사용기간 제한없음으로 변경해야됨. intUserFlags = adsUser.Get("userAccountControl") intUserFlags = intUserFlags Or UF_DONT_EXPIRE_PASSWD adsUser.Put "userAccountControl", intUserFlags Dim cdoExMailbox Set cdoExMailbox = adsUser cdoExMailbox.CreateMailbox strLDAPUrl ' 문제가 되는부분 ' Set the initial e-mail address adsUser.SMTPEmail = UserID & "@" & DomainName ' 메일이 사용가능하도록 adsUser.Put "msExchUserAccountControl", 2 adsUser.SetInfo Set adsUser = Nothing Set cdoExMailbox = Nothing Else Response.Write "사용자를 생성하지 못하였습니다." End if Else Response.Write "사용자를 생성하는데 인증이 실패하였음." End If On Error GoTo 0 %> |
IP 주소: 168.126.153.121
|
전체 421 건의 게시물,
17 페이지로 구성된
Active Directory Service Interface 게시판의
9 페이지입니다.
게시물 | ||||
---|---|---|---|---|
224 | 2005-11-14 | 6,311 | ||
223 | 2005-11-14 | 3,915 | ||
222 | 2005-11-14 | 3,060 | ||
221 | 2005-11-14 | 3,320 | ||
220 | 2005-11-10 | 3,321 | ||
219 | 2005-11-11 | 3,075 | ||
218 | 2005-11-11 | 2,985 | ||
217 | 2005-11-11 | 3,030 | ||
2005-11-09 | 3,361 | |||
215 | 2005-11-10 | 3,018 | ||
214 | 2005-11-10 | 3,444 | ||
213 | 2005-11-10 | 3,038 | ||
212 | 2005-11-10 | 3,186 | ||
211 | 2005-11-10 | 3,248 | ||
210 | 2005-11-10 | 2,993 | ||
209 | 2005-11-10 | 3,234 | ||
208 | 2005-11-11 | 3,102 | ||
207 | 2005-11-11 | 3,069 | ||
206 |
ADSI |
2005-10-28 | 817 | |
205 | 2005-10-28 | 2,957 | ||
204 | 2005-09-16 | 3,220 | ||
203 | 2005-09-16 | 3,403 | ||
202 | 2005-09-16 | 3,126 | ||
201 | 2005-09-17 | 3,271 | ||
200 | 2005-09-17 | 3,244 |