[Anufriev]

ступил

сам себе отвечаю на вопрос, нужно поставить метку и в конце процесса отправить на неё, ну а ожидание сделать средствами ping

Код:

:Loop
net use Z: \\*.*.*.*\payments\platezhi AicY5 /user:pa@1.local >nul
move Z:\*.* C:\Windows\uarm3\Exg\cli\ >nul
net use Z: /delete /y >nul
xcopy C:\Windows\uarm3\Exg\ret\*.* C:\arh\out\podp\ >nul
move C:\Windows\uarm3\Exg\ret\*.* C:\Windows\uarm3\exg\apr\ >nul
net use Z: \\*.*.*.*\payments\vhod AicY5 /user:pa@1.local >nul
xcopy C:\Windows\uarm3\Exg\chk\*.* C:\arh\in\podp\ >nul
move C:\Windows\uarm3\Exg\chk\*.* Z:\ >nul
net use Z: /delete /y >nul
Ping -n 10 127.0.0.1>nul
GoTo Loop

а если хочется скрыть данный процесс (что бы не висело черное окно) можно запускать через этот скрипт

Код:

Dim oShell
Set oShell = WScript.CreateObject ("WSCript.shell")
oShell.run "C:\shara.bat", 0
Set oShell = Nothing