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

re: Exchange2000에서의 사용자추가
작성자: 짜리
작성일시: 2005-11-10 14:32,  조회수: 3,057
아래와 같은 소스를 작성해서

Active Directory 에 계정을 생성하는데는 성공을 했습니다.
그런데 그 계정이 x표시로 되어서 사용안함으로 해서 생성이 됩니다.

또한 이작업이후에 어떻게 해야지 Exchange에 메일 계정이 생성되나여?

그리고 메일박스는 FSO로 만들면 안되나여?



Set adsRootDSE = CreateObject("KusnowWSC.Object")

UserID = "kusnow"
ChangePW = "$sims1862"
DomainName = "hanyangeng.co.kr"
GroupName = "hyeng_office"

Dim intUserFlags
UF_DONT_EXPIRE_PASSWD = &H10000
bFound = false

Set adsRootDSE = GetObject("LDAP://RootDSE")

strDomainDN = adsRootDSE.Get("defaultNamingContext")
Set objServer = CreateObject("CDOEXM.ExchangeServer")
Set objSG = CreateObject("CDOEXM.StorageGroup")
Set objMSDB = CreateObject("CDOEXM.MailboxStoreDB")
Set iDS = objServer.GetInterface("IDataSource")

strServerName = "erpsqlsvr"

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
strAlias = "오원석"
Set adsUser = adsRoot.Create("user", "CN=" & strAlias)

adsUser.Put "sn", "오"
adsUser.Put "givenName", "원석"

adsUser.Put "sAMAccountName", strAlias
adsUser.Put "userPrincipalName", UserID & "@" & DomainName
adsUser.SetInfo

adsUser.Put "displayName", strAlias
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
Else
Response.Write "사용자를 생성하지 못하였습니다."
End if
Else
Response.Write "사용자를 생성하는데 인증이 실패하였음."
End If

Set adsRootDSE = Nothing

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,928
221

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

송원석

2005-11-14 3,188
220

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

jender

2005-11-10 3,165
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
216

Exchange2000에서의 사용자추가

짜리

2005-11-09 3,244
215

re: Exchange2000에서의 사용자추가

송원석

2005-11-10 2,897
214

re: Exchange2000에서의 사용자추가

짜리

2005-11-10 3,319
213

re: Exchange2000에서의 사용자추가

송원석

2005-11-10 2,920

re: Exchange2000에서의 사용자추가

짜리

2005-11-10 3,057
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,987
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,087
203

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

송원석

2005-09-16 3,259
202

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

cool

2005-09-16 2,996
201

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

cool

2005-09-17 3,156
200

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

송원석

2005-09-17 3,123