Store in different logfiles for each array element vbscript

[cgkas]

Hello to all in Van Dyke forum,

I'm new with scripting in CRT, please help.

I want to run a script that sends some command taking input from an array. For each element of the array I want the respective print to be stored in a different log file.

The script I made so far is below but doesn't work. It seems that only stores the print of last command sent.

How would be the correct way to do it please?

#$language = "VBScript"
#$interface = "1.0"

crt.Screen.Synchronous = True

Sub Main
  arr = "1,2,3"
  a = Split(arr, ",")

  For i = LBound(a) To UBound(a)
    crt.Session.Log False 'Turn off log session
    crt.Session.LogFileName = "C:\Users\Path\MyLogfile No." & a(i) & ".log"  'Define log file name
    crt.Session.LogUsingSessionOptions 'Turn on log session

    crt.Screen.Send "some command" & a(i) & ";" & Chr(13)  'Some command sent to each arr element, this part works fine
  Next

  crt.Session.Log False

  'Restore the default log file     
  crt.Session.LogFileName = "C:\Users\myuser\Documents\default.log"
End Sub

Thanks in advance.

Regards

[bgagnon]

Hi cgkas,

Perhaps you need to add a WaitForString() after you send the command(s) because it could be exiting the For Loop and turning off logging before the command completes.

    crt.Screen.Send "some command" & a(i) & ";" & Chr(13)  'Some command sent to each arr element, this part works fine
    crt.Screen.WaitForString "shell_prompt"
  Next

That worked for me, resulting in three log files with the output from a command in each.

[cgkas]

Hello dear Brenda,

Excellent! Thanks for your fast response.

With your advice it works pretty fine now.

Best regards

[bgagnon]

Hi cgkas,

Thanks for posting an update.