Top-Themen

Aktuelle Themen (A bis Z)

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

Frage Entwicklung VB for Applications

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

Mitglied: dal00ker

dal00ker (Level 1) - Jetzt verbinden

15.09.2011, aktualisiert 18.10.2012, 3363 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
VB for Applications
VBS Script kann Prgramm nicht starten
gelöst Frage von C.BoernerVB for Applications15 Kommentare

Hallo ihr Admins, Ich habe folgendes Scenarios ein Programm läuft im Hintergrund (Drivve-Image) das übergibt Werte an ein VBS ...

Batch & Shell
Hilfe Bei einem vbs Script
gelöst Frage von Hattori-HanzoBatch & Shell19 Kommentare

Hey Leute Könnt ihr mir bitte sagen was daran falsch ist? beschäftige mich erst seit kurzem mit vbs scripts. ...

JavaScript
VBS-Script wird nicht vollständig ausgeführt
Frage von HousefrauJavaScript3 Kommentare

Hallo zusammen, wir lassen über eine Gruppenrichtlinie einen Script ausführen, welcher die Drucker der einzelnen Parteien mappen soll. Leider ...

Entwicklung
VBS Script in Powershell aufrufen
gelöst Frage von HanutaEntwicklung7 Kommentare

Hallo Zusammen, ich möchte einen VBS Script in Powershell aufrufenist das überhaupt möglich ? Wenn ja, wie ? VG ...

Neue Wissensbeiträge
Datenschutz

Teamviewer kommt für IoT-Geräte wie den Raspberry Pi

Information von magicteddy vor 4 StundenDatenschutz

Moin, jetzt werden IoT Geräte endgültig zur Wanze? Anscheinend kann man auf einem Dashboard seine Geräte visualisieren Ich stelle ...

Microsoft

Letzte Updates für Win10 und Server2016 müssen bei Bedarf über den Update catalogue in den WSUS importiert werden!

Tipp von DerWoWusste vor 9 StundenMicrosoft1 Kommentar

automatisch kommt da nichts an im WSUS und auch nicht im SCCM. Siehe Hinweise zum Bezug der jeweils neuesten ...

Linux

Meltdown und Spectre: Linux Update

Information von Frank vor 3 TagenLinux

Meltdown (Variante 3 des Prozessorfehlers) Der Kernel 4.14.13 mit den Page-Table-Isolation-Code (PTI) ist nun für Fedora freigegeben worden. Er ...

Tipps & Tricks

Solutio Charly Updater Fehlermeldung: Das Abgleichen der Dateien in -Pfad- mit dem Datenobject ist fehlgeschlagen

Tipp von StefanKittel vor 4 TagenTipps & Tricks

Hallo, hier einmal als Tipp für alle unter Euch die mit der Zahnarztabrechnungssoftware Charly von Solutio zu tun haben. ...

Heiß diskutierte Inhalte
Netzwerkmanagement
Preis für Wartungsvertrag ok?
gelöst Frage von a-za-zNetzwerkmanagement22 Kommentare

Hallo! Mal ne Frage, weil ich mich mit dem akzeptablen Preis für einen Reaktionszeitvertrag nicht auskenne. Meine Firma hat ...

Windows Netzwerk
Ist ein Portforwarding auf einen PC ohne lauschendes Programm ein (großes) Sicherheitsproblem?
Frage von PluwimWindows Netzwerk13 Kommentare

Hallo zusammen, zur Fernwartung eines Rechners an einem anderen Ort nutze ich VNC. Da dieser Rechner einfach nur eine ...

SAN, NAS, DAS
Wer kennt sich mit QNAP und CISCO aus ?
gelöst Frage von MachelloSAN, NAS, DAS10 Kommentare

Hallo Zusammen hier im Forum, Ich habe ein QNas 451+ und dieses NAS hat zwei GBit Lan Adapter die ...

Windows Server
Terminal Server 2016 erkennt Berechtigungen nicht
gelöst Frage von Thomas2Windows Server10 Kommentare

Hallo Administratoren, folgendes Problem stellt sich dar: Es gibt zwei Windows Server 2016, die als Terminal Server fungieren. Jetzt ...