注册
登录
| 关键词： nbsp adsUser 用户 users strUser 批量 arrUserList objTextFile 密码 local |
批量添加域用户 下面是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:"用户全名" 手动做成批处理文件即可 |
|
声明：文章版权归原作者所有 部分文章转自互联网 如有侵权请联系
[邮箱地址] 删除
|
