Connect to ALM QC via VbS or QTP

Connect to ALM QC via VbS or QTP

You can use the following code to connect to ALMQC via pure VbScript, without using QTP, even though this code would work from QTP as well.

Prerequisite:

• ALMQC should be installed

Code -

----------------------------------------------------------------------------------------------------------------------
Function Name:            funcGetALMConnectionObj
Description:                   This will connect to the ALMQC server via either pure VbS or QTP
Input Parameters:        sQCServer
                                        sQCUsername
                                        sQCPassword
                                        sQCDomain
                                        sQCProject
Output Parameters:     oALMConnObj [The ALM Connection Object]
Author:                          Ashish Jaiswal
----------------------------------------------------------------------------------------------------------------------
Function funcGetALMConnectionObj (sQCServer, sQCUsername, sQCPassword, sQCDomain, sQCProject)

    Defining the Parent QC OTA Object
    Set oALMConnObj = CreateObject("TDAPIOLE80.TDConnection")

    Initiating the connection to the QC Server
    oALMConnObj.InitConnectionEx sQCServer

    Logging in
    oALMConnObj.Login sQCUsername, sQCPassword

    Connecting to the required project and domain
    oALMConnObj.Connect sQCDomain, sQCProject

    Returning the object
    Set funcGetALMConnectionObj = oALMConnObj

End Function
----------------------------------------------------------------------------------------------------------------------

Usage:

Defining the connection parameters for QC
sQCServer = "http://ealm11.anyorg.net/qcbin/"
sQCUsername = "username"
sQCPassword = "password"
sQCDomain = "domain"
sQCProject = "projectname"

Set oALMConnObj = funcGetALMConnectionObj (sQCServer, sQCUsername, sQCPassword, sQCDomain, sQCProject)

Proceeding ahead only if connected
If oALMConnObj.Connected Then

    MsgBox "Connected to QC!"
    MsgBox oALMConnObj.ProjectName

Else

    MsgBox "Not connected to QC"

End If
----------------------------------------------------------------------------------------------------------------------

Common troubleshooting measures -

• Register the OTAClient.dl
• For this put the OTAClient.dll in the "C:WindowsSystem32" drive, if its not already there
• Run the following command to [re]register the dll from the Run window

                      RegSvr32 "C:WindowsSystem32OTAClient.dll"

• If you are getting an error something like ActiveX cant create object - TDConnection then try running the connection code by putting in a .vbs file, from the Run window as follows, via the WScript.exe -

           C:WindowsSysWOW64wscript.exe "C:AutomationQC-Connection.vbs"

go to link download