[deepred]

6a6yko,

почему вариант с ftp не устраивает? К папке на "сервер 2" открыт общий доступ и её можно подключить как сетевой диск? Врем копирования роль играет? и сами файлы *.dsus находятся в одной папке?

На скорую руку такая штука получилась, проверяй:

Код:

 
@Echo Off&&Chcp 866

net use X: адрес пароль /user:имя_пользователя /persistent:no
ping -n 2 1500 127.0.0.1>nul

if exist "X:\" (( call :copy_file
                       net use X:  /Delete
                       goto :eof)) else (Echo Ошибка подключения!
                                                  goto :eof)

:copy_file
set $num=0
Set $SCR=F:\exe\
Set $SCF=*.dsus

Set $DCR=F:\exe\qwer
Set $Obj=%$SCR%:%$SCF%

for /F "tokens=* Delims=" %%a In ('Where %$Obj% ') do (set /a $num+=1 
                                                       call :action "%%a" "%%~ta")
Echo Скопировано %$num% файлов!!!
goto :eof

:action
set ch=%~2
set ch=%ch:~0,10%

if "%ch%"=="%date%" (( if not exist $DCR md %$DCR%\
                       copy /v /y %1 %$DCR%\)) else goto :eof

Тебе нужно под себя отредактировать пути в переменных:

Set $SCR=F:\exe\ и Set $DCR=F:\exe\qwer


Тоже самое, но *****.vbs
Выделенное под замену....

Код:

 

Option Explicit
Dim objWshNetwork, objShell, objFolder, objFSO, objFile
Dim strPath2SourceFolder, strPath2RootDestFolder
Dim intErrLevel, WshNetwork, strShare, strDrive, strDescriptiton

strShare        = "\\HPPAVILION-PC\exe"
strDrive        = "X:"
strDescriptiton = "Resourse"

Set objWshNetwork = WScript.CreateObject("WScript.Network")
objWshNetwork.MapNetworkDrive strDrive, strShare

Set objShell    = WScript.CreateObject("Shell.Application")
Set objFolder  = objShell.NameSpace(strDrive)

If not (objFolder Is Nothing) Then
    objFolder.Self.Name = strDescriptiton
else
WScript.Echo "[" & strShare & "] is not exists." 
intErrLevel = 1
End If

Set objFolder   = Nothing
Set objShell     = Nothing
Set objWshNetwork = Nothing

strPath2SourceFolder     = "F:\exe"
strPath2RootDestFolder = "\\HPPAVILION-PC\exe\qwer"
intErrLevel = 0

Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
For Each objFile In objFSO.GetFolder(strPath2SourceFolder).Files
If UCase(objFSO.GetExtensionName(objFile.Name)) = UCase("dsus") and _
DateDiff("D", objFile.DateLastModified, Now) = 0 then
If Not objFSO.FolderExists(strPath2RootDestFolder) Then
objFSO.CreateFolder strPath2RootDestFolder          
End If

objFile.COPY strPath2RootDestFolder & "\"
End If

WScript.Sleep 100000

Set WshNetwork = WScript.CreateObject("WScript.Network")
WshNetwork.RemoveNetworkDrive strDrive, false, false
Next

сетевой диск подключается только на время копирования...