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