Viele Benutzer per Script anlegen

[Thomas]

Hallo

Ich möchte in einer Schule 400 Benutzer mit einem Script anlegen, ich hab in diesem Forum auch schon ein schönes Script gefunden (von thorgood), aber ich würde diese Benutzer gerne aus einem textfile importieren und auch das Passwort aus diesem Textfile auslesen lassen, hat das schon mal einer gemacht? Danke.

[thorgood]

Hallo Thomas,

wie sieht denn die Struktur deines Textfiles aus.
Wie sind die Felder der Datensätze getrennt.

thorgood

[Thomas]

Wow hab ich ein Glück das gerade du online bist thorgood :-)
Das Textfile gibt es noch nicht, ich denke aber am ehesten ein kommabasierendes Textfile, was meinst du?

[Thomas]

Ich hab auch in meinen Unterlagen gesehen das man diese Textfiles mit einem Script und einer Loopbackfunktion auslesen kann, aber da kenn ich mich einfach zu wenig aus, vielleicht hast du ja einen Tipp.

[thorgood]

Ich könnte dir morgen früh in der Firma ein angepasstes Script hier reinstellen.
Wenn du noch sagen könntest welche Benutzereigenschaften du anlegen willst
mach ich es soweit fertig das du nur noch deine lokalen Einstellungen eintragen musst.
Und ist das für AD oder eine NT 4 Domäne.

thorgood

[Thomas]

Hey super, eigentlich ist es genau das erste Script das du schon einmal ins Forum geschrieben hast,
OU, Benutzername, Profilepfad, Homedirektory, Homedrive, und eben ganz wichtig das Passwort, wenn du vielleicht noch einen Tipp hättest wie man die Ordner für Profil und Homedirectory anlegen könnte bin ich dir echt was schuldig.
Der Server ist ein Win2003 DC.

[thorgood]

Gerne, dann bis morgen.

thorgood

[brwic]

morgen ihr beiden,
ich waere auch sehr an dem skript interessiert. ansonsten schließe ich mich den danksagungen von thomas natuerlich an

[thorgood]

1. Teil eure user.txt
---
user1,Vorname 1,Nachname 1,pwd1
user2,Vorname 2,Nachname 2,pwd2
---

2. Teil - VB Script
---
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)
Vorname = Feld(1)
Nachname = Feld(2)
Passwort = Feld(2)
Call BenuntzerAnlegen(Benutzer,Vorname,Nachname,Passwort)
Loop
f.Close
Wscript.Quit(0)

Sub BenuntzerAnlegen (Benutzer,Vorname,Nachname,Passwort)
Dim ouo, b
Set ouo = GetObject("LDAP://OU=user,DC=domaene,DC=de")
Set b = ouo.Create("user", "CN=" & Vorname & " " & Nachname)
Dim WshShell, ret
Set WshShell = WScript.CreateObject("WScript.Shell")
b.Put "sAMAccountName", Benutzer
b.Put "userPrincipalName", Benutzer & "@domaene.de"
b.Put "profilePath", "\\server\daten\profile\" & Benutzer
b.Put "homeDirectory", "\\server\daten\home\" & Benutzer
b.Put "homeDrive", "U:"
b.SetInfo
b.SetPassword Passwort
b.AccountDisabled = False
b.SetInfo
WScript.Sleep(1000)
ret = WshShell.Run ("verz.cmd " & Benutzer,0,1)
End Sub
---

3. Teil - Verz.cmd
---
md \\server\daten\home\%1
echo J | cacls \\server\daten\home\%1 /C /E /G Administratoren:F
echo J | cacls \\server\daten\home\%1 /C /E /G domaene\%1:F
echo J | cacls \\server\daten\home\%1 /C /E /R Jeder
md \\server\daten\profile\%1
echo J | cacls \\server\daten\profile\%1 /C /E /G Administratoren:F
echo J | cacls \\server\daten\profile\%1 /C /E /G domaene\%1:F
echo J | cacls \\server\daten\profile\%1 /C /E /R Jeder
---

_______
thorgood

[Thomas]

Hallo, danke für das Script, habs schon ausprobiert, aber es gibt leider noch ein Problem in Zeile19 Zeichen 1, ich weiß nicht was das sein könnte?