Viele Exchange Postfächer anlegen Verfasst am: 27.12.2010, 14:50
Hallo,
ich habe folgenden funktionierenden Beispielcode im Internet gefunden, um 1 bis i Postfächer anzulegen.
Nach dem Code werden ja Postfächer in der Form UserNo"i" angelegt. Jetzt hätte ich aber gerne, dass die Postfächer in der Form 0001.abc.abteilung bis 0100.abc.abteilung angelegt werden... Leider habe ich sehr wenig Erfahrung mit VB, kann mir da vielleicht jemand helfen?
Nach dem dargestellten Code werden zwar die Postfächer angelegt, aber besteht auch die Möglichkeit, gleich die Option herauszunehmen, dass sie im Adressbuch von Exchange gelistet werden?
Sorry, falls ich diesen Beitrag in der falschen Rubrik gepostet habe... falls dem so sein sollte, bitte verschieben.
Danke und Gruß
gonzales
Set objRootDSE = GetObject("LDAP://rootDSE")
Set objContainer = GetObject("LDAP://cn=Users," & _
objRootDSE.Get("defaultNamingContext"))
For i = 1 To 100
Set objLeaf = objContainer.Create("User", "cn=UserNo" & i)
objLeaf.Put "sAMAccountName", "UserNo" & i
objLeaf.SetInfo
Next
Registrieren
Login
