QC对VBScript的使用.docVIP

通过OTA调度执行QC的TestSet参考：Executing QC TestSet via OTA API (QCRunTestSet) /executing-qc-testset-via-ota-api-qcruntestset/ ? VBS代码实现如下： VBScript DocumentOption Explicit QC ParamtersDim Server, UserName, Password, QCDomain, QCProject, QCTestSetPath, QCTestSetName Server = http://server:8080/qcbin/UserName = john.smithPassword = passwordQCDomain = DEFAULTQCProject = theProjectQCTestSetPath = Root\TestSetFolderQCTestSetName = Daily Regression  summary Loads an instance of QCRunTestSet and initiates the scheduling controller /summary param name=ServerQC Server/param param name=UserName/param param name=Password/param param name=DomainDomain name/param param name=ProjectProject name/param param name=QCTestSetPathPath to the TestSet (Root\FolderName\SubFolderName)/param param name=QCTestSetNameName of the test set/param remarks/remarksPublic Sub RunTestSet(Server, UserName, Password, QCDomain, QCProject, QCTestSetPath, QCTestSetName)?Dim QCTestSetExec, sErr, arrArgs, ix, arg??sErr = Unable to execute RunTestSet. Please provide the ?arrArgs = Array(Server, UserName, Password, QCDomain, QCProject, QCTestSetPath, QCTestSetName)??For ix = LBound(arrArgs) To UBound(arrArgs)??Execute arg = arrArgs(ix) ??If arg = Then???MsgBox sErr arrArgs(ix) ., vbOkOnly, Error!??End If?Next??Set QCTestSetExec = New QCRunTestSet??With QCTestSetExec??.Server = Server??.UserName = UserName??.Password = Password??.QCDomain = QCDomain??.QCProject = QCProject??.QCTestSetPath = QCTestSetPath??.QCTestSetName = QCTestSetName????.Run?End With??Set QCTestSetExec = NothingEnd Sub summary  /summary remarks/remarksClass QCRunTestSet?Public Variables?? summary? QC Server URL (string)? /summary? remarks/remarks?Public Server?? summary? UserName (string)? /summary? remarks/remarks?Public UserName?? summary? Password (string)? /summary? remarks/remarks?Public Password?? summary? Quality Center Domain (string)? /summary? remarks/remark