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

首頁 > 編程 > VBScript > 正文

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

2019-10-26 18:01:23
字體：大 中 小
來源：轉載
供稿：網友

復制代碼 代碼如下:

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里面。

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表

圖片精選

主站蜘蛛池模板： 剑川县| 崇文区| 张家口市| 教育| 南岸区| 博罗县| 吉安市| 抚松县| 黎平县| 巴青县| 普兰县| 舟曲县| 桂林市| 深泽县| 措勤县| 朝阳区| 南漳县| 辽宁省| 长葛市| 斗六市| 连江县| 临颍县| 格尔木市| 北安市| 遂溪县| 六盘水市| 台北县| 云龙县| 吉首市| 谷城县| 高邑县| 永顺县| 苏尼特左旗| 许昌县| 宜君县| 金昌市| 南岸区| 齐河县| 康保县| 马尔康县| 工布江达县|