www.IT-Visions.de-Diskussionsforen (Version 2.1)
(Diese Seite wurde noch nicht auf das neue Layout umgestellt!)


Diese Foren stehen den Lesern unserer Bücher und allen anderen registrieren Benutzern dieser Website zur Verfügung. Wir würden uns freuen, wenn viele Nutzer dieser Website hier nicht nur Fragen stellen, sondern auch die Fragen anderer Nutzer beantworten. Diese Foren sind ein ehrenamtlicher, nicht-kommerzieller, unmoderierter Community-Dienst von www.IT-Visions.de. Wenn Sie kommerzielle Unterstützung für .NET/Scripting/PowerShell suchen, schauen Sie bitte auf unser Support-Angebot und unsere Schulungsangebote für Scripting und Schulungsangebote für .NET.



W3K Server Gruppe mit Benuztern füllen
Autor:  darkman203
E-mail:  Antworten bitte nur in das Forum!
Datum:  19.01.2005 14:01:33
Subject:  W3K Server Gruppe mit Benuztern füllen
Bezug zum Buch: 
Message:  Ich möchte die Benutzer aus einer .txt Datei auslesen und anschließend die Benutzer in eine Gruppe mit aufnehmen.
Also die Benutzernamen neme ich mir über den Vornamen der Testdatei was soweit auch funtioniert.
Aber wie schaffe ich es jetzt das bei Neue Gruppe erstellen nur einmal die Gruppe Praxis erstellt wird und danach die Benutzer nacheinander der Gruppe zugeordnet werden.
Im Augenblick wird halt nur die Gruppe erstellt und der User1 hinzugefügt.




Dim fso, f, Zeile, Feld
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile ("user.txt",1,0)

Do while not f.AtEndOfLine
Zeile = f.readLine
Feld = split(Zeile,",")

Benutzer = Feld(0)      'Der Login Name
Vorname = Feld(1)       'Der Name der im AD gelistet wird

Loop
f.Close


Neue_Gruppe


Sub Neue_Gruppe()

' --- Gruppe erstellen

Set oDomain = GetObject("WinNT://Praxis")
Set oGroup = oDomain.Create("group", "Testgruppe")
oGroup.Put "Grouptype", 4 ' 4 = Lokale Gruppe
oGroup.SetInfo

' --- Gruppe füllen
oGroup.Add "WinNT://Praxis/user1"



End Sub


Antworten

  Zurück zum Forum



 Klassische Programmierung (Scripting, COM) -- Windows Scripting, VBScript, VB6, u.a.
 W3K Server Gruppe mit Benuztern füllen von darkman203  am 19.1.2005 2:01:33 PM


www.IT-Visions.de - Dr. Holger Schwichtenberg / 1998-2019