Voicemail Pro - Check if file exists 2

[ltxn]

Hi,

I'm trying to create a VBScript module in VMPro to check if a file exists.
We're having +/- 100 Incoming Call Routes routed to the VMPro module. The module plays a dedicated wav based on the last 3 digits of the DDI.
Not all DDI's have a dedicated wav file, for those cases a default wav file should be played.

I was goofing around with a VBScript Action with the following script:

dim fso, sPath, sFile

sPath = "C:\Program Files\Avaya\IP Office\Voicemail Pro\VM\WAVS\Modules\mVBScript\"
sFile = sPath & $CP2 & ".wav"
Set fso = CreateObject("Scripting.FileSystemObject")

Voice.Result = fso.FileExists(sFile)

fso.FileExists(sFile) returns True or False correctly, though the result of the script is always Failure.

Any help is appreciated.

I've added the module as attachment.

 

[Gunnaro]

A low tech solution:

Copy sufficient amount of the default wav to match the non-custom ext, then rename them. If they later want a custom wav, the file is already their to be re-recorded in an Edit playlist-action.

I may have time to look at a more fancy setup later today, it's an interesting feature. Probably easy to solve.

Kind regards

Gunnar
__________________________________________________________________
Hippos have bad eyesight, but considering their weight, it’s hardly their problem

 

[ltxn]

That would be great Gunnar.

Your Low Tech solution was Plan B.

 

[Gunnaro]

Ok, can you describe a bit more of the flow?
Like why the call ends up in this module, and what's going to happen afterwards.

I'll load it on my system while I wait, let's see what's bugging this module.

Kind regards

Gunnar
__________________________________________________________________
Hippos have bad eyesight, but considering their weight, it’s hardly their problem

 

[ltxn]

The Flow:
Every call is routed to this VMPro module.
In the module there's some more logic:
[ul]
[li]A Database lookup to check if the Calling Number is barred[/li]
[li]A Date/Time check for opening hour[/li]
[li]Another Database lookup to get the internal contact for this Called Number (DDI)[/li]
[/ul]
This part of the module is used after the Date/Time check to find the right message when closed, if no message is found a general message should be played

 

[Gunnaro]

Fantastic, you have not only VBscript lic, but Advanced edition.
I tried you script, gives "success" for everything you throw at it.

I'll dig into it after dinner, I think I have something similar in my R&D box.

Kind regards

Gunnar
__________________________________________________________________
Hippos have bad eyesight, but considering their weight, it’s hardly their problem

 

[ltxn]

For debugging, I added a few more variables to the script:
$SAV (Voice.SavedResult) is set to sFile
$VAR (Voice.Variable) is set to fso.FileExists(sFile)

This is the error I'm getting, when I made a call to ...127:

12/10 11:39:27.625 vmprov5s (01,9) 11cc, c20: > voicescript:ut_Variable(True)
12/10 11:39:27.625 vmprov5s (01,9) 11cc, c20: > voicescript::SetVariable(True, 0)
12/10 11:39:27.625 vmprov5s (01,9) 11cc, c20: > RemoteFnSupport::tagIvoicescript::SetVariable(True, 0)
12/10 11:39:27.625 vmprov5s (2a,9) 11cc, c20: VScriptOwner::SetString - $VAR = True
12/10 11:39:27.625 vmprov5s (01,9) 11cc, c20: < RemoteFnSupport::tagIvoicescript::SetVariable()
12/10 11:39:27.625 vmprov5s (01,9) 11cc, c20: < voicescript::SetVariable()
12/10 11:39:27.625 vmprov5s (01,9) 11cc, c20: < voicescript:ut_Variable()
12/10 11:39:27.625 vmprov5s (01,9) 11cc, c20: > voicescript:ut_SavedResult(C:\Program Files\Avaya\IP Office\Voicemail Pro\VM\WAVS\Modules\mVBScript\Closed-127.wav)
12/10 11:39:27.625 vmprov5s (01,9) 11cc, c20: > voicescript::SetSavedResult(C:\Program Files\Avaya\IP Office\Voicemail Pro\VM\WAVS\Modules\mVBScript\Closed-127.wav, 0)
12/10 11:39:27.625 vmprov5s (01,9) 11cc, c20: > RemoteFnSupport::tagIvoicescript::SetSavedResult(C:\Program Files\Avaya\IP Office\Voicemail Pro\VM\WAVS\Modules\mVBScript\Closed-127.wav, 0)
12/10 11:39:27.625 vmprov5s (2a,9) 11cc, c20: VScriptOwner::SetString - $SAV = C:\Program Files\Avaya\IP Office\Voicemail Pro\VM\WAVS\Modules\mVBScript\Closed-127.wav
12/10 11:39:27.625 vmprov5s (01,9) 11cc, c20: < RemoteFnSupport::tagIvoicescript::SetSavedResult()
12/10 11:39:27.625 vmprov5s (01,9) 11cc, c20: < voicescript::SetSavedResult()
12/10 11:39:27.625 vmprov5s (01,9) 11cc, c20: < voicescript:ut_SavedResult()
12/10 11:39:27.625 vmprov5s (01,9) 11cc, c20: > voicescript:ut_Result(True)
12/10 11:39:27.625 vmprov5s (01,9) 11cc, c20: > voicescript::SetResult(True, 0)
12/10 11:39:27.625 vmprov5s (01,9) 11cc, c20: > RemoteFnSupport::tagIvoicescript::SetResult(True, 0)
12/10 11:39:27.625 vmprov5s (2a,9) 11cc, c20: VScriptOwner::SetString - $RES = True
12/10 11:39:27.625 vmprov5s (01,9) 11cc, c20: < RemoteFnSupport::tagIvoicescript::SetResult()
12/10 11:39:27.625 vmprov5s (01,9) 11cc, c20: < voicescript::SetResult()
12/10 11:39:27.625 vmprov5s (01,9) 11cc, c20: < voicescript:ut_Result()
12/10 11:39:27.625 vmprov5s (01,9) 11cc, c20: > voicescript::~voicescript()
12/10 11:39:27.625 vmprov5s (2a,8) 11cc, c20: > VScriptOwner::~VScriptOwner([026B38C8] - <dlg:026CD050>)
12/10 11:39:27.625 vmprov5s (2a,8) 11cc, c20: < VScriptOwner::~VScriptOwner()
12/10 11:39:27.627 vmprov5s (2e,8) 11cc,144c: Syslog Queue Size = 4 , send count = 1
12/10 11:39:27.646 vmprov5s (09,2) 11cc, c20: <===============================================>
12/10 11:39:27.654 vmprov5s (2a,5) 11cc, f2c: [02724348] - Script has detached
12/10 11:39:27.677 vmprov5s (2e,8) 11cc,144c: Syslog Queue Size = 3 , send count = 2
12/10 11:39:27.678 vmprov5s (09,2) 11cc, c20: <=========== UNEXPECTED PROGRAM ERROR ==========>
12/10 11:39:27.704 vmprov5s (2a,5) 11cc, f2c: [02724348] - Completed running script - result is false
12/10 11:39:27.704 vmprov5s (02,9) 11cc, f2c: > IVRNodePlayer::Back(Session: 000000cc, ok: 0, num: 1, c: )
12/10 11:39:27.704 vmprov5s (02,6) 11cc, f2c: Session: 000000cc, Substitute (Failure) -> (Failure)
12/10 11:39:27.704 vmprov5s (02,9) 11cc, f2c: > IVRNodePlayer::Back(02707878) : (session=000000cc, parent=026CD050), recursive_count=(1)
12/10 11:39:27.704 vmprov5s (02,8) 11cc, f2c: > VoiceMailDialog:layNodeDestroyed(026CD050, node=02707878, current=02707878)
12/10 11:39:27.704 vmprov5s (02,8) 11cc, f2c: < VoiceMailDialog:layNodeDestroyed()
12/10 11:39:27.704 vmprov5s (02,9) 11cc, f2c: > IVRNodePlayer::Begin(02707990) : (session=000000cc, parent=026CD050), recursive_count=(2)
12/10 11:39:27.704 vmprov5s (02,9) 11cc, f2c: > IVRNodePlayer::ActionResults(Session: 000000cc, $RES: Failure)
12/10 11:39:27.704 vmprov5s (02,9) 11cc, f2c: > IVRNodePlayer::SetNode(Session: 000000cc, Node: mVBScript.SAV - Failure.0, Modstr: , Key: )
12/10 11:39:27.704 vmprov5s (09,6) 11cc, f2c: Executing request to run node mVBScript.SAV - Failure.0, current stack depth is 3
12/10 11:39:27.704 vmprov5s (09,6) 11cc, f2c: Found node mVBScript.SAV - Failure.0, and creating an execution point for it
12/10 11:39:27.704 vmprov5s (09,6) 11cc, f2c: Executing node mVBScript.SAV - Failure.0, current stack depth is 4 was 3

All goes well, $RES is set to True, until the "UNEXPECTED PROGRAM ERROR", then $RES is changed to Failure.
I can't find why the error is thrown.

Another workaround could be to ignore $RES and use the $SAV variable to store the correct path for the wav file to be played.

 

[mattKnight]

Can you post the entire vbscript?

Take Care

Matt
I have always wished that my computer would be as easy to use as my telephone.
My wish has come true. I no longer know how to use my telephone.

 

[Gunnaro]

Matt, here is all of it:

dim fso, sPath, sFile

sPath = "C:\Program Files\Avaya\IP Office\Voicemail Pro\VM\WAVS\Modules\mVBScript\"
sFile = sPath & $CP2 & ".wav"
Set fso = CreateObject("Scripting.FileSystemObject")

Voice.Variable = fso.FileExists(sFile)
Voice.SavedResult = sFile
Voice.Result = fso.FileExists(sFile)

I haven't had the time to check it out, other than running it.

ITXN:
You run a User-Database already, add a new column to the DB, "RECORDING" - (Yes/No)

If the call is out of hours, check on EXTN and RECORDING. If Recording = YES, the exit will be a success, playing the closed-$CP1.wav (or whatever you like it to play)

For recording purposes, make a module that has a DB Execute after the recording has been done, adding "YES" to the EXTN.

If you want the module and DB, I'll test it and upload later.

Kind regards

Gunnar
__________________________________________________________________
Hippos have bad eyesight, but considering their weight, it’s hardly their problem

 

[mattKnight]

>Can you post the entire vbscript?

Is that all teh code there is?

Can you post the function header too?

Take Care

Matt
I have always wished that my computer would be as easy to use as my telephone.
My wish has come true. I no longer know how to use my telephone.

 

[Gunnaro]

Matt: That's all saw in the VB action, but I'm out for a run right now
OP has to provide the Header function.

Kind regards

Gunnar
__________________________________________________________________
Hippos have bad eyesight, but considering their weight, it’s hardly their problem

 

[ltxn]

Yes, that's all the code there is.

The header is the default Voicemail Pro adds in a VBScript action:

Sub Main (dlgid)
   dim registration
   Set Voice = CreateObject("vmprov5.voicescript")
   registration = Voice.Register(dlgid)
   if registration Thendim registration
   Set Voice = CreateObject("vmprov5.voicescript")
   registration = Voice.Register(dlgid)
   if registration Then

      dim fso, sPath, sFile

      sPath = "C:\Program Files\Avaya\IP Office\Voicemail Pro\VM\WAVS\Modules\mVBScript\"
      sFile = sPath & $CP2 & ".wav"
      Set fso = CreateObject("Scripting.FileSystemObject")

      Voice.Variable = fso.FileExists(sFile)
      Voice.SavedResult = sFile
      Voice.Result = fso.FileExists(sFile)

   end if
End Sub

 

[mattKnight]

I suspect... and having looked at the documentation...

fso.FileExists(sFile) returns a BOOLEAN result i.e. a representation of true or false

Voice.variable is a STRING type i.e the word TRUE or FALSE

I think that the issue is that VBscript doesn't do the conversion as we expect.

Try

Voice.Variable = cstr(fso.FileExists(sFile))

or

if (fso.FileExists(sFile) = true) then
 Voice.Variable = "True"
else
 Voice.Variable = "False"

end if

Take Care

Matt
I have always wished that my computer would be as easy to use as my telephone.
My wish has come true. I no longer know how to use my telephone.

 

[mattKnight]

Sub Main (dlgid)
   Rem declare variables
   dim registration
   dim fso, sPath, sFile

   Rem build an instance of our voice object
   Set Voice = CreateObject("vmprov5.voicescript")
   registration = Voice.Register(dlgid)

   rem assume this is a cut and past error
   rem as it is not required
   rem from here
   rem if registration Thendim registration
   rem Set Voice = CreateObject("vmprov5.voicescript")
   rem registration = Voice.Register(dlgid)
   rem to here

   rem check registration is valid
   if registration Then
      sPath = "C:\Program Files\Avaya\IP Office\Voicemail Pro\VM\WAVS\Modules\mVBScript\"
      sFile = sPath & $CP2 & ".wav"

      Rem build an instance of our voice object
      Set fso = CreateObject("Scripting.FileSystemObject")

      if fso.FileExists(sFile) = true then
       Voice.Result = "True"
       Voice.SavedResult = sFile
      else
       Voice.Result = "False"
      end if
      rem tidy up our FSO object
      rem care - ought to check that it is instanced first
      set fso = nothing
   end if
  rem tidy up our Voice object too maybe (or maybe not)
  rem not sure if that will screw up the return of the value
End Sub

As you can see I've tidied up the code a bit, where I've removed the duplicate code, make sure that you only create 1 Voice object, cos according to the post you create one then immediately recreate it.

Take Care

Matt
I have always wished that my computer would be as easy to use as my telephone.
My wish has come true. I no longer know how to use my telephone.

 

[ltxn]

I tried both of your suggestions, got the same result.
I'm starting to think something's wrong with the server or the VoiceMail Pro installation.

 

[ltxn]

Oops that was before your last post.
I copied the declaration of the voice object twice, that's a copy/paste error.

 

[Gunnaro]

If you can't make it run, just go DB all the way.
Less maintenance.

Kind regards

Gunnar
__________________________________________________________________
Hippos have bad eyesight, but considering their weight, it’s hardly their problem

 

[mattKnight]

As I can't see the check_userrec block...

What are you testing for in that?
Try this

   Rem declare variables
   dim registration
   dim fso, sPath, sFile

   Rem build an instance of our voice object
   Set Voice = CreateObject("vmprov5.voicescript")
   registration = Voice.Register(dlgid)

   rem assume this is a cut and past error
   rem as it is not required
   rem from here
   rem if registration Thendim registration
   rem Set Voice = CreateObject("vmprov5.voicescript")
   rem registration = Voice.Register(dlgid)
   rem to here

   rem check registration is valid
   if registration Then
    Voice.Result = TRUE
   end if
  rem tidy up our Voice object too maybe (or maybe not)
  rem not sure if that will screw up the return of the value
End Sub

see if you call goes to the SUCCESS route, then try Voice.Result = FALSE




Take Care

Matt
I have always wished that my computer would be as easy to use as my telephone.
My wish has come true. I no longer know how to use my telephone.

 

[ltxn]

Hi Matt,

I'm sorry but the screenshot you're referring to, is from Gunnar.

This is what my VMPro module looks like:

 

[ltxn]

Aargh, i'm sorry this is the correct one: