批量添加Active Directory帐号

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

Set objOU = GetObject("LDAP://CN=Users,dc=domain,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=domain,dc=com")
    objUser.SetPassword "cm"
   
Loop

然后在同一目录下新建一文本文件，命名为a.txt。

文件内容为:（注意，不要有空格）

test,测试
zhenghai,曾海

在装了ad的windows 2000 server主机上运行vbs文件，即可加入。

设置帐号的其它信息可参考msdn