[..] Création de Mailbox Exchange 2003 - Boite aux lettres

[vleunis]

Bonjour a tous,

J'ai créé un Au3 permettant de créer un User AD completement de A à Z.
Il me reste tout de meme deux points a ajouter a ce script, à savoir la création de la boite aux lettres Exchange, et l'activation de la connexion de LCS Communicator 2005.

Il me semble que la création de la connexion avec LCS ne sera pas possible car il faut attendre environ 3 minutes pour pouvoir activer delui ci en temps normal, alors a la vitesse d'exécution d'un script, ca me parrait pas forcément adapté.

Par contre, je souhaiterai créer la boite mail mais je ne trouve aucun script exemple ou guide qui parle de ceci. Est ce que vous connaissez un moyen de faire cela?

J'ai cherché en ligne de commande, mais je suis tombé sur des VBS bien trop complexes. Je préfèrerai rester sur de l'autoIT pur ou de la commande basique.

Avez vous des idées de recherche?

Merci.
Vincent.

[sksbir]

Bonjour

La création d'une mailbox chez microsoft, ça se passe ici : http://msdn.microsoft.com/en-us/library ... 65%29.aspx

le script ne me parait pas très compliqué à transformer pour autoit...

[vleunis]

Re,

Je suis désolé mais je ne comprend pas le VB.
Je sais que c'est assez similaire a du VBS mais les fonctions, les déclarations, etc... je nevois pas trop comment adapter a un Au3.

De plus, actuellement j'utilise une connexion en ADODB et si je pouvais garder les memes providers, ce serait top:

-----------
Global $objConnection = ObjCreate("ADODB.Connection")
$objConnection.ConnectionString = "Provider=ADsDSOObject"
$objConnection.Open ("Active Directory Provider")
----------

Avez vous un guide simple pour m'aider a avancer?

[vleunis]

Je viens de trouver une fonction dans les addOn AD0.35:
J'essai ca et je vous tiens informé:

Code : Tout sélectionner

; _ADUserCreateMailbox
; $user - User to add mailbox to
; $mdbstore - Mailbox storename
; $store - Information store
; $server - Email server
; $admingroup - Administrative group in Exchange
; $domain - Domain name
; $emaildomain - Exchange Server Group name e.g. "My Company"
Func _ADUserCreateMailbox($user, $mdbstore, $store, $server, $admingroup, $domain, $emaildomain)
    If _ADObjectExists($user) = 0 Then Return 0
    $strQuery = "<LDAP://" & $strHostServer & "/" & $strDNSDomain & ">;(sAMAccountName=" & $user & ");ADsPath;subtree"
    $objRecordSet = $objConnection.Execute($strQuery) ; Retrieve the FQDN for the group, if it exists

    $ldap_entry = $objRecordSet.fields(0).value
    $oUser = _ADObjGet($ldap_entry) ; Retrieve the COM Object for the object

    If $oUser.HomeMDB <> "" Then Return 0

    $mailboxpath = "LDAP://CN="
    $mailboxpath = $mailboxpath & $mdbstore
    $mailboxpath = $mailboxpath & ",CN="
    $mailboxpath = $mailboxpath & $store
    $mailboxpath = $mailboxpath & ",CN=InformationStore"
    $mailboxpath = $mailboxpath & ",CN="
    $mailboxpath = $mailboxpath & $server
    $mailboxpath = $mailboxpath & ",CN=Servers,CN="
    $mailboxpath = $mailboxpath & $admingroup
    $mailboxpath = $mailboxpath & ",CN=Administrative Groups,CN=" & $emaildomain & ",CN=Microsoft Exchange,CN=Services,CN=Configuration,"
    $mailboxpath = $mailboxpath & $domain

    $oUser.CreateMailbox($mailboxpath)
    $oUser.SetInfo

    $oUser = 0

    Return 1
EndFunc   ;==>_ADUserCreateMailbox