Your Quality Center session has been disconnected.

[Reto_3]

Hi to all

I try to connect to ALM true a VB in Excel. I used the "Connect and Log on" Script from the Open Test Architecture Reference.

The Script worked fine while we had the ALM running on Sun Solaris. But we changed to Windows Server recently and now I am always getting this Error during the Login:  "tdc.Login strUserName, strPassword"

Error: # -2147418113: Your Quality Center session  has been disconnected. Contact your system administrator for more information

Anybody an Idea?

Here the code:

'------------------------------------------------------------------------

' This routine makes the connection to the gobal TDConnection object,

' declared at the project level as Global tdc as TDConnection,

' and connects the user to the specified project.

'-----------------------------------------------------------------------

Public Function makeConnection(strDomain As String, strProject As String) As Boolean

    On Error GoTo makeConnectionErr

    'Dim qcServer As String

    Dim strServerName

    Dim strUserName

    Dim strPassword

    strServerName = Worksheets("Konfiguration").Range("ServerNameQC").Value

    strUserName = Worksheets("Konfiguration").Range("UserName").Value

    strPassword = Worksheets("Konfiguration").Range("Password").Value

    ' Create the connection

    Application.StatusBar = "Establish Connection"

    If (tdc Is Nothing) Then Set tdc = New TDConnection

    If (tdc Is Nothing) Then GoTo makeConnectionErr

    tdc.InitConnectionEx strServerName

    ' Log on to server

    Application.StatusBar = "Log on to server"

    tdc.Login strUserName, strPassword

    ' Connect to the project and user

    Application.StatusBar = "Connect to the project and user"

    tdc.Connect strDomain, strProject

    ' Exit status

    Application.StatusBar = ""

    makeConnection = True

Exit Function

makeConnectionErr:

    PrintError "makeConnection"

    Application.StatusBar = ""

    makeConnection = False

End Function