繁體中文当前位置: 首页 > 图文教程 > 脚本技术 > VBScript > vbs下用一个小方法实现批量添加域用户
- VBScript
- VBS教程：方法-GetDrive 方法
- VBS教程：方法-GetBaseName 方法
- VBS教程：方法-GetAbsolutePathName 方法
- VBS教程：方法-FolderExists 方法
- VBS教程：方法-FileExists 方法
- VBS教程：方法-Exists 方法
- VBS教程：方法-DriveExists 方法
- VBS教程：方法-DeleteFolder 方法
- VBS教程：方法-DeleteFile 方法
- VBS教程：方法-Delete 方法
- VBS教程：方法-CreateTextFile 方法
- VBS教程：方法-CreateFolder 方法
- VBS教程：方法-CopyFolder 方法
- VBS教程：方法-CopyFile 方法
- VBS教程：方法-Copy 方法
- VBS教程：方法-Close 方法
- VBS教程：方法-BuildPath 方法
- VBS教程：方法-AddFolders 方法(Folders)
- VBS教程：方法-Add 方法(Dictionary)
- VBS教程：VBScript 语句-With 语句
VBScript 中的 vbs下用一个小方法实现批量添加域用户
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-09-11 浏览: 205 ::
收藏到网摘: n/a
复制代码 代码如下:
set adsou=getobject("ldap://cn=users,dc=hzcncter,dc=local")
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 & "@hzcncter.local"
adsuser.setinfo
adsuser.setpassword strpass
adsuser.accountdisabled=false
adsuser.setinfo
loop
注意保存后，更改一下dc名称（红色字体），如果ou名称是英文，也可以连ou名称一起更改，这样就可以直接将用户建立到ou里面。
评论 (0) All
