Jump to content

Ich22

Members
  • Gesamte Inhalte

    2
  • Registriert seit

  • Letzter Besuch

Beiträge erstellt von Ich22

  1. 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

×
×
  • Neu erstellen...