在Sharepoint Server中,因为用户信息较多,如果手动添加用户至活动目录将非常麻烦。在网络上找到一段vbs脚本可以批量添加用户到AD活动目录,代码:
Option Explicit
On Error Resume Next
'如果脚本运行不正常,请注释这一行,
Const ForReading=1
'设置fso打开文件的参数
Dim adsDomain,adsUser,fso,tsInputFile,strLine,arrInput,fldUserHomedir,wshShell,strUserNames,strDomain,strPC,strInputFile,strShare
MsgBox "本脚本用于从一个csv文件里面读取并创建本地用户,当然,也可以创建AD用户,请你自行修改源代码,用户列表源文件可以使用CSV文件,也可以自己编写,格式如下(用逗号隔开)"+vbCrlf+vbCrlf+"用户名,过期时间,用户描述,显示名称,密码"+vbCrlf+"user5,12/31/03,the 1st,user003,555555“
strDomain=InputBox("请输入域名或者所在的工作组,比如WORKGROUP、MyDomain",,"WORKGROUP")
strPC=InputBox("请输入计算机名,比如Tommy",,"phy-dc1")
strInputFile=InputBox("请输入保存用户列表的文件名:",,"UserList.csv")
strShare=InputBox("请输入保存用户配置文件的网络文件夹,比如\\DC1\Share\,不使用网络文件夹的请输入none,注意!!!路径要以“\”结尾",,"none")
。。。。。。
et adsUser=Nothing
Wend
tsInputFile.Close
WScript.Echo "账号创建成功,它们是: " & vbCrlf & vbCrlf & strUserNames & vbCrlf & "请手动修改网络文件夹中users目录的NTFS属性,去掉EveryOne的FC权利"
WSCript.Quit
但这段代码经多客测试存在一些错误,如下:
批量添加用户时不能读取csv文件的密码,因此密码为空,用户只能用空密码登陆系统。
批量添加用户后用户在AD中不能自动启动,需要手动启动,这也是很大的工作量啊。
批量添加时账户选项默认为“用户下次登陆需修改密码”,这种情况下用户在sharepoint系统中是没有办法登陆的,必须将账户选项更改为“密码永不过期”或者不选择账户选项中的任何一项。这个时候笔者尝试使用一款叫做admodify的软件来批量去掉或者更改账户选项。(该软件在”导出软件”文件夹中)
因为是vbs脚本语言,因此如果批量添加用户的话会导致服务器卡死。
由于代码质量不高(此脚本代码循环有问题)导致添加用户时出现偶数个用户(2、4、6、8……)出现提示“已存在,不能创建”
根据以上问题,重新修改代码:
阅读全文。。。