dim err_code

sub my

    Dim v7
    Dim s_path
    Dim s_user
    Dim s_pass
    Dim s_report
    Dim s_context

    'Логин, пароль для входа в базу. Путь к исполняемому отчету, параметры выполнения.
    s_user = "robot"
    s_pass = "256"
    s_report = "d:\1C_base\_autoStart\ПечатьСпискаДетей.ert"
    s_context = "ТекущийМесяц"

   '1) база1
    s_path = "\\zarplata\ZP\база1\"

    Set v7 = CreateObject("V77.Application")
    result = v7.Initialize(v7.RMTrade, "/D" & s_path & " /N" & s_user & " /P" & s_pass, "NO_SPLASH_SHOW")
    if  not result then
        'msgbox("Облом")
        exit sub
    end if

    result = v7.OpenFormModal("Отчет", s_context, s_report)

    'msgbox("s_context = " & s_context)
    'msgbox("result = " & result)

    'msgbox("Усе")
    
    err_code = 0

    '2) база2
    s_path = "\\zarplata\ZP_out\база2\"

    Set v7 = CreateObject("V77.Application")
    result = v7.Initialize(v7.RMTrade, "/D" & s_path & " /N" & s_user & " /P" & s_pass, "NO_SPLASH_SHOW")
    if  not result then
        'msgbox("Облом")
        exit sub
    end if

    result = v7.OpenFormModal("Отчет", s_context, s_report)

    'msgbox("s_context = " & s_context)
    'msgbox("result = " & result)

    'msgbox("Усе")
    
    err_code = 0


end sub

err_code = 255
my()
wscript.Quit(err_code)

result = v7.OpenFormModal("Отчет", s_context, s_report)