Problem mit VBS-Script (Anlegen von Usern in der Domäne inkl. Exchange)

Hallo,

Ich bekomme bei der Ausführung von dem Script einen Syntaxfehler in der Zeile 20.

Hier das Script:

Dim fso, f, Zeile, Feld
Set fso = CreateObject("Scripting.FileSystemObject")
Set oArgs = Wscript.Arguments

Rem für Anlage von mehreren Usern per Textfile
Set f = fso.OpenTextFile ("user.txt",1,0)
Do while not f.AtEndOfLine
Zeile = f.readLine
Feld = split(Zeile,",")

If Wscript.Arguments.Count = 4 Then
Benutzer = oArgs.item(0)
Vorname = oArgs.item(1)
Nachname = oArgs.item(2)
Org = oArgs.item(3)
Call BenuntzerAnlegen(Benutzer,Vorname,Nachname,Org)

End If

Sub BenuntzerAnlegen (Benutzer,Vorname,Nachname,Org)
Dim ouo, b
Set ouo = GetObject("LDAP://OU=" & Org & ",OU=Users,OU=Ellerbek,OU=Measurement Solutions,OU=Energy Processing,DC=net,dc=fmcti,DC=com")
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 & "@fmcti.com"
b.Put "scriptPath", "ELL1\ELL1_ALL.CMD"
b.Put "homeDirectory", "\\ell1fs01\users\" & Benutzer & "$"
b.Put "homeDrive", "j:"
b.Put "givenName", Vorname
b.Put "sn", Nachname
b.Put "displayName", Nachname & ", " & Vorname
b.Put "physicalDeliveryOfficeName", "Ellerbek"
b.Put "telephoneNumber", "+49-4101-304-XX"
b.Put "c", "DE"
b.Put "co", "DEUTSCHLAND"
b.Put "postalCode", "25474"
b.Put "l","Ellerbek"
b.Put "st", "SH"
b.Put "streetAddress", "Regentstr. 1"
Rem Mailaktivierung per RUS
b.Put "mail", Benutzer &"@fmcti.com"
b.Put "mailNickname", Benutzer
b.Put "homeMTA","CN=Microsoft MTA,CN=ELL1MAIL02,CN=Servers,CN=ELLERBEK,CN=Administrative Groups,CN=FMC,CN=Microsoft Exchange,CN=Services,CN=Configuration,DC=MAIN,DC=LOCAL"
b.Put "homeMDB","CN=Mailbox Store (ELL1MAIL02),CN=First Storage Group,CN=InformationStore,CN=ELL1MAIL02,CN=Servers,CN=ELLERBEK,CN=Administrative Groups,CN=FMC,CN=Microsoft Exchange,CN=Services,CN=Configuration,DC=MAIN,DC=LOCAL"
b.Put "msExchHomeServerName", "/O=FMC/OU=Ellerbek/cn=Configuration/cn=Servers/cn=ELL1MAIL02"
b.SetInfo
b.SetPassword "ellerbek1"
b.AccountDisabled = False
b.SetInfo

REM WScript.Sleep(1000)
REM ret = WshShell.Run ("verzeichnis.cmd " & Benutzer,0,1)

Wscript.echo " Benutzer " & Vorname & Chr(32)& Nachname &" wurde erfolgreich angelegt"


End Sub


kann mir einer Sagen wo mein Fehler liegt?


LG

Alex

Dim fso, f, Zeile, Feld
Set fso = CreateObject("Scripting.FileSystemObject")  
Set oArgs = Wscript.Arguments

Rem für Anlage von mehreren Usern per Textfile
Set f = fso.OpenTextFile ("user.txt",1,0)  
Do while not f.AtEndOfLine
Zeile = f.readLine
Feld = split(Zeile,",")  

If Wscript.Arguments.Count = 4 Then
Benutzer = oArgs.item(0)
Vorname = oArgs.item(1)
Nachname = oArgs.item(2)
Org = oArgs.item(3)
Call BenuntzerAnlegen(Benutzer,Vorname,Nachname,Org)

End If

Sub BenuntzerAnlegen (Benutzer,Vorname,Nachname,Org)
Dim ouo, b
Set ouo = GetObject("LDAP://OU=" & Org & ",OU=Users,OU=Ellerbek,OU=Measurement Solutions,OU=Energy Processing,DC=net,dc=fmcti,DC=com")  
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 & "@fmcti.com"  
b.Put "scriptPath", "ELL1\ELL1_ALL.CMD"  
b.Put "homeDirectory", "\\ell1fs01\users\" & Benutzer & "$"  
b.Put "homeDrive", "j:"  
b.Put "givenName", Vorname  
b.Put "sn", Nachname  
b.Put "displayName", Nachname & ", " & Vorname  
b.Put "physicalDeliveryOfficeName", "Ellerbek"  
b.Put "telephoneNumber", "+49-4101-304-XX"  
b.Put "c", "DE"  
b.Put "co", "DEUTSCHLAND"  
b.Put "postalCode", "25474"  
b.Put "l","Ellerbek"  
b.Put "st", "SH"  
b.Put "streetAddress", "Regentstr. 1"  
Rem Mailaktivierung per RUS
b.Put "mail", Benutzer &"@fmcti.com"  
b.Put "mailNickname", Benutzer  
b.Put "homeMTA","CN=Microsoft MTA,CN=ELL1MAIL02,CN=Servers,CN=ELLERBEK,CN=Administrative Groups,CN=FMC,CN=Microsoft Exchange,CN=Services,CN=Configuration,DC=MAIN,DC=LOCAL"  
b.Put "homeMDB","CN=Mailbox Store (ELL1MAIL02),CN=First Storage Group,CN=InformationStore,CN=ELL1MAIL02,CN=Servers,CN=ELLERBEK,CN=Administrative Groups,CN=FMC,CN=Microsoft Exchange,CN=Services,CN=Configuration,DC=MAIN,DC=LOCAL"  
b.Put "msExchHomeServerName", "/O=FMC/OU=Ellerbek/cn=Configuration/cn=Servers/cn=ELL1MAIL02"  
b.SetInfo
b.SetPassword "ellerbek1"  
b.AccountDisabled = False
b.SetInfo

' WScript.Sleep(1000)  
' ret = WshShell.Run ("verzeichnis.cmd " & Benutzer,0,1)  

Wscript.echo " Benutzer " & Vorname & Chr(32)& Nachname &" wurde erfolgreich angelegt"  


End Sub