繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP.NET > 批量添加Active Directory帐号
- ASP.NET
- 在图片上加入图片版权信息
- Peer-to-Peer (P2P) communication across middleboxes（翻译4）
- 今天完成了.net compact framework 加 web service的演练.
- Cordbg, Dumpbin, Ildasm, 的一些教程。
- asp和asp.net的session共用
- VB连接SQL数据库的模块
- 消除图片在ie中缓存而无法更新的问题
- 说说使用static和const关键字
- 怎样解决thephile中的数据库由于排序造成的问题：对 text 数据类型不支持代码页转...
- .net分布式事务例子
- Internet Explorer 编程简述(二)
- 使用SqlParameter参数返回值时遇到的问题
- vb可不可以实现虚拟中断
- C#下Socket对象的BeginReceive方法，执行后竟然不调用AsyncCallback里的回调函数
- 坚持学asp.net：(十一)
- [C#][正则表达式]寻找匹配的Groups的几种方法
- 面向服务的体系结构概述
- Windows Form 和 UserControl
- VB中類模塊實現與C++中類實現的比較(1)
- 下载Oracle数据库中的Blob二进制文件，实例！
ASP.NET 中的 批量添加Active Directory帐号
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-03 浏览: 30 ::
收藏到网摘: n/a
将以下代码保存成bb.vbs文件。
Set objOU = GetObject("LDAP://CN=Users,dc=etunion,dc=com")
Const ForReading = 1Set objFSO = CreateObject("Scripting.FileSystemObject")Set objTextFile = objFSO.OpenTextFile("a.txt", ForReading)'文件格式'帐号,显示名称'如：test,测试' zhenghai,曾海
Do Until objTextFile.AtEndOfStream strNextLine = objTextFile.Readline arrList = Split(strNextLine, ",") Set objUser = objOU.Create("User", "cn=" & arrList(1)) objUser.Put "sAMAccountName", arrList(0) objUser.Put "DISPLAYName", arrList(1)
objUser.Put "description", "gz" objUser.SetInfo
Set objUser = GetObject("LDAP://cn=" & arrList(1) & ",cn=Users,dc=etunion,dc=com") objUser.SetPassword "chengming" Loop
然后在同一目录下新建一文本文件，命名为a.txt。
文件内容为:（注意，不要有空格）
test,测试zhenghai,曾海
在装了ad的windows 2000 server主机上运行vbs文件，即可加入。设置帐号的其它信息可参考msdn
评论 (0) All
