게시판 본문 Active Directory Service Interface - Read Only

Exchange2000에서의 사용자추가
작성자: 짜리
작성일시: 2005-11-09 16:11,  조회수: 3,244
먼저 익스에서 사용자 계정의 추가하는것과 아울러 엑티브디렉토리에서의

사용자추가 그리고 메일박스생성

이 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

re: Exchange2000에서의 메일박스생성

짜리

2005-11-14 6,040
223

re: Exchange2000에서의 메일박스생성

송원석

2005-11-14 3,786
222

re: Exchange2000에서의 메일박스생성

짜리

2005-11-14 2,927
221

re: Exchange2000에서의 메일박스생성 [1]

송원석

2005-11-14 3,187
220

ADSI 과 IIS 보안문제 문의 드립니다.

jender

2005-11-10 3,164
219

re: ADSI 과 IIS 보안문제 문의 드립니다.

송원석

2005-11-11 2,953
218

re: ADSI 과 IIS 보안문제 문의 드립니다.

jecder

2005-11-11 2,858
217

re: ADSI 과 IIS 보안문제 문의 드립니다. [1]

송원석

2005-11-11 2,901

Exchange2000에서의 사용자추가

짜리

2005-11-09 3,244
215

re: Exchange2000에서의 사용자추가

송원석

2005-11-10 2,895
214

re: Exchange2000에서의 사용자추가

짜리

2005-11-10 3,319
213

re: Exchange2000에서의 사용자추가

송원석

2005-11-10 2,920
212

re: Exchange2000에서의 사용자추가

짜리

2005-11-10 3,056
211

re: Exchange2000에서의 사용자추가 [1]

송원석

2005-11-10 3,102
210

re: Exchange2000에서의 사용자추가

짜리

2005-11-10 2,875
209

re: Exchange2000에서의 사용자추가

송원석

2005-11-10 3,109
208

re: Exchange2000에서의 사용자추가

짜리

2005-11-11 2,986
207

re: Exchange2000에서의 사용자추가

송원석

2005-11-11 2,943
206

사용자 추가 할려고 하는데요??

ADSI

2005-10-28 817
205

re: 사용자 추가 할려고 하는데요??

송원석

2005-10-28 2,837
204

ADSI에러 문의드립니다.

cool

2005-09-16 3,086
203

re: ADSI에러 문의드립니다.

송원석

2005-09-16 3,259
202

re: ADSI에러 문의드립니다. [1]

cool

2005-09-16 2,995
201

re: ADSI에러 문의드립니다.

cool

2005-09-17 3,156
200

re: ADSI에러 문의드립니다. [1]

송원석

2005-09-17 3,123