Jump to content

eitiiler

Members
  • Gesamte Inhalte

    3
  • Registriert seit

  • Letzter Besuch

Beiträge erstellt von eitiiler

  1. Hallo,

     

    hab das Script auch mal versucht und hab noch ein Problem:

     

    Script: c:\create_user.vbs

    Line: 26

    Char: 1

    Error: The Object Already Exists.

    Code: 80071392

    Soure: (null)

     

    Hier mein Script in leicht geändertert Form:

     

    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://OU=Benutzer,DC=itforum,DC=OS52,DC=de")

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

    Dim WshShell, ret

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

    b.Put "sAMAccountName", Benutzer

    b.Put "userPrincipalName", Benutzer & "@itforum.os52.de"

    b.Put "profilePath", "\\fthw9crc\daten\profile\" & Benutzer

    b.Put "homeDirectory", "\\fthw9crc\daten\home\" & Benutzer

    b.Put "homeDrive", "H:"

    b.SetInfo

    b.SetPassword Passwort

    b.AccountDisabled = False

    b.SetInfo

    WScript.Sleep(1000)

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

    End Sub

     

    Hat jemand vielleicht nen Tip

     

    Danke

    und grüsse

    ghostr

     

    Was war der Fehler? :confused: hab den gleichen.....

×
×
  • Neu erstellen...