批量添加Active Directory帐号

将以下代码保存成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