ActiveDirectory Skript zum Anlegen eines Benutzers

Dieses Thema im Forum "Programmieren" wurde erstellt von WaechterDerZeit, 17. April 2005.

Status des Themas:
Es sind keine weiteren Antworten möglich.
  1. WaechterDerZeit

    WaechterDerZeit ROM

    Registriert seit:
    17. April 2005
    Beiträge:
    1
    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
     
Status des Themas:
Es sind keine weiteren Antworten möglich.

Diese Seite empfehlen