게시판 본문 Active Directory Service Interface - Read Only
re: Exchange2000에서의 사용자추가 |
---|
작성자: 짜리
작성일시: 2005-11-10 14:32,
조회수: 3,128
|
아래와 같은 소스를 작성해서
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 | 2005-11-14 | 6,197 | ||
223 | 2005-11-14 | 3,856 | ||
222 | 2005-11-14 | 2,997 | ||
221 | 2005-11-14 | 3,258 | ||
220 | 2005-11-10 | 3,256 | ||
219 | 2005-11-11 | 3,018 | ||
218 | 2005-11-11 | 2,925 | ||
217 | 2005-11-11 | 2,972 | ||
216 | 2005-11-09 | 3,312 | ||
215 | 2005-11-10 | 2,964 | ||
214 | 2005-11-10 | 3,384 | ||
213 | 2005-11-10 | 2,988 | ||
2005-11-10 | 3,128 | |||
211 | 2005-11-10 | 3,179 | ||
210 | 2005-11-10 | 2,942 | ||
209 | 2005-11-10 | 3,182 | ||
208 | 2005-11-11 | 3,056 | ||
207 | 2005-11-11 | 3,009 | ||
206 |
ADSI |
2005-10-28 | 817 | |
205 | 2005-10-28 | 2,908 | ||
204 | 2005-09-16 | 3,158 | ||
203 | 2005-09-16 | 3,334 | ||
202 | 2005-09-16 | 3,067 | ||
201 | 2005-09-17 | 3,223 | ||
200 | 2005-09-17 | 3,198 |