windows2003server中如何批量創(chuàng)建域用戶?

blackdir

單位人員200人,,現(xiàn)要為每個人創(chuàng)建2003域的用戶帳號,工作量很大,能否從Excel,或者是Access中把帳號的信息一次性導入域,一次性創(chuàng)建200個域帳號,急,請高手指點.

devilman

Option Explicit

Dim objFSO,objFile,objContainer,objuser,i
Dim StrCsvFile,strCsvfileContents,strContainer,strRecord
Dim arrRecords,arrFields
Dim struser,strFirstName,strLastName,strDescription
Dim strAddress,strCity,StrState,strZip,strTelephone,strPassword

Const ForReading=1

\'BEGIN CALLOUT A
strCsvFile=\"d:\\user.csv\"
strContainer=\"ou=test,dc=xuanyuan\"
\'END CALLOUT A

\'BEGIN CALLOUT B
Set objFSO=CreateObject(\"Scripting.FileSystemObject\"
Set objFile=objFSO.OpenTextFile(strCsvFile,ForReading)
strCsvFileContents=objFile.ReadAll
objFile.Close
\'END CALLOUT B

\'BEGIN CALLOUT C
arrRecords=Split(strCsvFileContents,vbcrLf)
\'END CALLOUT C

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

For Each strRecord in arrRecords

\'BEGIN CALLOUT D
arrFields=Split(strRecord,\",\"
i=LBound(arrFields)
struser=arrFields(i)
MsgBox struser
\'strFirstName=arrFields(1)
\'strLastName=arrFields(2)
strDescription=arrFields(i+1)
MsgBox strDescription　’在這里都能顯示出正確的內(nèi)容
\'strAddress=arrFields(4)
\'strCity=arrFields(5)
\'strState=arrFields(6)
\'strZip=arrFields(7)
\'strTelephone=arrFields(
\'strPassword=df46GH57
\'END CALLOUT D

\'BEGIN CALLOUT E
Set objuser=objContainer.Create(\"User\",\"cn=\" & struser)
objuser.Put \"sAMAccountName\",struser
\'objuser.Put \"givenName\",strFirstName
objuser.Put \"givenName\",struser
\'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 1234
objuser.AccountDisabled=False
objuser.Setinfo

Set objuser=Nothing
\'END CALLOUT E

liuzesheng

這是實現(xiàn)問題的代碼嗎？