This may help some with a bit of modification to suit your setup.
Reads from a excel workbook. I had the user names/passwords etc given to me so it doesnt do that, only adds them to an ou in AD. You will have to change paths/domains/ etc but its a start
'User names etc must be on sheet1 of the workbook. The columns can be in any order - adjust the Cells value below to suite.
'An OU must be created on the server - the script wont do it!!
'Usage
'Copy the this script and the user Excel workbook to the server and double click to run.
' Possible Edits
'---------------------------------------------------------------------------------------------------
'objExcel.Cells(intRow, 5) = 5 is the column number to read.
'("C:\Scripts\New_users.xls") = Path to the Excel workbook
'ou=NewUser, = choose an OU to suite, I addthem to "NewUsers" then moved them later.
'---------------------------------------------------------------------------------------------------
'open workbook
Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open ("C:\Scripts\New_users.xls")
'int to count rows
intRow = 1
'loop until end of sheet1 adding the users to AD
Do Until objExcel.Cells(intRow,1).Value = ""
'set up the user
Set objOU = GetObject("LDAP:// ou=NewUsers, dc=elginacad, dc=edu, dc=uk")
Set objUser = objOU.Create("User", "cn=" & objExcel.Cells(intRow, 5).Value)
objUser.Put "sAMAccountName", objExcel.Cells(intRow, 5).Value 'samaccount name eg LawsoE
objUser.Put "userPrincipalName", objExcel.Cells(intRow, 5).Value ' account name eg LawsoE
objUser.sn = objExcel.Cells(intRow, 4).Value ' users Surname
objUser.givenname = objExcel.Cells(intRow, 3).Value 'users Forename
objUser.displayname = objExcel.Cells(intRow, 3).Value & " " & objExcel.Cells(intRow, 4).Value ' Forename and Surname
objUser.SetInfo
'set users password properties
objUser.ChangePassword "",objExcel.Cells(intRow, 7).Value ' users Password
objUser.userAccountControl = 65536
objUser.AccountDisabled = FALSE
objUser.SetInfo
'set users profile properties
objUser.Put "homeDirectory", "\\primergy\users\%username%"
objUser.Put "homeDrive", "U:"
objUser.Put "profilePath", "\\primergy\Profile\%username%"
objUser.Put "scriptPath", "login.bat"
objUser.SetInfo
intRow = intRow + 1
Loop
'display msg box when finished
MsgBox "Done"
'quit Excel
objExcel.Quit