vbs下用一個小方法實現(xiàn)批量添加域用戶
更新時間：2008年06月15日 20:58:00 作者：
在域模式下批量添加域用戶就有些困難，下面是一個vbs腳本，在同級目錄下用放置一個users.txt的文本文檔，格式：username,password，在dc上運行該腳本，即可以將users.txt的用戶信息批量添加到ad里面。可以通過移動或拖拽的方法，將生成的用戶移動到ou下面，以保證ou的組策略及文件夾重定向?qū)υ撚脩羯А?
復制代碼 代碼如下:
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里面。
相關(guān)文章
用vbs實現(xiàn)批量掛馬2008-05-05
iisweb.vbs iis網(wǎng)站管理腳本使用介紹
可以使用命令行腳本 iisweb.vbs（存儲在 systemroot\System32 中）在運行帶有 IIS 6.0 的 Windows Server 2003 家族成員的本地或遠程計算機上創(chuàng)建網(wǎng)站配置。該命令不創(chuàng)建或破壞內(nèi)容，而只是設置目錄結(jié)構(gòu)和某些 IIS 配置文件2014-07-07
VBS教程：VBscript語句-Dim 語句...2006-11-11
發(fā)現(xiàn)大部分黑白的朋友都不會編程, 這可不是件好事, 所以這次我就寫了一個簡單的編程教程, 講一下VBScript. 主要面向菜鳥, 懂得編程的朋友就不要浪費時間了2007-12-12![VBS 生成不重復隨機數(shù)代碼[0-10]](http://img.jbzj.com/images/xgimg/bcimg4.png)
VBS 生成不重復隨機數(shù)代碼[0-10]2009-12-12
VBS教程：方法-GetFile 方法...2006-11-11
利用vbscript腳本修改文件內(nèi)容，此適用于自動化的操作中
利用vbscript腳本修改文件內(nèi)容，此適用于自動化的操作中...2006-12-12
RegExp對象在VBScript中提供正則表達式支持功能，該對象有3個屬性和3個方法2006-11-11
可以將Bat轉(zhuǎn)換位VBS文件的VBS腳本...2007-07-07
VBS教程：VBScript 基礎-VBScript 運算符
VBS教程：VBScript 基礎-VBScript 運算符...2006-11-11