Not Able To Ruun Vbs

[eliposen]

this is my script

dim iRandomNumber, strResultVariables

 

Randomize()

iRandomNumber = Int((1000 * Rnd))

strResultVariables= "[Random]" {"& iRandomNumber & "}"

iRet = WriteResultFile(strResultVariables)

 

 

function WriteResultFile(strResult)

const ForReading=1, ForWriting=2, ForAppending=8

Dim filename, fso, ts, outdata, outdata2, outdata3

 

filename = "VGRUNRESULT_$RV_DEVICEID.TXT"

set fso = CreateObject("Scripting.FileSystemObject")

set ts = fso.OpenTextFile(filename, ForWriting, True)

ts.WriteLine(strResult)

ts.Close

WriteResultFile = 1

end function

 

i am getting in log file

ExitTime returned error.

[SupportTeam]

You should probably specify the full path where the VGRUNRESULT file should be saved.

 

If you continue to have problems plese post the vgEngine trace capturing the call.