Создайте homedirectory в ad с помощью VB или C#

---

За исключением создания homedirectory этот код работает.
Может ли кто-нибудь дать мне правильный формат для homedirectory ценность?
этот человек дает мне правильные данные пользователя на странице профиля в AD
Свойства("homedirectory").Add("\\TestServer2\Home_Folders$\" & sUserName)
но папка users не создается на сервере members TestServer2.

Что я уже пробовал:

Public Sub CreateAdAccount(ByVal sUserName As String, ByVal sPassword As String, ByVal sFirstName As String, ByVal sLastName As String, ByVal sGroupName As String, ByVal Ou As String)
Try
' SaveTextToFile("1", AppLogPath)
Dim StrRoot As String = "LDAP://" & Ou & ""
Dim root As New DirectoryEntry(StrRoot)
Dim newUser As DirectoryEntry = root.Children.Add("CN=" & sUserName, "user")
SetProperty(newUser, "description", "Some Test")
SetProperty(newUser, "givenname", sFirstName)
SetProperty(newUser, "sn", sLastName)
SetProperty(newUser, "SAMAccountName", sUserName)
SetProperty(newUser, "DisplayName", Info.DisplayName)
SetProperty(newUser, "userPrincipalName", sUserName & "@TecGroup.org")
SetProperty(newUser, "mail", sUserName & "@TecGroup.org")
SetProperty(newUser, "homedrive", "H:")

'format wrong ?
'SetProperty(newUser, "homedirectory", "@\\TestServer2\Home_Folders$\%UserName%")
'newUser.Properties("homedirectory").Add("\\TestServer2\Home_Folders$\" & sUserName)

newUser.CommitChanges()

newUser.Close()
root.Close()
'write to log
SaveTextToFile(sUserName & " added to AD, password " & sPassword, AppLogPath)

Catch ExtendedErrorMessage As Exception
SaveTextToFile("Add User " & sUserName & " failed, Error " & ExtendedErrorMessage.Message, AppLogPath)
End Try
end sub

---