 |
|
Доступ из домена в рабочую группу
Добрый день! Имеется рабочий батник.
Что делает:ищет по маске определенные файлы на машинах из списка C:\IP.txt.
В чём прошу помочь:нужна авторизация в рабочей группе перед копированием файлов
Помогите прикрутить авторизацию к этому батнику пожалуйста!
>>>
Код:
@Echo off
Set DD_MM_YYYY=01.01.2014
Set filename=C:\IP.txt
Set To=C:\TEST
Set Maska=*.zip
FOR /F "usebackq delims=" %%f IN (%filename%) DO Call :CopyData "\\%%f\\TEST"
GoTo :Eof
:CopyData
rem ----------------------------- Тест на доступ к исходной папке
If Not Exist "%~1\*.*" (
Echo --- Указанный путь недоступен %1
GoTo :Eof
)
rem ----------------------------- Цикл по файлам в папке по маске
FOR %%i IN ("%~1\%Maska%") DO Call :CopyDataFind "%%~ti" "%%i"
GoTo :Eof
:CopyDataFind
rem ----------------------------- Поиск и копирование файла за указанную дату
Set DMY=%~1
If %DD_MM_YYYY%==%DMY:~0,10% (
Copy %2 "%To%\" >nul 1>nul
If Exist "%To%\%~nx2" (
Echo +++ Успешно скопирован %2
) Else (
Echo --- Не удалось скопировать %2
)
)
GoTo :Eof
|
Время: 09:03.
© OSzone.net 2001-