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

首頁 > 編程 > VBScript > 正文

vbs下用一個(gè)小方法實(shí)現(xiàn)批量添加域用戶

2020-07-26 11:57:10
字體:
供稿:網(wǎng)友

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

發(fā)表評(píng)論 共有條評(píng)論
用戶名: 密碼:
驗(yàn)證碼: 匿名發(fā)表
主站蜘蛛池模板: 绥中县| 内江市| 射阳县| 德化县| 孝感市| 江城| 诸城市| 闽清县| 博白县| 安义县| 玉溪市| 景泰县| 大洼县| 上杭县| 济宁市| 广州市| 建瓯市| 南开区| 吴忠市| 盐池县| 江阴市| 驻马店市| 塔城市| 徐水县| 梓潼县| 大田县| 吉首市| 延安市| 桃园县| 绍兴市| 云和县| 双牌县| 永兴县| 山东省| 调兵山市| 贵德县| 天长市| 汨罗市| 隆德县| 申扎县| 沙湾县|