Vbscript 使用CRT vbs脚本创建日志文件

我想运行一个脚本，它发送一些从数组中获取输入的命令。对于我想要的数组的每个元素，打印到不同的日志文件

到目前为止，我制作的脚本如下，但不起作用。似乎只存储最后发送的命令的打印

请问正确的方法是什么

#$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