在Windows 2003中創建用戶

Question

我需要一個腳本才能在Windows 2003中創建10個用戶。

Answer 1

VB腳本能工作嗎？

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