Viele Benutzer per Script anlegen

[thorgood 10]

Hallo Flax!,

 

wenn du eine OU test angelegt hast und die Benutzer dort angelegt werden

sollen schreibe in Zeile 19

 

Set ouo = GetObject("LDAP://OU=test,DC=home,DC=local")

 

thorgood

[Flax! 10]

VIELEN dank muss jetzt nur noch bissl feinschliff machen... also an mein system anpassen z.b. anmeldung bei @..... local und so und passwort beim ersten ma aendern.

aber es funzt einwandfrei.

 

kannst du mir vielleicht auch noch was anderes sagen? kann ich eigentlich die benutzer auch statt aus ner .txt aus ner datenbank (mysql) auslesen lassen wie sie z.b. bei nem php board vorhanden ist?

[Linuxx 10]

Ja das ist möglich. Generell ist ja immer alles möglich :)

[Flax! 10]

Als erstes mal DAAAANNNNNKKKKKEEE bis jetzt funzt alles einwandfrei ausser das mit mitgliedschaft von einer gruppe.

 

Also wenn ich das richtig sehe hast du bis jetzt ein Copy & Paste gemacht aber das System dahinter noch nicht verstanden, daher denke ich das ich dir mal per PM mal auf die Sprünge helfe :) Ein Fazit schreibt dann einer von uns beiden hier ans Board :)

--> war nur eine seite vorher.

 

wo find ich denn das fazit??

 

kann mir da jemand weiter helfen?

Benutzer = Feld(1)
Vorname = Feld(1)
Nachname = Feld(0)
Passwort = Feld(2)
GroupObj = Feld(3)
Call BenuntzerAnlegen(Benutzer,Vorname,Nachname,Passwort,GroupObj)
...
...
...

' Die Gruppe wird gesucht und als Ziel definiert.
Set GroupObj = GetObject("" &"LDAP://" & _DomainString &"/"& GroupString &"")
' Der User wird in die entsprechende Gruppe integriert.
GroupObj.Add (""&"LDAP://"& _DomainString &"/"& UserString &"")
Set DomainObj = Nothing ' Variable wird frei gegeben '
Set GroupObj = Nothing ' Variable wird frei gegeben '

[Linuxx 10]

*schäm*

Ich kümmer mich diese Woche darum!!

[Flax! 10]

*schäm*

Ich kümmer mich diese Woche darum!!

 

keine panik.... eilt nich wirklich. muss mein lehrer halt noch ne woche warten ;-)

[latimer 10]

Hallo ich hoffe mein Beitrag wird von Thorgood gelesen.

Ich habe dein Script bei uns eingesetzt und es funzt auch sehr gut. Ich habe aber noch ein paar Probleme.

1. Wir legen die user immer folgendermassen an

 

Username: Mueller, Gerd dieser Eintrag wird von dieser Zeile im Script vorgenommen

 

Set b = ouo.Create("user", "CN=" & Nachname & " " & Vorname )

 

Wenn ich zwischen die Anführungszeichen in der Mitte jetzt ein Komma setze gibts eine Fehlermeldungen: Es wurde eine ungültigen dn-Syntax angegeben.

 

Die angegebene Zeile ist: b.SetInfo.

 

Ich hab absolut keine Ahnung wo da der Fehler liegt.

 

Zudem sind bei uns auch Terminalserver im Einsatz deshalb wäre der automatische Eintrag der WTS profile und Basisverzeichnisse auch Super.

 

Ich habe auch schon etwas gefunden aber es funzt nicht. Die Parameter sind wohl

 

TerminalServicesProfilePath =

TerminalServicesHomeDirectory =

TerminalServicesHomeDrive =

 

mit b.put geht da aber nix.

 

Also ich wäre dir (Thorgood) oder auch jedem anderen sehr dankbar wenn er mir weiterhelfen könnte.

 

In diesem Sinne Vielen Dank schon mal vorab.

[thorgood 10]

Hi latimer,

 

zu Frage 1 - probiere es mit einem Backslash vor dem Komma

Set b = ouo.Create("user", "CN=" & Nachname & "\, " & Vorname )

 

zu Frage 2 - geht meines Wissens nach nicht mit VBScript.

Du könntest mit Run am Ende des Scripts ein Tool aufrufen und die drei Einstellungen vornehmen

 

SystemTools TScmd

http://www.systemtools.com/free_frame.htm

 

thorgood

[latimer 10]

Fettes Merci an meinen Helden Thorgood

 

Hat natürlich sofort funktioniert.

 

Ich habe aber noch etwas gegoogelt und probiert und was gefunden.

 

Mit diesem Script kann mann die Terminaldienstprofilpfade, Terminaldienstebasisverzeichnisse und das Laufwerk setzen für alle user die sich in dem angegebenen Container bzw. OU befinden. Leider wird der Username aber noch nicht dahinter gesetzt.

 

Set colUsers = GetObject("LDAP://OU=Contractors,OU=Non Managed Accounts,OU=Accounts,DC=corp,DC=weyer,DC=pri")

For Each objUser In colUsers

'***************************************

'* Terminal Services Profile tab

'***************************************

objUser.AllowLogon = 1 ' Disabled = 0, Enabled = 1

objUser.TerminalServicesHomeDirectory = "\\Server\Share\User"

objUser.TerminalServicesHomeDrive = "t:"

objUser.TerminalServicesProfilePath = "\\Server\Profiles\User"

 

objUser.SetInfo

Next

 

Ich arbeite aber noch dran

[CoolAce 17]

Hy

 

sorry aber bekomm es einfach nicht hin,

 

mein skritp user.vbs

 

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(3)

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=Benutzer,DC=playboy83,DC=de")

Set b = ouo.Create("user", "OU=Benutzer" & Vorname & " " & Nachname)

Dim WshShell, ret

Set WshShell = WScript.CreateObject("WScript.Shell")

b.Put "sAMAccountName", Benutzer

b.Put "userPrincipalName", Benutzer & "@domaene.de"

b.Put "profilePath", "\\playboy83\daten\profile\" & Benutzer

b.Put "homeDirectory", "\\playboy83\daten\home\" & Benutzer

b.Put "homeDrive", "f:"

b.SetInfo

b.SetPassword Password05

b.AccountDisabled = False

b.SetInfo

WScript.Sleep(1000)

ret = WshShell.Run ("verz.cmd " & Benutzer,0,1)

End Sub

 

bekomme folgenden Fehler wenn ich des auf meinem XP client ausführe

Zeile 28. Es liegt eine Namensverletzung vor

 

wozu brauch ich verz.cmd

 

Danke und Gruß

 

Staltmair

[thorgood 10]

Hi,

 

versuchs mit

Set b = ouo.Create("user", "CN=" & Vorname & " " & Nachname)

statt

Set b = ouo.Create("user", "OU=Benutzer" & Vorname & " " & Nachname)

 

Die verz.cmd benötigst du nur wenn du auch Verzeichnisberechtigungen anlegen willst.

 

Einfach die Beiträge durchlesen. ;)

 

thorgood

[CoolAce 17]

hy

 

irgendwie klappt des noch nicht mit der Gruppe

User.txt

user1,Vorname 1,Nachname 1,PE,www,Org

user2,Vorname 2,Nachname 2,PW,www,Org

user3,Vorname 3,Nachname 3,PW,www,Org

 

User.vbs

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(3)

Mail = Feld(4)

GroupString = Feld(5)

Call BenuntzerAnlegen(Benutzer,Vorname,Nachname,Passwort,Mail)

Loop

f.Close

Wscript.Quit(0)

 

Sub BenuntzerAnlegen (Benutzer,Vorname,Nachname,Passwort,Mail)

Dim ouo, b

Set ouo = GetObject("LDAP://OU=Benutzer,DC=playboy83,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 & "@playboy83.de"

b.Put "mail", Mail & "@playboy83.de"

b.Put "profilePath", "\\windows2003dc\daten\profile\" & Benutzer

b.Put "homeDirectory", "\\windows2003dc\daten\home\" & Benutzer

b.Put "homeDrive", "f:"

b.Put "c", "DE"

b.Put "co", "DEUTSCHLAND"

b.Put "l", "Stadt"

b.Put "postalCode", "PLZ"

b.Put "postOfficeBox", "Postfach"

b.Put "st", "Bundesland"

b.Put "streetAddress", "Strasse Zeile 1" & vbCrlf & "Strasse Zeile 2" & vbCrlf

b.SetInfo

b.SetPassword Passwort

b.AccountDisabled = False

b.SetInfo

b.Put "pwdLastSet", 0

b.SetInfo

WScript.Sleep(1000)

ret = WshShell.Run ("verz.cmd " & Benutzer,0,1)

Set GroupObj = GetObject("" &"WinNT://playboy83" & _

windows2003dc &"/"& GroupString &"")

GroupObj.Add (""&"WinNT://"playboy83" & _

windows2003dc &"/"& Benutzer &"")

Set DomainObj = Nothing

Set GroupObj = Nothing

End Sub

 

Fehler

Zeile 48

Zeichen 28

´)´ erwartet

 

hat einer eine Idee

 

Gruß

 

CoolAce :cool:

[thorgood 10]

Ich kenne mich mit der WinNT Syntax nicht wirklich aus aber diese benötigt den

NetBios Namen der Domain ohne Serverangabe also vermutlich so:

...

Set GroupObj = GetObject("WinNT://playboy83/" & GroupString)

GroupObj.Add ("WinNT://playboy83/" & Benutzer)

...

 

thorgood

[CoolAce 17]

Hy,

 

vielen vielen Dank für deine hilfe. Es hat funktioniert (jubel jubel jubel) :D

 

 

 

Gruß

 

CoolAce :cool:

[CoolAce 17]

Hy,

 

kann der auch irgendwie mehrere Gruppen mit diesem Skript verarbeiten ??

 

Gruß

 

CoolAce