批量添加Active Directory帐号

王朝other·作者佚名  2006-01-09
窄屏简体版  字體: |||超大  

将以下代码保存成bb.vbs文件。

Set objOU = GetObject("LDAP://CN=Users,dc=etunion,dc=com")

Const ForReading = 1

Set 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

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航