[megaloman]

Код:

@Echo Off

Set Spisok=D:\Delete\Spisok.ip
Set File=D:\Delete\get.xml
Set Shara=obmen$$\shara\
Set Log=D:\Delete\Spisok.log

Echo +++ >> "%Log%"
Echo +++ %Date% %Time% ++++++++++++++++++++++++ >>"%Log%"
Echo +++ >> "%Log%"

FOR /F "usebackq delims=" %%i IN ("%Spisok%") DO Call :CopyTo %%i
GoTo :Eof

:CopyTo
ping -n 1 %1 >nul

if not %Errorlevel%==0 (
   Echo --- Узел %1 не пингуется >> "%Log%"
   GoTo :Eof
)

Copy "%File%" "\\%1\%Shara%" >nul 1>nul 2>nul

if %Errorlevel%==0 echo +++ Успешно    Copy "%File%" "\\%1\%Shara%" >> "%Log%"
if not %Errorlevel%==0 echo --- Не удалось Copy "%File%" "\\%1\%Shara%" >> "%Log%"