Får ikke shared drev

Hejsa.

Jeg har et VBScript som skal oprette en masse brugere. Problemet er dog, at brugerne ikke får deres eget drev.

Ideen var at de skulle kunne gemme på \\Server\Users\"logonnavn"

Det eneste de får, er \\Server\Users\

Det er ikke meningen at de skal kunne se hinandens ting.

Mit script ser således ud:



' 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
strnavn = arrbrugere(2) &" " & arrbrugere(1)
'Her skal der følgende parameter erstattes:
'("LDAP://OU=Brugere,dc=Undervisning,dc=local")
Set objOU = GetObject("LDAP://OU=Brugere,dc=Undervisning,dc=local")
'det er her vi saetter brugeren + navnet
Set objUser = objOU.Create("User", "cn=" & strnavn )
objUser.Put "sAMAccountName", arrBrugere(0) & ""
objUser.Put "givenName","" & arrBrugere(2) & " "
objUser.Put "sn","" & arrBrugere(1) & " "
objUser.Put "displayName","" & arrBrugere(2) & " " & arrBrugere(1) & ""
objUser.Put "userPrincipalName", arrBrugere(0) & "@Undervisning"
'!!!! Her skal der lige sættes info Ellers er der ingen account at enable !!!!!
objUser.SetInfo
objUser.AccountDisabled = False

'objUser.SetPassword " & arrBrugere(3) "
objUser.SetInfo
'hvis du ikke har fjernet getobject, skal vi lige kalde brugeren med cn igen
Set objEditUser = GetObject _
("LDAP://cn=" & strnavn  & ",ou=Brugere,dc=Undervisning,dc=local")


'Her skal "Server" erstattes med den server hvor din "Profiler" mappe er oprettet
objEditUser.Put "homeDirectory", "\\elevserver01\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