Mohan, If we look at the code from Miguel he is executing the scripts at Test set level so a single host name for all the scripts. Maybe he will have to pass script name to be executed as parameter and execute. What do you suggest?
On Fri, Nov 8, 2013 at 6:58 AM, Mohan Gowda <[email protected]> wrote: > Hi,don't enter the host name in QC for which u wish not to execute those > tc's > Mohan > > On Nov 8, 2013 6:21 PM, "Miguel Ángel Díaz Ibáñez" <[email protected]> > wrote: > > > > 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]> > 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] > >>> > >>> 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. > > > > -- > > -- > > 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. > > -- > -- > 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. > -- Regards, Ganesh Muralidharan 'God Never Forgets' -- -- 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.
