Jump to content

wakko303

Members
  • Gesamte Inhalte

    3
  • Registriert seit

  • Letzter Besuch

Beiträge erstellt von wakko303

  1. Hallo Leute,

     

    wollte aus einem Excel-Dok eingetragene Benutzerinfos auslesen und dann mittels VB-Skript, User in einer OU im Active Directory (W2003)anlegen.

     

    ##########################################

    1.) Mein Excel Dok. sieht folgendermaßen aus:

     

    Reihe Definition:

    -------------------------

     

    A1: CN; B1: SAM Account Name; C1: First Name, D1: Last Name

     

    Reihe(n) Datensätze:

    -------------------------

     

    A2: Muster Hans; B2: HansMuster; C3: Hans; D2: Muster

    ...

    ..

    .

    usw.

    ##########################################

     

    2.) VB-Skript:

     

    Set objExcel = CreateObject("Excel.Application")

    Set objWorkbook = objExcel.Workbooks.Open _

    ("C:\techno\windows_skripting\newuser\New_users.xls")

    intRow = 2

    Do Until objExcel.Cells(intRow,1).Value = ""

    Set objOU = GetObject("ou=Vertrieb,dc=domäne, dc=de")

    Set objUser = objOU.Create _

    ("User", "cn=" & objExcel.Cells(intRow, 1).Value)

    objUser.sAMAccountName = objExcel.Cells(intRow, 2).Value

    objUser.GivenName = objExcel.Cells(intRow, 3).Value

    objUser.SN = objExcel.Cells(intRow, 4).Value

    'objUser.AccountDisabled = FALSE

    'objUser.SetInfo

    intRow = intRow + 1

    Loop

    objExcel.Quit

     

    #########################################

     

    So, wenn ich jetzt das Skript ausführe, bekomme ich folgende Fehlermeldung:

     

    Skript: C:\......

    Zeile: 6 (müsste die Set objOU Zeile sein)

    Zeichen: 5

    Fehler: ungültige Syntax

    Code: 800401E4

    Quelle: (null)

     

    Vielen Dank

×
×
  • Neu erstellen...