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