2、 我写了以下脚本来向AD 中批量创建5000 用户账户,以模拟大用户量向AD 中
添加过程。
' Made by 付林.
' ************************************************
Set objRootDSE = GetObject ( " LDAP://rootDSE " )
' 请将域DN 名改成你自己的
Set objDomain = GetObject ( " LDAP://dc=mstc,dc=com,dc=cn " )
' 创建名为Mstc 的OU
Set objOU = objDomain.Create( " organizationalUnit " , " ou=Mstc " )
objOU.SetInfo
Set objContainer = GetObject ( " LDAP://ou=Mstc, " & _
objRootDSE.Get( " defaultNamingContext " ))
For i = 1 To 5000
' 以用户名UserID+1 至5000 的数字作为用户名向域中添加用户账号
Set objLeaf = objContainer.Create( " User " , " cn=UserId " & i)
objLeaf.Put " sAMAccountName " , " UserId " & i
objLeaf.SetInfo
Next
WScript.Echo " 用户账户创建完成! "