Oprette flere brugere vha vbs script

Hejsa.

Jeg har får fat i et vbs script, som skal bruges til at oprette brugere med. Jeg kan sagtens oprette brugerne og tildele dem et drev. Desværre er det sådan, at brugerne ikke kan logge på serveren.

1) Der står ikke deres initialer i "User Logon Name"

2) Jeg vil gerne at brugerene selv skal ændre password første gang de logger på.

3) De får godt nok tildelt et drev, men det bliver ikke oprettet på serveren (eks. \\testsrv01\users\hha)

Hermed mit script:

' VBScript source code
Const INPUT_FILE_NAME = "C:\Brugere.txt"
'Her er navnet og placering for tekstfilen
Const FOR_READING = 1


Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile(INPUT_FILE_NAME, FOR_READING)
MsgBox "Der oprettes brugere....."
Do While objTextFile.AtEndOfStream <> True

strTextline = objTextFile.Readline
If inStr(strTextline, ",") > 0 Then
arrBrugere = split(strTextline, ",")
'Wscript.Echo "Brugernavn: " & arrBrugere(0)
'Wscript.Echo "Efternavn: " & arrBrugere(1)
'Wscript.Echo "Fornavn: " & arrBrugere(2)
'Wscript.Echo "Password: " & arrBrugere(3)



'For Each strBrugere In arrBrugere

'Her skal der følgende parameter erstattes:
'("LDAP://OU=Brugere,dc=test,dc=local")
Set objOU = GetObject("LDAP://OU=Brugere,dc=test,dc=local")
Set objUser = objOU.Create("User", "cn=" & arrBrugere(0))
objUser.Put "sAMAccountName", arrBrugere(0) & "$"
objUser.Put "givenName","" & arrBrugere(2) & " "
objUser.Put "sn","" & arrBrugere(1) & " "
objUser.Put "displayName","" & arrBrugere(1) & ", " & arrBrugere(2) & ""

'objUser.SetPassword "" & arrBrugere(3) "
objUser.SetInfo

Set objEditUser = GetObject _
("LDAP://cn=" & arrBrugere(0) & ",ou=Brugere,dc=test,dc=local")

objEditUser.SetPassword "test" & arrBrugere(3) & " "

'Her skal "Server" erstattes med den server hvor din "Profiler" mappe er oprettet
objEditUser.Put "homeDirectory", "\\testsrv01\users\" & arrBrugere(0)
objEditUser.Put "homeDrive", "Z:"
objEditUser.AccountDisabled = FALSE
objEditUser.SetInfo
End If
Loop
objTextFile.Close
Wscript.Echo "Alle brugere er oprettet!"
Wscript.Quit



Her min textfil:

hha,Hansen,Hans,password
jje,Jensen,Jens,password
ppe,Petersen,Peter,password
jjo,Johnsen,John,password