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 created."

 

실행 :

cmd> cscript Add1000Account.vbs

참고주소 : http://www.microsoft.com/technet/scriptcenter/guide/sas_ads_overview.mspx?mfr=true

이와 같은 스크립팅을 잘 이용하면 꽤 쓸만한 일을 해낼 수 있을듯 ..

좀 더 연구해 봐야겠다 ;;



2007/09/06 - [.NET/MOSS] - Active Directory ㅠ_ㅠ
2007/09/05 - [.NET/MOSS] - Active directory 제어