AD Server User login tool

这个应该可以的

 

Set objDomain = GetObject("LDAP://dc=mad,dc=local")
Set objOU = objDomain.Create("organizationalUnit", "ou=test")
objOU.SetInfo
Set objOU = GetObject("LDAP://OU=test,dc=mad,dc=local")
For i = 1 To 10
Set objUser =objOU.Create("User", "cn=UserNo" & i)
objUser.Put "sAMAccountName", "UserNo" & i
objUser.SetInfo
objUser.put "description" ,"description" & i
objUser.SetInfo
objUser.SetPassword "1234567"
objUser.AccountDisabled = FALSE
objUser.SetInfo
Next
WScript.Echo "10 Users created."

有什么问题请和我联系。。