Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

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

Frage Entwicklung VB for Applications

Mitglied: dal00ker

dal00ker (Level 1) - Jetzt verbinden

15.09.2011, aktualisiert 18.10.2012, 3335 Aufrufe, 6 Kommentare

Ich habe mir folgendes Script im Internet zusammengesucht und bekomme einen Syntax fehler bei der Ausführung.

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
Mitglied: 60730
15.09.2011 um 14:01 Uhr
moinsen,

  • die code tags...
  • rem ist kein vbs Befehl
  • ein paar Infos zuviel.. LDAP://OU=" & Org & ",OU=Users,OU=xyz,OU=123factory,OU=anton.nymer,DC=net,dc=fmcti,DC=com")

  • Und dann noch - öffne eine Dosbox, werfe das vbs rein und lese den Fehler - da steht eine Zeilennummer und eine zahl, und der Grund.

01.
Dim fso, f, Zeile, Feld 
02.
Set fso = CreateObject("Scripting.FileSystemObject") 
03.
Set oArgs = Wscript.Arguments 
04.
 
05.
Rem für Anlage von mehreren Usern per Textfile 
06.
Set f = fso.OpenTextFile ("user.txt",1,0) 
07.
Do while not f.AtEndOfLine 
08.
Zeile = f.readLine 
09.
Feld = split(Zeile,",") 
10.
 
11.
If Wscript.Arguments.Count = 4 Then 
12.
Benutzer = oArgs.item(0) 
13.
Vorname = oArgs.item(1) 
14.
Nachname = oArgs.item(2) 
15.
Org = oArgs.item(3) 
16.
Call BenuntzerAnlegen(Benutzer,Vorname,Nachname,Org) 
17.
 
18.
End If 
19.
 
20.
Sub BenuntzerAnlegen (Benutzer,Vorname,Nachname,Org) 
21.
Dim ouo, b 
22.
Set ouo = GetObject("LDAP://OU=" & Org & ",OU=Users,OU=Ellerbek,OU=Measurement Solutions,OU=Energy Processing,DC=net,dc=fmcti,DC=com") 
23.
Set b = ouo.Create("user", "CN=" & Vorname & " " & Nachname) 
24.
Dim WshShell, ret 
25.
Set WshShell = WScript.CreateObject("WScript.Shell") 
26.
b.Put "sAMAccountName", Benutzer 
27.
b.Put "userPrincipalName", Benutzer & "@fmcti.com" 
28.
b.Put "scriptPath", "ELL1\ELL1_ALL.CMD" 
29.
b.Put "homeDirectory", "\\ell1fs01\users\" & Benutzer & "$" 
30.
b.Put "homeDrive", "j:" 
31.
b.Put "givenName", Vorname 
32.
b.Put "sn", Nachname 
33.
b.Put "displayName", Nachname & ", " & Vorname 
34.
b.Put "physicalDeliveryOfficeName", "Ellerbek" 
35.
b.Put "telephoneNumber", "+49-4101-304-XX" 
36.
b.Put "c", "DE" 
37.
b.Put "co", "DEUTSCHLAND" 
38.
b.Put "postalCode", "25474" 
39.
b.Put "l","Ellerbek" 
40.
b.Put "st", "SH" 
41.
b.Put "streetAddress", "Regentstr. 1" 
42.
Rem Mailaktivierung per RUS 
43.
b.Put "mail", Benutzer &"@fmcti.com" 
44.
b.Put "mailNickname", Benutzer 
45.
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" 
46.
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" 
47.
b.Put "msExchHomeServerName", "/O=FMC/OU=Ellerbek/cn=Configuration/cn=Servers/cn=ELL1MAIL02" 
48.
b.SetInfo 
49.
b.SetPassword "ellerbek1" 
50.
b.AccountDisabled = False 
51.
b.SetInfo 
52.
 
53.
' WScript.Sleep(1000) 
54.
' ret = WshShell.Run ("verzeichnis.cmd " & Benutzer,0,1) 
55.
 
56.
Wscript.echo " Benutzer " & Vorname & Chr(32)& Nachname &" wurde erfolgreich angelegt" 
57.
 
58.
 
59.
End Sub
Bitte warten ..
Mitglied: bastla
15.09.2011 um 14:05 Uhr
@T-Mo
Was meinst Du mit
rem ist kein vbs Befehl
[OT]
Ich bin immer wieder fasziniert, wenn ich dieses Script am "Sub BenuntzerAnlegen" wiedererkenne ...
[/OT]

Grüße
bastla
Bitte warten ..
Mitglied: 60730
15.09.2011, aktualisiert 18.10.2012
Zitat von bastla:
@T-Mo
Was meinst Du mit
> rem ist kein vbs Befehl

irren ist mänschlisch - geht ja doch, werd ich aber wohl trotzdem nie in einem vbs malen...


----
[OT]
Ich bin immer wieder fasziniert, wenn ich dieses Script am "Sub BenuntzerAnlegen" wiedererkenne ...

[/OT]

  • grrr wenn ich nach dem StichReizwort gesucht hätte, wäre mir ja aufgefallen, dass das hier flüssiger als flüssig gewesen ist.....


Grüße
bastla
Retour
Bitte warten ..
Mitglied: dal00ker
15.09.2011 um 14:21 Uhr
J:\adduser.vbs(20, 1) Kompilierungsfehler in Microsoft VBScript: Syntaxfehler ... Der selbe Fehler wie als wenn ich das über einen Doppelklick ausführe.

was meinst du mit zu vielen Infos? Das AD ist hier wirklich so Strukturiert.

LG

Alex
Bitte warten ..
Mitglied: bastla
15.09.2011 um 14:30 Uhr
Hallo dal00ker und willkommen im Forum!

Eliminiere die Zeilen 6 bis 9 (indem Du REM oder Apostroph an den Zeilenanfang setzt [Edit] oder sie besser gleich inkl Zeile 5 entfernst [/Edit]) ...

Grüße
bastla
Bitte warten ..
Mitglied: BigWim
15.09.2011 um 15:07 Uhr
Moin dal00ker,

was meinst du mit zu vielen Infos? Das AD ist hier wirklich so Strukturiert.
keine Echtdaten veröffentlichen. Demnächst mit xxxx im Script unkenntlich machen

Gruß
Markus
Bitte warten ..
Ähnliche Inhalte
Exchange Server
gelöst Migration von Server SBS2008 zu Server2016 inkl. Exchange und SharePoint und SQL (17)

Frage von frosch2 zum Thema Exchange Server ...

VB for Applications
VBS Script zum versenden mehrerer Verknüpfungen zu Dateien per Lotus Notes

Frage von Sentinel87 zum Thema VB for Applications ...

Batch & Shell
gelöst VBS Script in eine Textdatei ausgeben (VBS mit Batch zusammenführen) (5)

Frage von Luuke257 zum Thema Batch & Shell ...

Exchange Server
gelöst Windows Server 2008 Domäne - Exchange Deinstallieren oder nicht (2)

Frage von jojo0411 zum Thema Exchange Server ...

Neue Wissensbeiträge
Google Android

Cyanogenmod alternative Downloadquelle

(5)

Tipp von Lochkartenstanzer zum Thema Google Android ...

Batch & Shell

Batch als Dienst bei Systemstart ohne Anmeldung ausführen

(5)

Tipp von tralveller zum Thema Batch & Shell ...

Sicherheits-Tools

Sicherheitstest von Passwörtern für ganze DB-Tabellen

(1)

Tipp von gdconsult zum Thema Sicherheits-Tools ...

Heiß diskutierte Inhalte
Windows Server
gelöst Exchange HyperV Prozessorlast (19)

Frage von theoberlin zum Thema Windows Server ...

Windows Server
Server mit Netzwerkaussetzern (18)

Frage von SarekHL zum Thema Windows Server ...

Server-Hardware
gelöst SPP von HP Abwärtskompatibel? (14)

Frage von fireskyer zum Thema Server-Hardware ...

LAN, WAN, Wireless
gelöst Batchdatei um einen Proxy einzustellen (14)

Frage von CrystalFlake zum Thema LAN, WAN, Wireless ...