您现在的位置:主页 > 技术中心 > 操作系统 > Windows

批量添加域用户

来源:未知 责任编辑:责任编辑 发表时间:2013-12-06 08:45 点击:

批量添加域用户
下面是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:"用户全名"
手动做成批处理文件即可

    发表评论
    请自觉遵守互联网相关的政策法规,严禁发布色情、暴力、反动的言论。
    评价:
    表情:
    用户名: 验证码:点击我更换图片

    推荐热点

    • dos命令原来也能这样用?允许查找未知子目录指
    •  windows的磁盘操作之八——格式化分区的思考
    • windows篇-第三章 安装和配置DNS服务器
    • windows篇-第二章 安装和配置Web服务器
    • windows篇-第一章 windows server 2008安装和简单配置
    •  windows server 2003断开远程之后自动注销用户
    • Windows服务器下用IIS Rewrite组件为IIS设置伪静态方
    • Windows 2008 R2 SP1部署WSUS 3.0 SP2
    • windows 2008 rodc扩展

    快速直达

    ?? - ?? - ÝřŝžľŘÝź - TAGąęÇŠ - RSSśŠÔÄ - ??
    Copyright © 2004-2024 上海卓卓网络科技有限公司