Vraag : voeg gebruiker aan groep toe

Ik heb de volgende code om een gebruiker uit een groep te verwijderen.  Hoe verandert u dit om een gebruiker toe te voegen?  Zal dit werk zuiveren als ik dit in een lijn roep die het 10-20 keer zou kunnen snel roepen?

Private deelde Sub (userDn als Koord, groupDn als Koord)
Schemerige proc RemoveUserFromGroup als Proces = Process.Start („dsmod“, String.Format („groep "" {0} "" - rmmbr "" {1} """, groupDn, userDn))
proc.WaitForExit ()
als proc.ExitCode <> 0 Then
Console.WriteLine („kon geen gebruiker {0} uit groep {1} verwijderen“, userDn, groupDn)
Eind If
End Sub

Antwoord : voeg gebruiker aan groep toe

ja.
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:

 _
Gedeelde Overheidsfunctie ShowWindow (hWnd als IntPtr, nCmdShow als Geheel) zoals Van Boole
De Functie van het eind

Privé Gedeelde SubAddUserToGroup (userDn als Koord, groupDn als Koord)
	Schemerige exitCode als Geheel = StartBackgroundProcess („dsmod“, String.Format („groep "" {0} "" - addmbr "" {1} """, groupDn, userDn))
	Als exitCode <> 0 toen
		Console.WriteLine („kon geen gebruiker {0} uit groep {1} verwijderen“, userDn, groupDn)
	Eind als
Sub van het eind

Privé Gedeelde SubRemoveUserFromGroup (userDn als Koord, groupDn als Koord)
	Schemerige exitCode als Geheel = StartBackgroundProcess („dsmod“, String.Format („groep "" {0} "" - rmmbr "" {1} """, groupDn, userDn))
	Als exitCode <> 0 toen
		Console.WriteLine („kon geen gebruiker {0} uit groep {1} verwijderen“, userDn, groupDn)
	Eind als
Sub van het eind

Privé Gedeelde Functie StartBackgroundProcess (procPath als Koord, cmdLine als Koord) als Geheel
	Schemerig psi als Nieuwe ProcessStartInfo (procPath, cmdLine)
	psi.WindowStyle = ProcessWindowStyle.Hidden
	psi.CreateNoWindow = Waar
	psi.UseShellExecute = Vals

	Schemerige proc als Proces = Process.Start (psi)
	ShowWindow (proc.MainWindowHandle, 0)
	proc.WaitForExit ()
	Terugkeer proc.ExitCode
De Functie van het eind
Andere oplossingen  
 
programming4us programming4us