Visual Basic 을 이용하는데요..
아래와 같이 했습니다..
server = "211.56.xx.xx"
company = "o=mycompany"
ADsPath = "LDAP://" & server & "/" & company
userName = "cn=Manager,o=mycompany"
password = "secret"
'바인딩
Set dso = GetObject("LDAP:")
Set cont = dso.OpenDSObject(ADsPath, userName, password, 0)
'yjlee 지우기
Set usr = cont.GetObject("user", "cn=yjlee")
Debug.Print usr.cn & vbTab & usr.sn
cont.delete "user", "cn=yjlee" <- 이 라인에서 자동화 오류..
Active Directory 에서는 delete 라는 메소드가 됐었는데
openLDAP 서버에서는 이 메소드를 지원하지 않는 것 같네요..
뭔가 다른 방법이 있을 듯 한데..
ADSI 써 보신 분... 제발 자비를 .. 흑..
|