VoiceGuide IVR Software Main Page
Jump to content

Search the Community

Showing results for tags 'vbscript'.



More search options

  • Search By Tags

    Type tags separated by commas.
  • Search By Author

Found 3 results

  1. Hello, My company has been using VoiceGuide with a 4-line Professional Version license, I was asked to develop a script to read from a text file and proceed depending on the values of the file. I took an example script that resides on "OpenClosedOrHolidays" project in the VoiceGuide directory, I made some changes to adapt it to our necessities. For testing, I used the DIALOGIC HMP driver and installed VoiceGuide as VOIP service, once developed, installed and tested the script ran all right. Now when I tried installing the same script on the PC hosting the VoiceGuide with the license, the script wouldn't run, it would just stay "On Hold". One difference I can mention is that this PC is running VoiceGuide 4 and with a dialer service, meaning I can call it from a Phone. Can you help me understand why this happens and if there’s anything I can do to make it work? This is the Call_Event log I get when I call: { "call": { "crn": "1000000a", "port": "2", "direction": "in", "time_start": "2021-08-23 11:15:42", "events": " 111541.996|callstate|DE_RINGS|||||0|2|8|0 111541.997|event|DE_RINGS|||||2|0|8|0 111541.998|event|EV_RING|||||1|0|0|0 111541.998|command|cmd_AnswerCall|||||0|0|0|0 111541.999|event|TDX_CST|DE_RINGS|ET_RON|||0|0|0|0 111542.546|event|TDX_SETHOOK|DX_OFFHOOK|CALL_INBOUND|||0|0|0|0 111542.546|callstate|TDX_SETHOOK_DX_OFFHOOK|||||0|256|4|0 111542.547|state|Ring 1 connected|||||0|0|0|0 111542.549|state|[Clear retries counter] Evaluate [0]|||||0|0|0|0 111542.551|state|[Welcome] Playing wav (C:\Program Files\VoiceGuide\Scripts\Vac\Wav\welcome.wav)|||||0|0|0|0 111542.551|event|TDX_SETHOOK_DX_OFFHOOK|||||256|1|4|0 111542.551|command|cmd_PlayStart|||||117366|0|0|0 111542.551|event|TDX_CST|DE_LCON||||3189|0|0|0 111545.068|state|[Check System Online] RunScript vbs, onhold=|||||0|0|0|0 111600.212|event|FAX|DE_TONEON|FAX|||1005|0|0|0 111600.213|event|TDX_CST|DE_TONEON|FAX|||1005|0|0|0 111603.789|event|DISCONNECT|DE_TONEON|DISCONNECT_USER_2|||1004|0|0|0 111603.789|event|DISCONNECT_USER_2|DE_TONEON|DISCONNECT_USER_2|||1004|0|0|0 111603.789|event|TDX_CST|DE_TONEON|DISCONNECT_USER_2|||1004|0|0|0 111603.789|callstate|LINECALLSTATE_DISCONNECTED-DISCONNECT_USER_2|||||0|16384|64|0 111603.795|event|LINECALLSTATE_DISCONNECTED-DISCONNECT_USER_2|||||16384|0|64|0 111603.795|command|cmd_DropCall|||||0|0|0|0 111603.839|event|TDX_SETHOOK|DX_ONHOOK||||0|0|0|0 111603.840|callstate|TDX_SETHOOK_DX_ONHOOK|||||0|1|32|0 111603.844|event|TDX_SETHOOK_DX_ONHOOK|||||1|0|32|0 111603.844|callstate|GCEV_RELEASECALL|GCST_NULL||||2137|0|0|0 ", "length": "21.848" }}, The painted line is the VBScript it’s trying to run but it won’t continue to the next modules. Thanks.
  2. Hi Support Team Thanks for your support. I was upgrade from V6.0. to V7.5.19 , i have problem at module VBScript, it error occurred and voiceguide hanged. VBScript module [ set fso = CreateObject("Scripting.FileSystemObject") set fileLocalData = fso.OpenTextFile("$RV_PathScript\" + "localinfo.txt") sEntireFile = fileLocalData.ReadAll set fileLocalData = Nothing set fso = Nothing set vg = CreateObject("vgServices.CommandLink") vg.Run_ResultReturn $RV_LINEID, sEntireFile set vg = Nothing ] ------------------------------ 120200.855 7 3 1 1 vbs saving script - yes (UsingClearScript=True, strIni_moduleRunScript_SaveToFile=1) 120200.855 7 3 1 1 vbs delete existing: C:\Program Files (x86)\VoiceGuide\temp\vbs_3_1.vbs 120200.865 7 3 1 1 vbs script written to (overwriting previous): C:\Program Files (x86)\VoiceGuide\temp\vbs_3_1.vbs 120200.865 7 3 1 1 runscr will be waiting. wait=1, calling iModuleIdx=30 (setting iRunWait_VgmIdx to 30) 120200.867 7 3 1 1 moh not set 120200.867 7 AvailablePhysicalMemory=2585 MB 120200.867 7 3 1 1 runscr ClearScript VBScriptEngine used 120200.893 7 3 1 1 runscr .Execute call 120200.900 7 3 1 1 ERROR RunScript_ClearScript_ScriptEngineException ERROR ErrorDetails: File not found ERROR Message: File not found ERROR Source: ClearScript ERROR StackTrace: at Microsoft.ClearScript.ScriptEngine.ThrowScriptError(IScriptEngineException scriptError) at Microsoft.ClearScript.Windows.WindowsScriptEngine.ThrowScriptError(Exception exception) at Microsoft.ClearScript.Windows.WindowsScriptEngine.<>c__DisplayClass1e`1.<ScriptInvoke>b__1d() at Microsoft.ClearScript.ScriptEngine.ScriptInvoke[T](Func`1 func) at Microsoft.ClearScript.Windows.WindowsScriptEngine.ScriptInvoke[T](Func`1 func) at Microsoft.ClearScript.Windows.WindowsScriptEngine.Execute(String documentName, String code, Boolean evaluate, Boolean discard) at (Object , String ) at ..(Object oParam) 120200.900 7 3 1 1 note If this error persists try using Windows Scripting Host engine, by adding this entry to [moduleRunScript] section of VG.INI : Engine=WSH 120200.900 7 3 1 1 runscr dispose call 120200.901 7 3 1 1 runscr using WSH instead (as ClearScript error). save vbs to to file 120200.901 7 3 1 1 vbs delete existing: C:\Program Files (x86)\VoiceGuide\temp\vbs_3_1.vbs 120200.903 7 3 1 1 vbs script written to (overwriting previous): C:\Program Files (x86)\VoiceGuide\temp\vbs_3_1.vbs 120200.904 7 3 1 1 runscr start - Run_VBS_UsingExternalInterpreter [C:\Program Files (x86)\VoiceGuide\temp\vbs_3_1.vbs]
  3. I'm having a problem with the Internet Portal sample script where when it runs, it repeats: "The Dow is trading at ZERO. The Nasdaq is trading a ZERO. The S&P is trading at ZERO." I don't know if this is a vbscript code error or if finance.yahoo.com changed something on their page since this vbscript sample code was written. Do you know what's happening in this situation? Please determine the accuracy of the sample and provide any fixes. Below is original Voiceguide internet portal vbscript. I am running vg 6.0.3991 Enterprise+Dialer --- if 1 then 'preferred approach is: 'connect and retrieve data by using XMLHTTP object Set objXMLHTTP = CreateObject("microsoft.XMLHTTP") objXMLHTTP.Open "GET", "http://finance.yahoo.com", False objXMLHTTP.Send If objXMLHTTP.Status <> 200 Then readWwwText = "" else readWwwText = objXMLHTTP.responseText Set objXMLHTTP = Nothing end if else 'another approach is: 'connect and retrieve data by starting up another instance of InternetExplorer Set IE = CreateObject("InternetExplorer.Application") With IE .RegisterAsDropTarget = False .Visible = False .Silent = True .Navigate("finance.yahoo.com") While .Busy WScript.Sleep 100 Wend With .Document.Body readWwwHtml = .InnerHTML readWwwText = .InnerText End With End With IE.Quit Set IE = Nothing end if 'iIndexDow = GetIntegerAfterLabel("Dow</a>") 'iIndexNasdaq = GetIntegerAfterLabel("Nasdaq</a>") 'iIndexSP500 = GetIntegerAfterLabel("P 500</a>") iIndexDow = GetIntegerAfterLabel("<span class=""streaming-datum"" id=""yfs_l10_^dji"">") iIndexNasdaq = GetIntegerAfterLabel("<span class=""streaming-datum"" id=""yfs_l10_^ixic"">") iIndexSP500 = GetIntegerAfterLabel("<span class=""streaming-datum"" id=""yfs_l10_^gspc"">") strResultVariables= "[MarketDow]{" & iIndexDow & "}" & _ "[MarketNasdaq]{" & iIndexNasdaq & "}" & _ "[MarketSP500]{" & iIndexSP500 & "}" 'make sure the returned data does not contain any commas strResultVariables = replace(strResultVariables, ",", "") set vg = CreateObject("VoiceGuide.CommandLink") vg.Run_ResultReturn $RV_DEVICEID, strResultVariables Set vg = Nothing function GetIntegerAfterLabel(strLabel) 'it is assumed that the integer terminates with a decimal point iLblPos1= Instr(readWwwText, strLabel) iValuePos1 = iLblPos1 + len(strLabel) iValuePos2 = Instr(iValuePos1, readWwwText, ".") strAfterLabel = mid(readWwwText, iValuePos1, iValuePos2-iValuePos1) 'msgbox strAfterLabel 'now remove everything except the digits. for i = 1 to len(strAfterLabel) ch = mid(strAfterLabel, i, 1) if ch >= "0" and ch <= "9" then GetIntegerAfterLabel = GetIntegerAfterLabel & ch end if next end function Internet portal log.zip
×