用VBS向AD服务中平添测试数据

用VBS向AD服务中添加测试数据

1，前言

? 项目中需要用AD服务的测试数据。有个例子，很好用。

Set objDomain = GetObject("LDAP://dc=test,dc=local")Set objOU = objDomain.Create("organizationalUnit", "ou=adUser4")objOU.SetInfoSet objOU = GetObject("LDAP://OU=adUser4,dc=test,dc=local")For i = 1 To 10000    Set objUser =objOU.Create("User", "cn=UserNod" & i)    objUser.Put "sAMAccountName", "UserNod" & i    objUser.SetInfo        objUser.put "description", "cardidd" & i    objUser.SetInfo        objUser.SetPassword "mypass"     objUser.AccountDisabled = FALSE    objUser.SetInfoNext