VB script code to change the field of a test case in ALM

Below code helps in updating the data of any field of multiple tests uploaded in ALM without logging into the ALM.

You just need to feed the name of the test cases , folder path and ALM credentials. 

I have passed all the data from excel and created a macro in same excel using the below code.

    Set td = CreateObject("TDApiOle80.TDConnection")
    Dim rng As Range

    RowCnt = Sheets("Sheet2").Range("A1").End(xlDown).Row

    ALMUrl = Sheets("Sheet1").Range("B1").Value
    ALMDomain = Sheets("Sheet1").Range("B2").Value
    ALMProject = Sheets("Sheet1").Range("B3").Value
    ALMUserId = Sheets("Sheet1").Range("B4").Value
    ALMUserPwd = Sheets("Sheet1").Range("B5").Value

     RowCnt = Sheets("Sheet2").Range("A1").End(xlDown).Row
    '=========================================
    Set tdc = CreateObject("TDApiOle80.TDConnection")
    tdc.InitConnectionEx ALMUrl
    tdc.Login ALMUserId, ALMUserPwd
    tdc.Connect ALMDomain, ALMProject
   '=========================================
  Set tstMgr = tdc.TreeManager
  'Specify the Folder path in TestPlan, All the scripts under that will be executed.
  Set tsttr = tstMgr.NodeByPath(Sheets("Sheet1").Range("B6").Value)

  '---------------------------------------------
  Set TestList = tsttr.TestFactory
  Set TestPlanFilter = TestList.Filter
  Set TestPlanList = TestList.NewList("")

  For i = 2 To RowCnt
    For Each tpTest In TestPlanList
       If tpTest.Name = Sheets("Sheet2").Range("A" & i).Value Then
          'Below is the example to update the type of the test. 
          tpTest.Type = "QUICKTEST_TEST"
           tpTest.Post
           Exit For
       End If
    Next
 Next
 tdc.ReleaseConnection
 Set TestPlanFilter = Nothing
 Set myTestPlan = Nothing
 Set TestList = Nothing
 Set TestPlanFilter = Nothing

 MsgBox "Update is complete"

Comments

Post a Comment

Popular posts from this blog

UFT - Resolving scrolling issue if object is not visible

There are many times when an object gets the place changed based on the list getting longer on the same webpage, which creates the need to scroll down on the webpage for any automation script to perform any action on the object. Many times we try to resolve this issue using the below code. Set objShell=CreateObject("WScript.Shell") objShell.SendKeys "{PGDN}" But if the place is dynamic and the lists above that object gets bigger then it requires more page down which will be never ending story and requires maintenance every time. So to resolve this issue we can use the below code which will take the pointer focus to the object. Browser("<object properties>").Page("<object properties>").Webbutton("name:=Next").Object.Focus After this you can perform any action on the object.
Read more

How to create a zip folder using VBScript

Below function will create the zip folder and hep you to upload big testing artifacts as attachment in ALM:     ZipAttach = ""     ' Declare the required variables     Dim objZip, objSA, objFolder, zipFile, FolderToZip         FolderToZip = strFoldertoZip     zipFile = strFoldertoZip & ".zip"     'FolderToZip = Environment.Value(<ResultFolder on local drive>)         'Create the basis of a zip file.     CreateObject("Scripting.FileSystemObject") _     .CreateTextFile(zipFile, True) _     .Write "PK" & Chr(5) & Chr(6) & String(18, vbNullChar)     ' Create the object of the Shell     Set objSA = CreateObject("Shell.Application")         ' Add the folder to the Zip     Set objZip = objSA.NameSpace(zipFile)     Set objFolder = objSA.NameSpace(FolderToZip)    ...
Read more

how to access the excel file as database in UFT?

We mostly use the excel file in UFT by using the excel object but it can also be accessed as a database and you can run the queries on different excel sheets as the database tables. You can use the ADODB connection to use the excel as database. Below is the code snippet to use excel as a database. Set  Conn =  CreateObject ( "ADODB.Connection" ) Set  RecSet=  CreateObject ( "ADODB.RecordSet" ) Conn.Open  "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="  & ExcelFilePath&  ";Extended Properties=""Excel 8.0;HDR=YES;IMEX=1"";" If you want to access the .xlsx file then please change "Excel 8.0" to "Excel 12.0". After making the successful connection, you need to provide the query and execute it using the recordset in the same way you do it for database tables. But here you need to provide the excel sheet name as database tables.  Query =  "Select * From ["  & sheetName &  ...
Read more