Вопрос : извлекл компьютер от группы

Я находил это Кодего и хотел был бы доработать его для того чтобы извлечь вместо добавляю.  Это также будет компьютером извлекается от группы, не потребителем если то вносит изменения любой.  Как smogло это быть modifed для работы?
''

''' добавить потребителя к name= " de "
group
>DirectoryEntry к >User DirectoryEntry " deUser " name=
к имени >Group " GroupName " name=
для того чтобы добавить публику потребителя to
делил Sub
AddUserToGroup (ByVal de Как DirectoryEntry, deUser ByVal как DirectoryEntry, ByVal GroupName как шнур) затемняет deSearch как DirectorySearcher = новое
DirectorySearcher () deSearch.SearchRoot = de
deSearch.Filter = «(& (objectClass=group метод) (cn=» & GroupName & ")) «результаты
тусклые как isGroupMember
SearchResultCollection = deSearch.FindAll () тусклое Как булевское = False
если результаты. Отсчет > 0 Then
затемняет группу как новое DirectoryEntry (результаты (0).
Path) затемняет члены как предмет = группа. Призовите («члены», ничего)
для каждого члена как предмет в
CType (членов, IEnumerable) затемните x как DirectoryEntry = новое имя
DirectoryEntry (члена) тусклое как шнур = x.Name
если названное isGroupMember <> deUser.Name Then
= isGroupMember False
Else
= member
If
конца For
выхода True
следующее если (не isGroupMember) группа Then
. Призовите («добавьте», новый предмет () {deUser.Path.ToString ()}) группа If
конца
. Закройте () конец Sub If
Return
конца
class=

Ответ : извлекл компьютер от группы

попытайтесь это:

1: 2: 3: 4: 5: 6: 7:

Приватное, котор делят Sub RemoveUserFromGroup (userDn как шнур, groupDn как шнур) Тусклое proc как процесс = Process.Start («dsmod», String.Format («"" "" группы 0} {- """ "" rmmbr 1} {, groupDn, userDn)) proc.WaitForExit () Если proc.ExitCode <> 0 после этого Console.WriteLine («не smogл извлечь потребителя {0} от группы {1}», userDn, groupDn) Закончитесь если Закончите подводную лодку