I used this code to connect up to Exchange through Powershell with vb.net.<\/p>\n
However this is not the release code used in my projects as thats went missing…. – so I’m sticking this here with a view to update if \/ when I find my code.<\/p>\n
\r\nPrivate Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click\r\n Dim rsConfig As RunspaceConfiguration\r\n rsConfig = RunspaceConfiguration.Create()\r\n Dim snapInException As PSSnapInException = Nothing\r\n Dim info As PSSnapInInfo\r\n info = rsConfig.AddPSSnapIn("Microsoft.Exchange.Management.PowerShell.E2010", snapInException)\r\n Dim myRunSpace As Runspace\r\n myRunSpace = RunspaceFactory.CreateRunspace(rsConfig)\r\n myRunSpace.Open()\r\n Dim pipeLine As Pipeline\r\n pipeLine = myRunSpace.CreatePipeline()\r\n Dim myCommand As New Command("Get-Command")\r\n pipeLine.Commands.Add(myCommand)\r\n Dim commandResults As System.Collections.ObjectModel.Collection(Of PSObject)\r\n commandResults = pipeLine.Invoke()\r\n For Each cmdlet As PSObject In commandResults\r\n Dim cmdletName As String\r\n cmdletName = cmdlet.Properties("Name").Value.ToString()\r\n\r\n Next\r\n<\/pre>\n","protected":false},"excerpt":{"rendered":"I used this code to connect up to Exchange through Powershell with vb.net. However this is not the release code used in my projects as thats went missing…. – so I’m sticking this here with a view to update if \/ when I find my code. Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles … Continue reading Powershell w\/ Exchange in vb.net – Work in Progress<\/span>