diff --git a/ToolCollection/ClassWindream_allgemein.vb b/ToolCollection/ClassWindream_allgemein.vb index ce8e7d5..e14bf3d 100644 --- a/ToolCollection/ClassWindream_allgemein.vb +++ b/ToolCollection/ClassWindream_allgemein.vb @@ -49,7 +49,20 @@ Public Class ClassWindream_allgemein ' Process.GetCurrentProcess.Kill() End If End Sub + Private Sub LogoutCurrentSession() + If Not IsNothing(CURRENToWMSession) Then + Try + CURRENToWMSession.Logout() + Catch + ' ignorieren – Session war evtl. schon tot + End Try + CURRENToWMSession = Nothing + End If + End Sub + Public Function GetWMSessionAsUser(Domain, ServerName, UserName, Password) + LogoutCurrentSession() + Dim SessionAsUser Dim aConnect, aUserId, aSession On Error Resume Next @@ -143,14 +156,7 @@ Public Class ClassWindream_allgemein End Function Private Function GetWMSession() - If Not IsNothing(CURRENToWMSession) Then - Try - CURRENToWMSession.Logout() - Catch - ' ignorieren – Session war evtl. schon tot - End Try - CURRENToWMSession = Nothing - End If + LogoutCurrentSession() Try Try