I need a script to create 10 users in Windows 2003.
Will VB script work?
Option Explicit
Dim strUser
Dim objRootLDAP, objContainer, objNewUser
for count =0 to 9
strUser = "stackOUser" + count
Set objRootLDAP = GetObject("LDAP://rootDSE")
Set objContainer = GetObject("LDAP://cn=Users," & _
objRootLDAP.Get("defaultNamingContext"))
' Build the actual User.
Set objNewUser = objContainer.Create("User", "cn=" & strUser)
objNewUser.Put "sAMAccountName", strUser
objNewUser.SetInfo
next
WScript.Quit
精彩评论