Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

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)

Frage Entwicklung VB for Applications

Mitglied: dal00ker

dal00ker (Level 1) - Jetzt verbinden

15.09.2011, aktualisiert 18.10.2012, 3348 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 ...

Exchange Server
gelöst Exchange 2013 CU17 Problem beim Anlegen eines Benutzers (13)

Frage von Buddy117 zum Thema Exchange Server ...

Windows Server
gelöst Verschlüsselungsmethode Active-Directory Domänen Usern (4)

Frage von User79 zum Thema Windows Server ...

Exchange Server
Öffentliche Adressbücher in Exchange 2016 anlegen (7)

Frage von MultiStorm zum Thema Exchange Server ...

Neue Wissensbeiträge
Sicherheit

How I hacked hundreds of companies through their helpdesk

Information von SeaStorm zum Thema Sicherheit ...

Erkennung und -Abwehr

Ccleaner-Angriff war nur auf große Unternehmen gemünzt

(10)

Information von Lochkartenstanzer zum Thema Erkennung und -Abwehr ...

Sicherheit

Eventuell neue Lücke in Intels ME

Information von sabines zum Thema Sicherheit ...

Heiß diskutierte Inhalte
Humor (lol)
Freidach Beitrag (25)

Frage von Penny.Cilin zum Thema Humor (lol) ...

Lizenzierung
Programm soll in verschiedenen Versionen lizenziert sein (20)

Frage von Yanmai zum Thema Lizenzierung ...

Windows 7
SSD - Win7 Lags (19)

Frage von ph5555 zum Thema Windows 7 ...

Humor (lol)
Wo ist der Fehler auf dem Bild? (17)

Information von the-buccaneer zum Thema Humor (lol) ...