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

아래와 같은 소스를 작성해서

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