Set oNameSpace = GetObject("LDAP:")
Set oOpenDSO = oNameSpace.OpenDSObject(ADSPATH, ADMINID, ADMINPASSWD, 0)
If Err.Number <> 0 Then
Response.Write "Connection Failure!<p>"
Else
Response.Write "Connection Success!<p>"
End If
Set xUser = oOpenDSO.GetObject("LDAP://dosa.mypc.com:389/DC=mypc.co.kr/ou=User g", "ou=User g")
Set NewUser = xUser.Create("top", "uid=gegege")
If Err.Number <> 0 Then
Response.Write "Create Failure!<p>"
Else
Response.Write "Create Success!<p>"
End If
xUser.SetInfo
oOpenDSO.SetInfo
create가 안됩니다. 절실히 도움 부탁드려요
미리 감사드립니다.
감사합니다.
|