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

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文件后再运行时提示“一般性拒绝访问错误”,请求个中高手帮忙!
...全文
43 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
Haoye 2004-11-24
  • 打赏
  • 举报
回复
请教一下要怎么弄呢?
是是非非 2004-11-24
  • 打赏
  • 举报
回复
IIS的权限不够

28,390

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧