Windows Scripting를 이용해 AD에 LDAP과 ADSI를 이용한 사용자 추가

Windows Scripting과 ADSI 인터페이스를 이용해 LDAP 프로토콜을 이용하여 AD에 사용자를 추가하는 간단한 코드를 다음과 같이 수행해 보았다. Set objRootDSE = GetObject("LDAP://rootDSE") Set objContainer = GetObject("LDAP://cn=Users," & _ objRootDSE.Get("defaultNamingContext")) For i = 1 To 1000 Set objLeaf = objContainer.Create("User", "cn=UserNo" & i) objLeaf.Put "sAMAccountName", "UserNo" & i objLeaf.SetInfo Next Wscript.Echo "1000 Users create..