MCSE技术论坛

脚本和CSV都在附件里
谢谢.

错误提示

windows 脚本宿主
脚本: c:\0716.vbs
行:    12
字符: 1
错误: 在服务器上没有这样一个对象
代码: 80072030
源:    (null)


Const ForReading = 1
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile _
("c:\0716.csv", ForReading)
Do Until objTextFile.AtEndOfStream
strNextLine = objTextFile.Readline
arrServiceList = Split(strNextLine , ",")

strC&arrServiceList(10)
Set objRootDSE = GetObject("LDAP://rootDSE")
Set objContainer = GetObject("LDAP://" & strContainer & "," & _
objRootDSE.Get("defaultNamingContext"))
Set objUser = objContainer.Create("user", "cn=" & arrServiceList(0))
objUser.Put "sAMAccountName", arrServiceList(0)
objUser.SetInfo
objUser.Put "givenName", arrServiceList(1)
objUser.SetInfo
objUser.Put "sn", arrServiceList(2)
objUser.SetInfo
objUser.Put "office", arrServiceList(3)
objUser.SetInfo
objUser.Put "department", arrServiceList(4)
objUser.SetInfo
objUser.Put "TelephoneNumber", arrServiceList(5)
objUser.SetInfo
objUser.Put "Title", arrServiceList(6)
objUser.SetInfo
objUser.Put "mobile", arrServiceList(7)
objUser.SetInfo
objUser.Put "mail", arrServiceList(8)
objUser.SetInfo
objUser.Put "company", arrServiceList(9)
objUser.SetInfo
objUser.Put "OU", arrServiceList(10)
objUser.SetInfo
objUser.Put "password", arrServiceList(11)
objUser.SetInfo
objUser.Put "streetAdress", arrServiceList(12)
objUser.SetInfo

Loop

附件: pack.zip

关于脚本的问题请发到脚本版块区，steven版主会为您解决关于脚本的问题！

如果你愿意，可以试试本论坛活动目录用户数据导入工具http://www.mcse.org.cn/showtopic-1124.html！

或者你可以试试用for命令实现用户批量导入，请参阅http://www.mcse.org.cn/showtopic-1087.html

可以帮我移动一下主题吗? 谢谢

我搞这么复杂就是为了同时创建N个用户,同时把属性也设好.论坛做的那个只能创建用户,不能设定地址/邮件等属性.
用for的话就更没意思了.:default5:

我的积分啊:default4:

为什么说for没意思呢？我个人认为使用for+dsadd+csv是最好的方法之一。