Soo,
ich habe mir mal ein Herz gefasst und einen Exchange installiert
Leider nur auf Englisch, da ich irgendwie nur ne Englische Windows 2003 R2 Trial gefunden habe.
Ich habe dein Skript kopiert und für mich angepasst
:
Dim fso, f, Zeile, Feld
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile ("c:\user.txt",1,0)
Do while not f.AtEndOfLine
Zeile = f.readLine
Feld = split(Zeile,",")
Benutzer = Feld(0)
Vorname = Feld(1)
Nachname = Feld(2)
Passwort = Feld(3)
Call BenuntzerAnlegen(Benutzer,Vorname,Nachname,Passwort)
Loop
f.Close
MSGBOX "Scriptverarbeitung abgeschlossen" & vbCrlf & "by Autowolf"
Wscript.Quit(0)
Sub BenuntzerAnlegen (Benutzer,Vorname,Nachname,Passwort)
Dim ouo, b
Set ouo = GetObject("LDAP://OU=
test,dc=zoni,dc=local") //Ich musste die OU erst noch anlegen
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 & "@zoni.local"
b.Put "mail", Benutzer & "@zoni.de"
b.Put "c", "DE"
b.Put "co", "DEUTSCHLAND"
b.Put "l", "Stadt"
b.Put "postalCode", "PLZ"
b.Put "postOfficeBox", "Postfach"
b.Put "st", "Bundesland"
b.Put "streetAddress", "Strasse Zeile 1" & vbCrlf & "Strasse Zeile 2" & vbCrlf
b.SetInfo
'Password läuft nicht ab'
b.SetPassword Passwort
b.Put "userAccountControl", 66082
b.AccountDisabled = False
b.SetInfo
'40'
'Logincript'
Set UserObj = GetObject("WinNT://ZONI/" & Benutzer)
UserObj.LoginScript = "datev.bat"
UserObj.SetInfo
Set UserObj = Nothing
'Gruppe hinzufügen'
Set GroupObj = GetObject("WinNT://ZONISRV/Test")
GroupObj.Add ("WinNT://ZONI/" & Benutzer)
Set DomainObj = Nothing
Set GroupObj = Nothing
'Mailbox anlegen'
Set oIADSUser = b
oIADSUser.createMailbox "LDAP://CN=Mailbox Store (
ZONISRV),CN=First Storage Group,CN=InformationStore,CN=
ZONISRV,CN=Servers,CN=First Administrative Group,CN=Administrative Groups,CN=Zonitec,CN=Microsoft Exchange,CN=Services,CN=Configuration,DC=
zoni,DC=
local"
oIADSUser.EnableStoreDefaults = FALSE // Legt Größen für die Mailbox direkt fest
oIADSUser.StoreQuota = 10000
oIADSUser.OverQuotaLimit = 12000
oIADSUser.HardLimit = 15000
oIADSUser.setInfo
WScript.Sleep(1000)
ret = WshShell.Run ("verz.cmd " & Benutzer,0,1)
End Sub
Folgende Probleme hatte ich :
1. OU existierte nicht
war ja schnell angelegt
2. Passwörter entsprachen nicht der Kennwortrichtlinie, einfach was dazu gepackt *g*
Dieses Skript ist wohlgemerkt für Englisch angepasst. Für Deutsch müsstest Du dass selbst übernehmen.
Am besten öffnest Du bei Dir ADSIEDIT (Start->Ausführen : "regsvr32 schmmgmt.dll" bestätigen, Start->Ausführen : "adsiedit.msc" bestätigen ) :
Dort kannst Du Dich durch den Baum klicken, der ist nur umgekehrt. Das was hier unten steht ist in ADSIEDIT oben.
oIADSUser.createMailbox "LDAP://
CN=Mailbox Store (ZONISRV)
'Wird wohl Informationsspeicher (SERVERNAME) bei Dir lauten
,CN=First Storage Group
'Erste Speichergruppe
,CN=InformationStore
'Informationsspeicher
,CN=ZONISRV
'Servername
,CN=Servers
,CN=First Administrative Group
'Erste Administrative Gruppe
,CN=Administrative Groups
'Administrative Gruppen
,CN=Zonitec
'Organisation
,CN=Microsoft Exchange
,CN=Services
,CN=Configuration
,DC=zoni
,DC=local"
Bei mir hat das Skript dann wunderbar funktioniert, die Exchange Reiter waren dann im AD bei dem Benutzer sichtbar. Die Email Adressen kamen dann automatisch über den Adresslisten-Update-Service nach ca. 5 Minuten. Man kann auch noch wesentlich mehr der Exchange Elemente anpassen. Für die CreateMailbox Prozedur muss man die Exchange Admin Tools installiert haben, wenn man das Skript nicht sowieso direkt auf dem Exchange laufen lässt.
Gib bitte Rückmeldung ob es funktioniert hat.
Gruß
Zoni
Ich poste jetzt nicht nochmal das ganz Skript sondern nur den Exchange Code Schnipsel :
