Calling a VBscript with extension .vbs from Test Complete code

Question

Hi All,I am struggling hard but I have not got any clue on how to call a VB file from test complete.Any body have any idea please help me out on it.ThanksAnkita

karkadil · Accepted Answer

The simplest way is using WScript.Shell Set ws = Sys.OleObject("WScript.Shell") ws.Run("c:\somefile.vbs")

hkosova · Answer

jloyzagawh wrote:
how would I code the call in jscript?

var&nbsp;oShell&nbsp;= Sys.OleObject("WScript.Shell");
oShell.Run("C:\MyFolder\MyScript.vbs");
&nbsp;

hkosova · Answer

Hi Flossy,
&nbsp;
Add your .vbs file as an existing item to your project. Then in your main script, use:
&nbsp;
'USEUNIT string_functionssub Main() ... strDay = ChooseStr(strWeek, 3) ' or prefix the function name with the file name strDay = string_functions.ChooseStr(strWeek, 3) ...end sub
That said, this specific example (reading an item from a comma-separated list) can be replaced with TestComplete's built-in function aqString.GetListItem:
strWeek = "Sun,Mon,Tues,Wed,Thus,Fri,Sat"aqString.ListSeparator = ","
strDay = aqString.GetListItem(strWeek, 2) ' Indexes start from 0, so the 3rd item has index 2
&nbsp;

coplin_geoffrey · Answer

Thank you! That was helpful information. I use external vbscript all the time.

jloyzagawh · Answer

how would I code the call in jscript?

flossythepig · Answer

Sorry to resurrect this topic but I am moving from QTP to TestComplete and have a lot of function libraries used in our existing framework. I have tried a simple exercise to try calling a function from a .vbs file but TestComplete fails to see the function. The function works when it is included in the TC script. I feel I've missed something obvious, but what?Local script:sub Main()&nbsp; dim strDay, strWeek&nbsp; Set ws = Sys.OleObject("WScript.Shell")&nbsp; ws.Run("C:\string_functions.vbs")&nbsp; strWeek = "Sun,Mon,Tues,Wed,Thus,Fri,Sat"&nbsp;&nbsp; 'local function&nbsp; strDay = ChooseStr(strWeek, 3 )&nbsp; Log.Message ("Day using function ChooseStr = " + strDay)&nbsp;&nbsp; 'external function&nbsp; strDay = StrChoose(strWeek, 3)&nbsp; Log.Message ("Day using external function StrChoose = " + strDay)end subFunction ChooseStr(ByVal sCSV, ByVal nIndex)&nbsp;&nbsp;&nbsp; Dim values&nbsp; values = Split(sCSV,",")&nbsp;&nbsp;&nbsp; ChooseStr = values(nIndex)End FunctionExternal file ("C:\string_functions.vbs")Option ExplicitFunction StrChoose(ByVal sCSV, ByVal nIndex)&nbsp;&nbsp;&nbsp; Dim values&nbsp;&nbsp;&nbsp; values = Split( sCSV,",")&nbsp;&nbsp;&nbsp; StrChoose = values(nIndex)End Function

Forum Discussion

Calling a VBscript with extension .vbs from Test Complete code

7 Replies

Related Content

Goto in VBScript

Running Windows Batch Files in Test Complete(VBscript)

Does Test Complete work on a Google Chrome Extension

How to convert vbscript code to javascript in testcomplete

Adding JAR extensions

Recent Discussions

TestComplete14.72 is not recognizing WinUI-3 objects

Floating window bleep overlapping window takes longer time (~10 min) to click the button on it.

Test case randomly fails with "parent object was not found"

Does TC have a .within() method similar to Cypress.io?

SessionCreator /Timeout option not firing EventControl_OnTimeout