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

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, 3373 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
Sicherheit

MikroTik-Router patchen, Schwachstelle wird ausgenutzt

Information von kgborn vor 18 StundenSicherheit

Am 23. April 2018 wurde von Mikrotik ein Security Advisory herausgegeben, welches auf eine Schwachstelle im RouterOS hinwies. Mikrotik ...

Windows 10

Microcode-Updates KB4090007, KB4091663, KB4091664, KB4091666 für Windows 10

Information von kgborn vor 1 TagWindows 101 Kommentar

Kurze Information für Administratoren von Windows 10-Systemen, die mit neueren Intel CPUs laufen. Microsoft hat zum 23. April 2018 ...

iOS
Updates für Iphone und Co
Information von sabines vor 1 TagiOS

Gestern abend ist iOS 11.3.1 erschienen, ein kleineres Update, dass einige Lücken schließt und "Lahmlegen" nach einem Display Tausch ...

Windows 7

Windows 7 - Server 2008 R2: Exploit für Total Meltdown verfügbar

Information von kgborn vor 2 TagenWindows 7

Kleine Information für Administratoren, die für die Updates von Windows 7 SP1 und Windows Server 2008 R2 SP1 verantwortlich ...

Heiß diskutierte Inhalte
Batch & Shell
Powershell: Im AD nach Rechnern mit bestimmten IP-Adressen suchen
gelöst Frage von Raven42Batch & Shell36 Kommentare

Hallo zusammen, ich suche nach einer Möglichkeit nach Computern im AD zu suchen , deren IP-Adresse mit 10.11.12. beginnt. ...

C und C++
Frage1 C Programmierung-Makefile Frage2 PHP-Programmierung HTTP-Fehler 404
Frage von KatalinaC und C++34 Kommentare

Hallo, ich habe 2 Fragen, die nichts miteinander zu tun haben aber mit denen ich mich gerade beschäftige: 1. ...

LAN, WAN, Wireless
Watchguard T15 VPN Einrichtung
gelöst Frage von thomasjayLAN, WAN, Wireless25 Kommentare

Hallo zusammen, wir möchten gerne über unsere Watchguard T15 einen VPN-Tunnel (Mobile VPN with IPSec) einrichten! Als Client nutzen ...

Windows Server
Alten DC entfernen
Frage von smartinoWindows Server24 Kommentare

Hallo zusammen, ich habe hier eine Umgebung übernommen und erstmal einen DCDIAG gemacht. Dabei fällt auf, daß eine ganze ...