Создайте 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
CHill60
Есть ли у вас права администратора домена? Если нет, то вы ничего не можете сделать с папками других пользователей
NoMike2010
Я могу создать папку users и добавить соответствующие права с помощью этой процедуры.
Dim Path As String = dInfo.homedirectory & sUserName
Если Нет Directory.Exists(Path), То
Каталог.CreateDirectory(Путь)
Если Directory.Exists(Путь), То
Dim FolderInfo как IO.DirectoryInfo = новый ввод-вывод.DirectoryInfo(Путь)
Dim FolderAcl As New DirectorySecurity
Фолдеракл.AddAccessRule(New FileSystemAccessRule(UserAccount, FileSystemRights.Модификация, Наследование Лагов.ContainerInherit Или InheritanceFlags.ObjectInherit, PropagationFlags.Никто, Свойства Accesscontroltype.Позволять))
-Фолдеракл.SetAccessRuleProtection(истинные, ложные) 'раскомментируйте, чтобы удалить все существующие разрешения
FolderInfo.SetAccessControl(FolderAcl)
Конец, Если
Конец, если
У меня сложилось впечатление, что при добавлении свойства homedirectory папка
должно было быть создано автоматически, но это может быть неверно.