批量添加域用戶
下面是AddUsers.Vbs的內容:它從同文件夾的users.txt讀取要添加的用戶及其密碼.
Set adsOU=GetObject("[url=ldap://CN=Users,DC=fkdl,DC=local]LDAP://CN=Users,DC=fkdl,DC=local[/url]")
Const ForReading = 1
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile _
????("users.txt", ForReading)
Do Until objTextFile.AtEndOfStream
????strNextLine = objTextFile.Readline
????arrUserList = Split(strNextLine , ",")
????strUser=arrUserList(0)????
????strPass=arrUserList(1)
????Set adsUser=adsOU.Create("user","CN=" & strUser)
????adsUser.Put "samAccountName", strUser
????adsUser.Put "userPrincipalName", strUser & "@fkdl.local"
????adsUser.SetInfo
????adsUser.SetPassword strPass
????adsUser.AccountDisabled=False
????adsUser.SetInfo
Loop

Users.txt格式:
用戶,密碼


2批量增加用戶到組
net localgroup 組名 用戶名 /add
3批量增加2000用戶
net user??用戶名 密碼 /add /fullname:"用戶全名"
手動做成批處理文件即可。

轉載于:https://blog.51cto.com/28917/78798

總結

以上是生活随笔為你收集整理的批量添加域用户的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。