在域中用脚本创建用户时出错,请求帮助

Haoye 2004-11-24 02:36:41
在WIN2K SERVER 域中使用下面的脚本来创建用户:
<%
Option Explicit

Dim objFSO,objFile,ObjContainer,objUser
Dim strCsvFile,strCsvFileContents,strContainer,strRecord
Dim arrRecords,arrFields
Dim strUser,strFirstName,strLastName,strDescription
Dim strAddress,strCity,strState,strZip,strTelephone,strPassword

Const ForReading=1

strCsvFile="c:\inetpub\wwwroot\User.csv"
strContainer="ou=MyOU,dc=gzcad,dc=gov,dc=cn"

Set objFSO=CreateObject("Scripting.FileSystemObject")
Set objFile=objFSO.OpenTextFile(strCsvFile,ForReading)
strCsvFileContents=objFile.ReadAll
objFile.Close

arrRecords=Split(strCsvFileContents,vbCrLf)

Set objContainer=GetObject("LDAP://" & strContainer)

For Each strRecord In arrRecords
arrFields=Split(strRecord,",")
strUser=arrFields(0)
strFirstName=arrFields(1)
strLastName=arrFields(2)
strDescription=arrFields(3)
strAddress=arrFields(4)
strCity=arrFields(5)
strState=arrFields(6)
strZip=arrFields(7)
strTelephone=arrFields(8)
strPassword=arrFields(9)

Set objUser=objContainer.Create("User","cn=" & strUser)
objUser.Put "sAMAccountName",strUser
objUser.Put "givenName",strFirstName
objUser.Put "sn",strLastName
objUser.Put "description",strDescription
objUser.Put "streetAddress",strAddress
objUser.Put "l",strCity
objUser.Put "st",strState
objUser.Put "postalCode",strZip
objUser.Put "telephoneNumber",strTelephone
objUser.SetInfo

objUser.SetPassword strPassword
objUser.AccountDisabled=False
objUser.SetInfo
Set objUser=Nothing
Next
%>
在第一次运行时成功创建,之后改csv文件后再运行时提示“一般性拒绝访问错误”,请求个中高手帮忙!
...全文
21 点赞 收藏 2
写回复
2 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
Haoye 2004-11-24
请教一下要怎么弄呢?
回复
是是非非 2004-11-24
IIS的权限不够
回复
相关推荐
发帖
ASP
创建于2007-09-28

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
帖子事件
创建了帖子
2004-11-24 02:36
社区公告
暂无公告