USing scripts to add multiple users

[Herrona]

I am new to Server 2000 and have witten a VBscript to add all the user info to a new user that I need for the moment, I thought I would be clever and mail-merge the script to a spreadsheet so I could add all the users at once, The script works perfectly as long as I only add one user at a time, kind of defeats the point, How do I modify the following script to allow it to run again for the next users?

Set objOU = GetObject("LDAP://OU=«Organisational_Unit»,dc=«DomainName»,dc=«netaddress»&quot
Set objUser = objOU.Create("User", "cn=«Username»&quot
objUser.Put "sAMAccountName", "«Username»"
objUser.SetInfo
Set objUser = GetObject _
("LDAP://cn=«Username»,ou=«Organisational_Unit»,dc=«DomainName»,dc=«netaddress»&quot
objUser.SetPassword "«Password»"
Set objUser = GetObject _
("LDAP://cn=«Username»,ou=«Organisational_Unit»,dc=«DomainName»,dc=«netaddress»&quot
objUser.AccountDisabled = FALSE
objUser.SetInfo
Const ADS_PROPERTY_UPDATE = 2
Set objUser = GetObject _
("LDAP://cn=«Username»,ou=«Organisational_Unit»,dc=«DomainName»,dc=«netaddress»&quot
objUser.Put "userPrincipalName", "«Username»@«DomainName».«netaddress»"
objUser.Put "givenName", "«FirstName»"
objUser.Put "initials", "«Initials»"
objUser.Put "sn", "«Surname»"
objUser.Put "displayName", "«Surname», «FirstName»"
objUser.Put "telephoneNumber", "«Telephone»"
objUser.Put "mail", "«email»"
objUser.Put "

http://wWWHomePage",

"

http://www.leedslearning.net"

;;
objUser.AccountExpirationDate = "01/01/1970"
objUser.PutEx ADS_PROPERTY_UPDATE, _
"description", Array("«description»&quot
objUser.SetInfo
Set objUser = GetObject _
("LDAP://cn=«Username»,ou=«Organisational_Unit»,dc=«DomainName»,dc=«netaddress»&quot
objUser.Put "profilePath", "\\«servername»\Profiles$\«Username»"
objUser.Put "scriptPath", "«scriptname»"
objUser.Put "homeDirectory", "\\«servername»\«Username»"
objUser.Put "homeDrive", "«homedrive»"
objUser.SetInfo
Set objUser = GetObject _
("LDAP://cn=«Username»,ou=«Organisational_Unit»,dc=«DomainName»,dc=«netaddress»&quot
objUser.Put "streetAddress", "«address_1»" & _
VbCrLf & "«localarea»"
objUser.Put "l", "«town»"
objUser.Put "st", "«county»"
objUser.Put "postalCode", "«postcode»"
objUser.Put "c", "«country»"
objUser.SetInfo
Set obj«Username» = CreateObject("Scripting.FileSystemObject&quot
Set objFolder = obj«Username».CreateFolder("D:\users\«Yeargroup»\«Username»&quot
Const FILE_SHARE = 0
Const MAXIMUM_CONNECTIONS = 5
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2&quot
Set objNewShare = objWMIService.Get("Win32_Share&quot
errReturn = objNewShare.Create _
("D:\users\«Yeargroup»\«Username»", "«Username»", FILE_SHARE, _
MAXIMUM_CONNECTIONS, "«sharedescription»&quot
Wscript.Echo errReturn

Note the <<TEXT>> parts are merge fields
if there is one user in the spreadsheet this works but more than one and it fails, Please help.

The script was compiled from the sample scripts downloadable at microsofts Script Center