在域中用脚本创建用户时出错,请求帮助
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文件后再运行时提示“一般性拒绝访问错误”,请求个中高手帮忙!