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, 3340 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
Batch & Shell
gelöst Hilfe Bei einem vbs Script (19)

Frage von Hattori-Hanzo zum Thema Batch & Shell ...

Windows Server
gelöst 2008 R2 Domäne mit Exchange 2010 SP3 umbenennen - welche Möglichkeiten bestehen? (12)

Frage von Excaliburx zum Thema Windows Server ...

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 ...

Neue Wissensbeiträge
Tipps & Tricks

Wie Hackt man sich am besten in ein Computernetzwerk ein

(29)

Erfahrungsbericht von Herbrich19 zum Thema Tipps & Tricks ...

Humor (lol)

Bester Vorschlag eines Supporttechnikers ever: APC

(15)

Erfahrungsbericht von DerWoWusste zum Thema Humor (lol) ...

Heiß diskutierte Inhalte
Netzwerke
LAN2LAN Verbindung sehr langsam flaschenhals gesucht (27)

Frage von PixL86 zum Thema Netzwerke ...

LAN, WAN, Wireless
Rogue Access Point (20)

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

Webbrowser
Windows 7 unbeliebte Internetseite sperren (13)

Frage von Daoudi1973 zum Thema Webbrowser ...

E-Mail
Fake E-Mail in Outlook für Demonstartionszwecke (12)

Frage von sascha382 zum Thema E-Mail ...