This is the VBS code.
'############################################
' LAPINEY
' Script : 17/07/2013
' Proyecto MSDD
' Lanza test y devuelve 0 o 1 en caso de error
'############################################
' NOTA: FDBOZZO. 09/10/2013
' Para lanzar todos los tests desde QTP, elegir "Run" / "New run results in
Quality Center Proyects" y usar este proyecto:
' Root\N000000_SDD\Functional\02 Ejecuciones
Automatización\Integration\Integration
'############################################
Dim objTDCon, objTreeMgr, objTestSetFolder, objTestSetList
Dim objTestSet, objScheduler, objExecStatus, objTestExecStatus
Dim strTestSetFolderPath, strTestSetName, strReportStatus, intCounter
'inicializar
'Comentadas by M@D
'SET WshShell = WScript.CreateObject("Wscript.Shell")
'Return=WshShell.Run("C:\RemoteAgent.bat",1,true)
'hora
comienza = Now()
'MsgBox "INICIO" & vbnewline & comienza & vbnewline & now()
'URL del QC server
strQCURL = "http://ses000900-2027/qcbin";
'Dominio
strQcDomain = "MAPFRE_FAMILIAR"
'Proyecto
strQCProject = "N000000_SDD"
'Usuario que ejecuta el test
strQCUser = "xxxxxxxxxxxxx"
'Contraseña
strQCPassword = "xxxxxxxxxx"
'ruta del test
strTestSetFolderPath = "root\N000000_SDD\Functional\Preproduction\"
'Nombre del test
strTestSetName = "PR PES000900-V2228 SDD"
'Maquina que ejecuta el test
strHostName = "PES000900-V2228"
'Conecta al Quality Center y loguea
Set objTDCon = CreateObject("TDApiOle80.TDConnection")
'Realiza la conexion al QC server
objTDCon.InitConnectionEx strQCURL
'Login
objTDCon.Login strQCUser, strQCPassword
'Domain and project
objTDCon.Connect strQcDomain, strQCProject
'Select the test to run
Set objTreeMgr = objTDCon.TestSetTreeManager
Set objTestSetFolder = objTreeMgr.NodeByPath(strTestSetFolderPath)
Set objTestSetList = objTestSetFolder.FindTestSets(strTestSetName)
'Set objTestSetList = objTestSetFolder.FindTestSets("")
intCounter = 1
'busca el test
While intCounter <= objTestSetList.Count
Set objTestSet = objTestSetList.Item(intCounter)
If objTestSet.Name = strTestSetName Then
intCounter = objTestSetList.Count
End If
intCounter = intCounter + 1
Wend
'Indico el host y ejecuto el test.
Set objScheduler = objTestSet.StartExecution("")
' vacío para local
'objScheduler.TdHostName = strHostName
objScheduler.Run
'Espera
Set objExecStatus = objScheduler.ExecutionStatus
While objExecStatus.Finished = False
objExecStatus.RefreshExecStatusInfo "all", True
If objExecStatus.Finished = False Then
WScript.Sleep 20000
End If
Wend
'Comprobar si falló la ejecución
strReportStatus = "Passed"
For intCounter = 1 To objExecStatus.Count
Set objTestExecStatus = objExecStatus.Item(intCounter)
'msgbox intCounter & " " & objTestExecStatus.Status
If Not (InStr(1, UCase(objTestExecStatus.Status), UCase("Passed")) > 0)
Then
strReportStatus = "Failed"
testsPassed = 0
Exit For
Else
testsPassed = 1
End If
Next
objTDCon.DisconnectProject
If (Err.Number > 0) Then
'MsgBox "Run Time Error. no se puede finalizar la ejecución!! " &
Err.Description & vbnewline & comienza & vbnewline & now()
WScript.Quit 1
ElseIf testsPassed > 0 Then
'MsgBox "Tests OK !!" & vbnewline & comienza & vbnewline & now()
WScript.Quit 0
Else
'MsgBox "Tests KO!!" & vbnewline & comienza & vbnewline & now()
WScript.Quit 1
End If
End Sub
El viernes, 8 de noviembre de 2013 13:10:13 UTC+1, Ganesh muralidharan
escribió:
>
> Can't we just put a comment(') in front of those scripts which should not
> be executed in the vbs?
>
> On Nov 8, 2013, at 5:21 AM, Miguel Ángel Díaz Ibáñez
> <[email protected]<javascript:>>
> wrote:
>
> Hi.
>
> I have the next structure:
>
> Folder Test\Script1\Script test 1
> Folder Test\Script2\Script test 2
> Folder Test\Script3\Script test 3
> Folder Test\Script4\Script test 4
>
> In the folder Script5 there are 4 scripts
> Folder Test\Script5\Script test 5
> Folder Test\Script5\Script test 6
> Folder Test\Script5\Script test 7
> Folder Test\Script5\Script test 8
>
> Total of script test 29
>
> I need to execute only 7 script of 29, I have a vbs script that make a
> loop to execute all the scripts.
>
> I don't know how to modify this .VBS to execute only the 7 scripts
> selecteds.
>
> Other important questions is the dependence among some scripts, for
> example, "the script test 2" must be run before "the script test 3" because
> this uses a information saved by the prior script.
>
> Thanks in avance
> Miguel Ángel Díaz
>
>
>
>
> --
> --
> You received this message because you are subscribed to the Google
> "QTP - HP Quick Test Professional - Automated Software Testing"
> group.
> To post to this group, send email to [email protected]<javascript:>
> To unsubscribe from this group, send email to
> [email protected] <javascript:>
> For more options, visit this group at
> http://groups.google.com/group/MercuryQTP?hl=en
>
> ---
> You received this message because you are subscribed to the Google Groups
> "QTP - HP Quick Test Professional - Automated Software Testing" group.
> To unsubscribe from this group and stop receiving emails from it, send an
> email to [email protected] <javascript:>.
> For more options, visit https://groups.google.com/groups/opt_out.
>
>
--
--
You received this message because you are subscribed to the Google
"QTP - HP Quick Test Professional - Automated Software Testing"
group.
To post to this group, send email to [email protected]
To unsubscribe from this group, send email to
[email protected]
For more options, visit this group at
http://groups.google.com/group/MercuryQTP?hl=en
---
You received this message because you are subscribed to the Google Groups "QTP
- HP Quick Test Professional - Automated Software Testing" group.
To unsubscribe from this group and stop receiving emails from it, send an email
to [email protected].
For more options, visit https://groups.google.com/groups/opt_out.
