国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 編程 > VBScript > 正文

vbs下用一個小方法實現批量添加域用戶

2020-06-26 18:14:01
字體:
來源:轉載
供稿:網友
在域模式下批量添加域用戶就有些困難,下面是一個vbs腳本,在同級目錄下用放置一個users.txt的文本文檔,格式:username,password,在dc上運行該腳本,即可以將users.txt的用戶信息批量添加到ad里面。可以通過移動或拖拽的方法,將生成的用戶移動到ou下面,以保證ou的組策略及文件夾重定向對該用戶生效。
 

 

復制代碼代碼如下:

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里面。 
 
發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 云阳县| 京山县| 搜索| 驻马店市| 南澳县| 石家庄市| 泽州县| 连南| 卢湾区| 林口县| 淮滨县| 昭通市| 富宁县| 禹州市| 恩施市| 安达市| 桂阳县| 石台县| 奉节县| 镇巴县| 沁水县| 辽源市| 南漳县| 肇庆市| 宿州市| 青田县| 汝阳县| 梨树县| 搜索| 文昌市| 博兴县| 涞水县| 临夏县| 江孜县| 全椒县| 湾仔区| 祁连县| 新巴尔虎右旗| 定州市| 乌兰察布市| 闵行区|