vbs下用一個(gè)小方法實(shí)現(xiàn)批量添加域用戶
更新時(shí)間：2008年06月15日 20:58:00 作者：
在域模式下批量添加域用戶就有些困難，下面是一個(gè)vbs腳本，在同級(jí)目錄下用放置一個(gè)users.txt的文本文檔，格式：username,password，在dc上運(yùn)行該腳本，即可以將users.txt的用戶信息批量添加到ad里面。可以通過移動(dòng)或拖拽的方法，將生成的用戶移動(dòng)到ou下面，以保證ou的組策略及文件夾重定向?qū)υ撚脩羯А?
復(fù)制代碼 代碼如下:
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列出內(nèi)網(wǎng)的中計(jì)算機(jī)（工作組也可以）
用vbs列出內(nèi)網(wǎng)的中計(jì)算機(jī)（工作組也可以）的代碼，需要的朋友可以參考下。2011-05-05
教你編寫Windows的VBScript與Mac的AppleSCript腳本解放雙手
這篇文章主要介紹了教你編寫Windows的VBScript腳本與Mac的AppleSCript腳本來解放大家的雙手，有需要的朋友可以借鑒參考下，希望能夠有所幫助2022-02-02
vbs結(jié)合adox實(shí)現(xiàn)提取表名，列名等信息的的vbs類一直沒怎么了解adox，先轉(zhuǎn)過來，有時(shí)間研究下！！2008-07-07
有時(shí)候我們需要用vbs來操作注冊(cè)表，一般情況下有兩種方法，一種是通過wshshell對(duì)象的regread，另外一種是使用WMI操作注冊(cè)表，下面簡(jiǎn)單的介紹下2013-09-09
VBS教程：函數(shù)-IsNull 函數(shù)...2006-11-11
用vbs實(shí)現(xiàn)定時(shí)運(yùn)行web文件的方法
用vbs實(shí)現(xiàn)定時(shí)運(yùn)行web文件的方法...2007-03-03
用vbscript得到注冊(cè)表中是否存在某個(gè)值
用vbscript得到注冊(cè)表中是否存在某個(gè)值...2007-04-04
vbs中關(guān)于計(jì)算機(jī)名的相關(guān)討論
vbs中關(guān)于計(jì)算機(jī)名的相關(guān)討論...2007-03-03
VBS教程：VBScript 語句-Set 語句...2006-11-11
復(fù)制自身的vbs腳本，一般用在病毒的隱藏2008-05-05