2

VB.net で Power Shell を使用して Office 365 インスタンスに接続しています。これは正常に動作しますが、これが実行されているサービスのメモリ使用量が増え続けています。次のコードを使用して、Power Shell を開始して閉じています。 close メソッドが正しく機能していないようです。

Private Function initRunSpace(ByVal user_name As String, ByVal password_user As String) As String
   Dim StringBuilder As New StringBuilder
   Dim liveIdconnectionUri As String = "https://ps.outlook.com/powershell"
   Dim password As New SecureString()
   Dim str_password As String = password_user
   Dim username As String = user_name
   Dim credential As New PSCredential(username, password)
   Dim iss As InitialSessionState = Nothing
   Dim psSession As New PSCommand()
   Dim setVar As New PSCommand()
   Dim importSession As New PSCommand()

   Try
       For Each x As Char In str_password
           password.AppendChar(x)
       Next

       iss = InitialSessionState.CreateDefault
       iss.ImportPSModule(New String() {"MSOnline"})

       runspace = RunspaceFactory.CreateRunspace(iss)
       runspace.Open()
          powershell = System.Management.Automation.PowerShell.Create()
       powershell.Runspace = runspace
       REM connect to exchange server in the cloud

       psSession.AddCommand("New-PSSession")
       psSession.AddParameter("ConfigurationName", "Microsoft.Exchange")
       psSession.AddParameter("ConnectionUri", New Uri(liveIdconnectionUri))
       psSession.AddParameter("Credential", credential)
       psSession.AddParameter("Authentication", "Basic")
       psSession.AddParameter("AllowRedirection")
       powershell.Commands = psSession
       Dim result = powershell.Invoke()
       Dim errors As Collection(Of ErrorRecord) = Nothing
       errors = powershell.Streams.Error.ReadAll()

       If errors.Count > 0 Then
           REM Save the order or action for later execution
           For Each obj As Object In errors
               If obj IsNot Nothing Then StringBuilder.AppendLine(obj.ToString)
           Next
           powershell.Stop()
           powershell.Dispose()
           runspace.Close()
           runspace.Dispose()

           Return "Import-PSSession:" & StringBuilder.ToString
            End If
           Catch ex As Exception
          Throw ex
          Finally
          StringBuilder = Nothing
          liveIdconnectionUri = Nothing  
          password = Nothing
          str_password = Nothing
          username = Nothing
          credential = Nothing
          iss = Nothing
          psSession = Nothing
          setVar = Nothing
          importSession = Nothing
          End Try
          Return ""
      End Function




   Public Sub CloseRunspace()

   Dim removesession As New PSCommand()
   Try

       If powershell IsNot Nothing Then
           removesession.Commands.AddScript("Remove-PSSession $sa;Remove-Variable $sa;Remove-Module -Name MSOnline;")
           powershell.Commands = removesession
           powershell.Runspace = runspace
           Dim results As Collection(Of PSObject) = powershell.Invoke()

       End If
   Catch ex As Exception
   Finally
       removesession = Nothing
       powershell.Stop()
       powershell.Dispose()

       runspace.Close()
       runspace.Dispose()
       GC.Collect()
       Thread.Sleep(100)
   End Try
  End Sub
4

2 に答える 2