Welcome Serena Central users! CLICK HERE
The migration of the Serena Central community is currently underway. Be sure to read THIS MESSAGE to get your new login set up to access your account.
Highlighted
Reto_3 Absent Member.
Absent Member.
1390 views

Your Quality Center session has been disconnected.

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

0 Likes
The opinions expressed above are the personal opinions of the authors, not of Micro Focus. By using this site, you accept the Terms of Use and Rules of Participation. Certain versions of content ("Material") accessible here may contain branding from Hewlett-Packard Company (now HP Inc.) and Hewlett Packard Enterprise Company. As of September 1, 2017, the Material is now offered by Micro Focus, a separately owned and operated company. Any reference to the HP and Hewlett Packard Enterprise/HPE marks is historical in nature, and the HP and Hewlett Packard Enterprise/HPE marks are the property of their respective owners.