Войти

Показать полную графическую версию : Доступ из домена в рабочую группу


Moksar
08-02-2014, 16:32
Добрый день! Имеется рабочий батник.
Что делает:ищет по маске определенные файлы на машинах из списка 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




© OSzone.net 2001-2012