Vraag : verwijderde een computer uit een groep

Ik heb deze code gevonden en het willen wijzigen om te verwijderen in plaats van toevoeg.  Het zal ook een computer zijn die uit de groep, niet een gebruiker zal worden verwijderd als die merken enig verschil.  Hoe kon dit modifed om te werken zijn?
''
''' Methode om een gebruiker aan een group
'''
''' DirectoryEntry aan use
''' User DirectoryEntry aan use
''' Group Naam om gebruikersto
Openbare Gedeelde Sub (ByVal DE As DirectoryEntry, ByVal deUser als DirectoryEntry, ByVal GroupName als Koord)
Schemerige deSearch AddUserToGroup als DirectorySearcher toe te voegen = Nieuwe DirectorySearcher ()
deSearch.SearchRoot = de
deSearch.Filter = „(& (objectClass=group) (cn=“ & GroupName &“))„/> Schemerige resultaten
Schemerige isGroupMember deSearch.FindAll als Van Boole = False
als resultaten. Telling >/> Schemerige groep 0 Then
Schemerige leden Path)
voor Elk lid als Voorwerp in C (leden, IEnumerable)
Schemerig x aan als DirectoryEntry = Nieuwe (lid)
Schemerige naam DirectoryEntry als Koord = x.Name
als naam <> deUser.Name Then
isGroupMember = False
Else
isGroupMember =/> Volgende member
/>/> als (niet isGroupMember)/> groep Then de Groep van If
. Sluit ()/> het Eind Sub van If
Return

Antwoord : verwijderde een computer uit een groep

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

Privé Gedeelde SubRemoveUserFromGroup (userDn als Koord, groupDn als Koord)
	Schemerige proc als Proces = Process.Start („dsmod“, String.Format („groep "" {0} "" - rmmbr "" {1} """, groupDn, userDn))
	proc.WaitForExit ()
	Als proc.ExitCode <> 0 toen
		Console.WriteLine („kon geen gebruiker {0} uit groep {1} verwijderen“, userDn, groupDn)
	Eind als
Sub van het eind
Andere oplossingen  
 
programming4us programming4us