1. Liebe Forumsgemeinde,

    aufgrund der Bestimmungen, die sich aus der DSGVO ergeben, müssten umfangreiche Anpassungen am Forum vorgenommen werden, die sich für uns nicht wirtschaftlich abbilden lassen. Daher haben wir uns entschlossen, das Forum in seiner aktuellen Form zu archivieren und online bereit zu stellen, jedoch keine Neuanmeldungen oder neuen Kommentare mehr zuzulassen. So ist sichergestellt, dass das gesammelte Wissen nicht verloren geht, und wir die Seite dennoch DSGVO-konform zur Verfügung stellen können.
    Dies wird in den nächsten Tagen umgesetzt.

    Ich danke allen, die sich in den letzten Jahren für Hilfesuchende und auch für das Forum selbst engagiert haben. Ich bin weiterhin für euch erreichbar unter tti(bei)pcwelt.de.
    Dismiss Notice

ActiveDirectory Skript zum Anlegen eines Benutzers

Discussion in 'Programmieren' started by WaechterDerZeit, Apr 17, 2005.

Thread Status:
Not open for further replies.
  1. WaechterDerZeit

    WaechterDerZeit ROM

    Hallo, ich habe ein skript zum anlegen eines benutzers oUser in der organizational unit oOU geschrieben aber habe kein ActiveDirectory darum meine Bitte Kann das wer von euch mit ActiveDirectory ausprobieren unter Users and Computers müsste dann ein Eintrag mit folgenden Attributen sein

    objectClass User
    givenName Michael
    SN Tomasitz
    displayName Michael Tomasitz
    samAccountName tomasimi

    Benutzer.txt
    tomasimi;Michael;Tomasitz;wienwest

    BenutzerAnlegen.vbs
    Dim file, filesystem, line, array
    Set filesystem = CreateObject("Scripting.FileSystemObject")
    Set file = filesystem.OpenTextFile("Benutzer.txt",1,0)

    Do while not file.AtEndOfLine
    line = file.readline
    array = split(line,";")
    Benutzer = array(0)
    Vorname = array(1)
    Nachname = array(2)
    Passwort = array(3)

    Call BenutzerAnlegen(Benutzer,Vorname,Nachname,Passwort)
    Loop
    file.Close
    WScript.Quit(0)

    Sub Benutzeranlegen(Benutzer,Vorname,Nachname,Passwort)
    Dim oRoot, oDomain, oOU, oUser

    Set oRoot = GetObject("LDAP://RootDSE")
    Set oDomain = GetObject("LDAP://" & oRoot.Get("DefaultNamingContext"))
    Set oOU = oDomain.Create("OrganizationalUnit", "OU=Name")
    Set oUser = oOU.Create("User", "CN=" & Vorname & " " & Nachname)
    oUser.Put "samAccountName", Benutzer
    oUser.SetInfo
    oUser.SetPassword Passwort
    oUser.AccountDisabled = False
    oUser.SetInfo
    End Sub
     
    WaechterDerZeit, Apr 17, 2005
    #1
Thread Status:
Not open for further replies.

Share This Page