這個問題已經很多人問過了，這邊分享的是純 Windows 2003 AD 利用Script快速建立帳號的方式。

所謂的純 Windows 2003 AD 指的是網域功能等級以及樹系等級都要是2003
建新帳號一般來說都是利用編輯好的excel表格來把帳號一一匯入，
所以要先有excel表
表格的欄位必須是：account、name、HomePage、Address、title、description、Telephone
內容請自行編輯，但是資料表名稱一定要是：帳號清單
而且檔名一定要是：ACCOUNT.XLS
接下來才是script的內容：

Set conn=CreateObject("ADODB.Connection")
conn.Open "Driver={Driver do Microsoft Excel(*.xls)};DBQ=d:\account.xls;DriverID=278"
Set rs=CreateObject("ADODB.RecordSet")
SqlStr="SELECT * FROM ""帳號清單$"""
rs.Open SqlStr,conn,3,1
set oAD=GetObject("LDAP://rootDSE")
Set oDomain=GetObject("LDAP://AD主機名稱/OU=組織單位名稱," & oAD.Get("defaultNamingContext"))
Do Until rs.EOF
struser = rs("account")
If struser<>""then
Set oUser=oDomain.Create("User","CN="&struser)
oUser.Put "samAccountName", ""&struser
'(設定帳號名稱)

oUser.Put "displayName", ""&rs("name")
'(設定真實姓名)

oUser.Put "userPrincipalName",struser&"@ithelp.com.tw"
'(設定帳號中值)

oUser.Put "description",""&rs("description")
'(設定描述值)

'oUser.Put "wwwHomePage", ""&rs("HomePage")
'(設定網頁)

'oUser.Put "streetAddress", ""&rs("Address")
'(設定地址值)

'oUser.Put "title",""&rs("title")
'(設定職稱)

'oUser.Put "department",""&rs("department")
'(設定個人部門值)

'oUser.Put "TelephoneNumber", ""&rs("Telephone")
'(設定個人電話值)

oUser.Put "pwdLastSet",-1
'(設定密碼永久有效)
'(設定使用者必須在下次登入時變更密碼：0)

'oUser.Put "profilePath",""&struser
'設定使用者檔的路徑

'oUser.Put "homeDirectory",""&struser
'設定主資料夾 本機路徑...

'oUser.Put "homeDrive","T"
'(設定個人共用資料夾在T碟)

'oUser.Put "scriptPath","start.bat"
'登入指令檔，可依不同使用者作設定

'oUser.Put "maxStorage",10240
'(設定個人磁碟配額為10240)

oUser.SetInfo
'將上述值真正寫入AD中

'oUser.SetPassword ""&struser
'(更改個人密碼=帳號值，因前面動作時為放入密碼，此句一定要在oUser.SetInfo之後才可以，否則會執行有誤)

Usercount=Usercount+1

'下列主要宣告個人巡視設定檔在("D:\user\帳號)位置
'userprofile = "D:\user\" & struser
'userhome = "D:\data\" & struser

End If
rs.MoveNext
Loop
msgbox"成功建立"&Usercount&"個使用者！"
rs.Close
conn.close
set rs=nothing

請注意程式碼的第2行
第2行是要在AD上執行此script的路徑
其他的細項設定請自行修改