@echo off
@chcp 65001

cd "%~dp0"

rexec.exe -l login -p password servername command
 
if not errorlevel 0 ( 
    echo rexec завершился с ошибкой %errorlevel% . >> log.txt
    exit 1
)

ftp -s:ftp-get-log.txt servername

if not exist f7272-log.txt (
    echo Нет файла f7272-log.txt . >> log.txt
    exit 1
)

@chcp 866>nul
@<"f7272-log.txt">"f7272-logw.txt" (for /f "delims=" %%i in ('find/n /v ""') do @chcp 65001>nul& set x=%%i& cmd/v/c echo[!x:*]^^=!)

@chcp 65001

for /f %%i in (f7272-logw.txt) do (
    if %%i==1NАТ9995 goto :getfile
)    

echo Програрамма, запускаемая rexec, завершилась с ошибкой. >> log.txt
exit 1    

:getfile
ftp -s:ftp-get-f7272.txt servername
if not exist f7272.txt (
    echo Нет файла f7272.txt . >> log.txt
    exit 1
)

exit 0

Sub GET_H7272()

    ChDir (ThisWorkbook.Path)
    
    Set RunBat = CreateObject("WScript.Shell")
    
    Dim PathToBatch As String
    Dim ReturnValue As Double
    
    PathToBatch = ThisWorkbook.Path + "\src\get-f7272.bat"
    ReturnValue = RunBat.Run(PathToBatch, 0, True)

    Msg = "Готово"
    MsgEr = "Выгрузка H7272 завершилась с ошибкой"
    Style = vbOKOnly Or vbInformation Or vbDefaultButton1 Or vbSystemModal
      
    If ReturnValue = 0 Then
        Call IMPORT_F7272_2
'        Resp = MsgBox(Msg, Style)
    Else
        Resp = MsgBox(MsgEr, Style)
    End If
    
'    ActiveWindow.Close
    
End Sub