Ich22

Hallo,

 

 

mir kommen die einträge auch nicht ganz richtig vor aber auf:

www.it-academy.cc/content/article_browse.php?ID=1173

 

steht es genau so!

 

 

Danke für die schnelle Antwort.

 

MfG

 

Ich22

Hallo,

 

ich habe das Script verwendet und es funktioniert auch soweit, meine gewünschten User werden angelegt, jedoch kommt immer in Zeile 32 Zeichen 1, Das Objekt ist bereits vorhanden, da danach das Script wohl abgebrochen wurde funktioniert auch meine Datei verz.cmd nicht richtig, das heißt ich habe keine Zugriffsrechte als Admin auf den Ordner! Und kann ihn somit auch nicht wieder löschen.

 

Meine Testdomain heißt: mydomain.local

Der Server: Bildungsserver

 

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://CN=Users,DC=mydomain,DC=local")

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

Dim WshShell, ret

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

b.Put "sAMAccountName", Benutzer

b.Put "displayName", Vorname & " " & Nachname

b.Put "givenName", Vorname

b.Put "sn", Nachname

b.Put "userAccountControl", 66082

b.Put "userPrincipalName", Benutzer & "@mydomain.local"

b.Put "profilePath", "\\Bildungsserver\Profile\" & Benutzer

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

b.Put "homeDrive", "K:"

b.SetInfo

b.SetPassword Passwort

b.AccountDisabled = False

b.SetInfo

WScript.Sleep(1000)

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

End Sub

 

 

verz.cmd

 

md

echo J | cacls /C /E /G Administratoren:F

echo J | cacls /C /E /G mydomain.local

echo J | cacls /C /E /R Jeder

md

echo J | cacls /C /E /G Administratoren:F

echo J | cacls /C /E /G mydomain.local

echo J | cacls /C /E /R Jeder

 

Zusätlich sollen wir noch ein Script schreiben das es möglich macht die User, die mit dem ersten Script angelegt wurden wieder vollständig zu löschen inklusive der Home und Profileverzeichnisse.

 

Das erstellen der User mit dem Freeware tool ist super und funktioniert auch super, nur leider kann ich damit keine user löschen!

 

Es wäre super wenn ihr mir helfen könntet, denn ich bin im Scripten nicht besonders bewandert!

 

MfG

 

Ich22