Opret bruger - Mangler hjemmedrev

Jeg har lavet et script som opretter en bruger, men den opretter ikke hjemme mappen.

Scriptet er som følger:

Const ADS_UF_DONT_EXPIRE_PASSWD = &H10000

sMessage = "Indtast sp nr på den elev der skal oprettes."
sTitle = "Indtast sp nr"
objSP = InputBox(sMessage, sTitle)
If objSP = "" Then
WScript.quit
End If
ssMessage = ""
ssTitle = ""

sMessage = "Indtast fornavn på den elev der skal oprettes."
sTitle = "Indtast fornavn"
objFirstName = InputBox(sMessage, sTitle)
If objFirstName = "" Then
WScript.quit
End If
ssMessage = ""
ssTitle = ""

sMessage = "Indtast efternavn på den elev der skal oprettes."
sTitle = "Indtast efternavn"
objLastName = InputBox(sMessage, sTitle)
If objLastName = "" Then
WScript.quit
End If

Set objRootDSE = GetObject("LDAP://rootDSE")
Set objContainer = GetObject("LDAP://OU=SKP," & _
objRootDSE.Get("defaultNamingContext"))
Set usr = objContainer.Create("user", "CN=" & objSP)
usr.Put "sn", objLastName
usr.Put "samAccountName", objSP
usr.Put "givenName", objFirstName
usr.Put "Description", objFirstName&" "&objLastName
usr.Put "userPrincipalName", objSP&"@domain.local"
usr.SetInfo
Usr.AccountDisabled = False
usr.SetPassword "123qwAS"
usr.LoginScript = "drev.bat"
usr.fullname = objFirstName&" "&objLastName
usr.SetInfo
intUAC = usr.Get("userAccountControl")
usr.Put "userAccountControl", intUAC XOR ADS_UF_DONT_EXPIRE_PASSWD
usr.SetInfo
Usr.Homedirectory = "\\192.168.0.1\elev$\"&objSP
Usr.Homedrive = "Z:"
usr.SetInfo
Set grp = GetObject("WinNT://domain/_Alle")
grp.Add ("WinNT://domain/"&objSP)
Set grp = GetObject("WinNT://domain/_Elever")
grp.Add ("WinNT://domain/"&objSP)
Set grp = GetObject("WinNT://domain/Elever")
grp.Add ("WinNT://domain/"&objSP)