Jump to content

Viele Benutzer per Script anlegen


Der letzte Beitrag zu diesem Thema ist mehr als 180 Tage alt. Bitte erstelle einen neuen Beitrag zu Deiner Anfrage!

Empfohlene Beiträge

Moin zusammen!

Erstmal vielen dank für das sehr geile script an thorgood!

Habe es ein wenig modifiziert und versuche gerade,

den Haken "Benutzer muss Kennwort bei nächster Anmeldung ändern" via vb-script zu aktivieren.

Leider bisher ohne erfolg (aber auch ohne fehlermeldung).

Habe mich streng an folgendes gehalten:

 

Set usr = GetObject("LDAP://CN=Jeff Smith,OU=Sales,DC=Fabrikam,DC=Com")
usr.Put "pwdLastSet", CLng(0)
usr.SetInfo

 

MSDN-URL

 

doch leider funzt das nicht :(

 

Hat jemand ne idee oder nen beispiel, im dem das geht und der haken anschließend aktiviert ist?

[EDIT]

Problem gelöst... der Haken kann natürlich nur gesetzt werden, nachdem der User erstellt wurde...

[/EDIT]

Link zu diesem Kommentar

Hallo,

 

das Script funktioniert soweit tadellos (Windows Server2003). Allerdings wird der Basisordner (Homeverzeichnis) nicht angelegt. Der Eintrag im Benutzerprofil stimmt soweit - damit das Verzeichnis erstellt wird muß man aber den Eintrag nochmals editieren, erst dann wird das Verzeichnis erstellt. Hat jemand dafür eine Lösung?

 

Wäre sehr hilfreich, da es ein wenig nervig ist jeden Benutzer nochmals einzeln anzuwählen.

 

Dank im Voraus!

Link zu diesem Kommentar

Hallo,

 

hab das Script auch mal versucht und hab noch ein Problem:

 

Script: c:\create_user.vbs

Line: 26

Char: 1

Error: The Object Already Exists.

Code: 80071392

Soure: (null)

 

Hier mein Script in leicht geändertert Form:

 

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=itforum,DC=OS52,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 & "@itforum.os52.de"

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

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

b.Put "homeDrive", "H:"

b.SetInfo

b.SetPassword Passwort

b.AccountDisabled = False

b.SetInfo

WScript.Sleep(1000)

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

End Sub

 

Hat jemand vielleicht nen Tip

 

Danke

und grüsse

ghostr

Link zu diesem Kommentar
  • 3 Wochen später...

Servus, hab da auch noch ein Problem. Das Script funtioniert ja wunderbar, aber ich will keinen Profilpfad für das Home Verzeichnis mitgeben

 

b.Put "profilePath", "\\Server\profile\" & Benutzer

b.Put "homeDirectory", "\\Server\home\" & Benutzer

b.Put "homeDrive", "H:"

 

, sondern für ein Terminalverzeichnis.

 

Ich hab nur leider kein Ahnung, was ich in die Hochkommas schreiben soll, daß er mir diese Pfade in die Terminaldienstprofile setzt.

Link zu diesem Kommentar
  • 1 Monat später...

das script funktioniert ... aber er holt mir nur die erste zeile aus der user.txt datei ..warum das möchte doch mehr als nur einen user im ad einrichten kannst du mir da weiterhelfen.

hier meine email.. gc@giuse.de

bis bald

 

 

Original geschrieben von 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

Link zu diesem Kommentar
  • 2 Wochen später...

Hallo Zusammen.

 

Habe da ein kleines Problem.

 

Das Script ist soweit ganz schön, nur benötige ich leider

noch für das Erstellen weiterer Parameter, wie zB. Organisation und Country, noch die LDAP Werte.

Ich müsste auch noch zusätzlich einen Exchange Mailaccount pro Benutzer anlegen.

 

Meine Frage: Gibt es hierfür einen gut verständliche Script Quelle?

 

Wäre Super wenn mir einer Antworten würde - Schonmal

Vielen Dank.

 

Gruß, Big-Mac_01

Link zu diesem Kommentar
Der letzte Beitrag zu diesem Thema ist mehr als 180 Tage alt. Bitte erstelle einen neuen Beitrag zu Deiner Anfrage!

Schreibe einen Kommentar

Du kannst jetzt antworten und Dich später registrieren. Falls Du bereits ein Mitglied bist, logge Dich jetzt ein.

Gast
Auf dieses Thema antworten...

×   Du hast formatierten Text eingefügt.   Formatierung jetzt entfernen

  Only 75 emoji are allowed.

×   Dein Link wurde automatisch eingebettet.   Einbetten rückgängig machen und als Link darstellen

×   Dein vorheriger Inhalt wurde wiederhergestellt.   Editor-Fenster leeren

×   Du kannst Bilder nicht direkt einfügen. Lade Bilder hoch oder lade sie von einer URL.




×
×
  • Neu erstellen...