Exchange 2010 creer une BL en vb.net

cs_sofiane2 Messages postés 23 Date d'inscription dimanche 6 avril 2003 Statut Membre Dernière intervention 1 mai 2013 - 29 avril 2013 à 15:43
cs_sofiane2 Messages postés 23 Date d'inscription dimanche 6 avril 2003 Statut Membre Dernière intervention 1 mai 2013 - 1 mai 2013 à 13:28
Bonjour,

je cherche désespérément un bout de code en vb.net pour créer une nouvelle boite aux lettre


Ps: j'ai installé la console exchange 2010




+---------------------++ prog_sofiane ++---------------------+

4 réponses

NHenry Messages postés 15112 Date d'inscription vendredi 14 mars 2003 Statut Modérateur Dernière intervention 13 avril 2024 159
29 avril 2013 à 18:45
Bonjour,

Nous ne sommes pas sur ce forum pour faire vos devoirs ou autres PFE/excercices, pour plus d'explication, lisez ce sujet et celui-ci aussi.

v----Signature--------v----------------------------------------------
[list=ordered][*]Pour poser correctement une question et optimiser vos chances d'obtenir des réponses, pensez à lire le règlement CS, celui-ci pour bien poser votre question ou encore celui-ci pour les PFE et autres exercices.[*]Quand vous postez un code, merci d'utiliser la coloration syntaxique (3ième icône en partant de la droite : ).[*]En VB.NET pensez à activer Option Explicit et Option Strict (propriété du projet) et à retirer l'import automatique de l'espace de nom Microsoft.VisualBasic (onglet Références dans les propriétés du projet).[*]Si votre problème est résolu (et uniquement si c'est le cas), pensez à mettre "Réponse acceptée" sur le ou les messages qui vous ont aidés/list
---
0
cs_sofiane2 Messages postés 23 Date d'inscription dimanche 6 avril 2003 Statut Membre Dernière intervention 1 mai 2013
30 avril 2013 à 22:29
sa fait plus de 10 ans que j'ai un compte sur vbfrance


avant de poser ma 3eme question sur ce forum je te rassure j'ai cherche longtemps

et je ne suis pas un étudiant qui cherche a faire ses devoir


merci pour ton accueil et ta gentillesse sur ce forum mod





+---------------------++ prog_sofiane ++---------------------+
0
cs_sofiane2 Messages postés 23 Date d'inscription dimanche 6 avril 2003 Statut Membre Dernière intervention 1 mai 2013
1 mai 2013 à 13:21
j'ai trouvé


  Try

            Dim SHELL_URI As String = "http://schemas.microsoft.com/powershell/Microsoft.Exchange"

            Dim securePassword As System.Security.SecureString = New System.Security.SecureString()

            Dim c As Char

            Dim password As String = "P@ssword"

            For Each c In password.ToCharArray()
                securePassword.AppendChar(c)
            Next

            Dim creds As System.Management.Automation.PSCredential = New System.Management.Automation.PSCredential("admin", securePassword)
            Dim serverUri As System.Uri = New Uri(String.Format("http://{0}/powershell?serializationLevel=Full", txtserver.Text))
            Dim wsManInfo As WSManConnectionInfo = New WSManConnectionInfo(serverUri, SHELL_URI, creds)

            Dim myRunSpace = RunspaceFactory.CreateRunspace(wsManInfo)

            txtresultat.Text = "connexion ok"
            myRunSpace.Open()
            Dim pipeLine As Pipeline
            pipeLine = myRunSpace.CreatePipeline()



            Dim result As String = ""

            TextBox4.Text = "Enable-Mailbox -Identity 'domaine.intra/societe/user1' -Alias 'user1'"

            pipeLine.Commands.AddScript(TextBox4.Text)  ''''1ere methode

            Dim ResultString As New StringBuilder

            Dim commandResults As Collection(Of PSObject)


            commandResults = pipeLine.Invoke()

            If IsNothing(pipeLine.Error) = False And pipeLine.Error.Count > 0 Then
                Dim errorstring As New StringBuilder
                For Each item As Object In pipeLine.Error.ReadToEnd()
                    errorstring.Append(item.ToString)
                Next
                txtresultat.Text = errorstring.ToString
            Else
                For Each Obj As PSObject In commandResults
                    ResultString.Append(Obj.ToString & vbNewLine)

                Next
                txtresultat.Text = ResultString.ToString
                MsgBox("operation ok")
            End If

            pipeLine.Stop()
            myRunSpace.Close()
            myRunSpace.Dispose()

        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical, "Erreur Powershell !")
        End Try


pipeLine.Commands.AddScript("Enable-Mailbox -Identity 'domaine.intra/societe/user1' -Alias 'user1'"
)
sa permet d'envoyer une commande entiere sinon on peu faire de cette manniere
 Dim myCommand As New Command("Enable-Mailbox")
            myCommand.Parameters.Add("Identity", "domaine.intra/societe/user1")
            myCommand.Parameters.Add("Alias", "user1")
            myCommand.Parameters.Add("database", TextBox1.Text)
            pipeLine.Commands.Add(myCommand)
            pipeLine.Invoke()


+---------------------++ prog_sofiane ++---------------------+
0
cs_sofiane2 Messages postés 23 Date d'inscription dimanche 6 avril 2003 Statut Membre Dernière intervention 1 mai 2013
1 mai 2013 à 13:28
encore une chose
le code precedent nous montre comment activer une bl d'un utilisateur exsistant sur l'ad

on peut aussi le creer le modifier ....etc

voici le lien de toutes le commande dispo pour manager exchange
http://technet.microsoft.com/fr-fr/library/bb124233%28v=exchg.141%29.aspx



vive le partage ...



+---------------------++ prog_sofiane ++---------------------+
0
Rejoignez-nous