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

답변 감사합니다.
조언해주신데로 계정의 사용은 성공을 했습니다.

그런데 메일박스를 만들려고 하는데 Exchange의 메일박스를 생성한다는
것이 exchange의 계정을 생성하는것과 같은 의미인지요?

아래는 Visual Basic 소스인데
ASP나 VB스크립트로 변환을 하려하니깐 안되네요

특히 아래중에서 Dim objMailbox As CDOEXM.IMailboxStore 이부분을

어떻게 변환을 해야하는지 모르겟습니다.

혹 다른부분도 ASP 나 VBS로 변환시 해야할 부분을 지적해주세요!

무식하다고 탓하지마시구 알려주세요...



Private Sub Command1_Click()

Dim objUser As IADsUser
Dim objContainer As IADsContainer

Dim objMailbox As CDOEXM.IMailboxStore --> 이부분입니다.

Dim FirstName, LastName, ServerName As String
Dim mystuff, DomainName, OrgName As String

FirstName = "FirstName"
LastName = "LastName"
ServerName = "SMPARK2"
DomainName = "DC=smpark_dom,DC=chpss,DC=com"
strUser = "aaa"

' create a recipient
Set objContainer = GetObject("LDAP://" + ServerName + "/" + _
"OU=" + strOrgUnit + "," + DomainName)

Set objUser = objContainer.Create("user", "cn=" & strUser)

objUser.put "samAccountName", strUser
objUser.put "sn", LastName
objUser.put "givenName", FirstName
objUser.put "userPrincipalName", strUser & "@chpss.com"
objUser.put "mail", strUser & "@chpss.com"

objUser.SetInfo
objUser.SetPassword "password" 'let user change it later
objUser.AccountDisabled = False


Set objMailbox = objUser

'Create a mailbox for the recipient
'You cannot create a mailbox using ADSI, so use CDOEXM
mystuff = "LDAP://" + _
"CN=Mailbox Store (" + ServerName + ")" + _
",CN=First Storage Group,CN=InformationStore,CN=" + _
ServerName + _
",CN=Servers,CN=First Administrative Group," + _
"CN=Administrative Groups,CN=First Organization," + _
"CN=Microsoft Exchange,CN=Services," + _
"CN=Configuration," + DomainName
objMailbox.CreateMailbox mystuff


objMailbox.EnableStoreDefaults = False
objMailbox.StoreQuota = 10000
objMailbox.OverQuotaLimit = 12000
objMailbox.HardLimit = 15000

objUser.SetInfo


End Sub