国产探花免费观看_亚洲丰满少妇自慰呻吟_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里面。

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

圖片精選

主站蜘蛛池模板： 墨竹工卡县| 祁门县| 遂平县| 贺州市| 遵化市| 三穗县| 师宗县| 清新县| 乌海市| 洛扎县| 搜索| 临沂市| 勐海县| 安平县| 满城县| 介休市| 左权县| 资阳市| 舞阳县| 上蔡县| 沐川县| 康平县| 洱源县| 安宁市| 济阳县| 黔西县| 比如县| 亚东县| 博乐市| 阜南县| 咸丰县| 云林县| 万盛区| 双鸭山市| 资源县| 翁牛特旗| 碌曲县| 修武县| 托里县| 永安市| 哈尔滨市|