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

먼저 익스에서 사용자 계정의 추가하는것과 아울러 엑티브디렉토리에서의

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

이 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
%>