laudi

Erst mal fettes danke das sich jemand dieser Sache mit annimmt, da ich ja nicht wirklich der Script profi bin bin ich sehr dankbar für die Hilfe. :jau:

Da ich denn Server gerade nicht an der Hand habe spiele ich das mal so durch :

 

edit 1 "VMware sei dank ich kanns doch testen"

aber was soll ich sagen es klappt so nicht, wenn ich das richtig sehe dann muss ich die Gruppe ja aus der TXT lesen dazu sollte sie deffiniert sein. was ich in zeile 13 ja mache

GroupObj = Feld(3)

aber genau da habe ich schon denn Fehler das das Script stopt

 

 

Fehlermeldung : Index außerhalb des gültigen bereichs.

 

User Datei

 

Name1,Vorname1, Password1,Gruppe1

Name2,Vorname2, Password2,Gruppe2

 

 

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

Vorname = Feld(1)

Nachname = Feld(0)

Passwort = Feld(2)

GroupObj = Feld(3)

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

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)

' Die Gruppe wird gesucht und als Ziel definiert.

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

DomainString &"/"& GroupString &"")

' Der User wird in die entsprechende Gruppe integriert.

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

DomainString &"/"& UserString &"")

Set DomainObj = Nothing ' Variable wird frei gegeben '

Set GroupObj = Nothing ' Variable wird frei gegeben '

End Sub

 

 

Ich werde das morgen mal testen, und dann mal einen Staus geben wie das so ausieht und ob ich noch ein Problem habe, bzw wie ich es beseitigt habe, sollte jemandem was auffallen kann er mich ja schon mal drauf aufmerksam machen

:)

Spart immer wieder Stundenlanges sitzen weil man den Fehler mal wieder selber nicht sieht.

Ich bin selten im Forum darum weiss ich nicht ob ich das richtig eintrage.

Ich habe das mit den Gruppen nicht richtig verstanden. Könnte mir bitte jemand ein Bispiel zeigen wo z.B. die user in die vorhandene Gruppe Test integriert werden.

Danke!