Компьютерный форум OSzone.net  

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)
-   AutoIt (http://forum.oszone.net/forumdisplay.php?f=103)
-   -   копирование файлов с удаленых ip (http://forum.oszone.net/showthread.php?t=186773)

Moksar 28-09-2010 19:21 1506710

копирование файлов с удаленых ip
 
Есть сеть около 1000 машин,на каждой машине есть папка \\10.168.Y.X\test в этой папке создается каждый день .xml файлик.
Вопрос можно ли написать такой скрипт что бы при запуске из \\10.168.Y.X\test копировал на мою машину,скажем в C:\gathering,нужный мне .xml за определенную дату.Проблема в том что машин много и названия этих .xml у всех своё и каждый день.
P.S.Особой проблемы нет,спасибо megaloman, помог с батником.Очень интересно в AutoIt это можно реализовать??

aasavelev 19-10-2010 07:30 1522008

Попробуй следующее:

Код:

Global $data[3] =["","",""]
$text=InputBox("Дата","Укажите дату Формат ввода день.месяц.год","","",100,130); вначале указываешь за ту дату которую тебе надо скопировать
$i=0
While StringInStr($text,".")<>0
        $leng=StringLen($text)
        $point=StringInStr($text,".")
        $data[$i]=StringTrimRight($text,$leng-$point+1)
        $i=$i+1
        $text=StringTrimLeft($text,$point)
WEnd

$data[2]=$text

for $i=1 To 255
        for $j=1 to 255
                $adres="10.168."&$i&"."&$j
                $var=Ping($adres)
                If $var Then;копирует только при удачном пингованиие
                        FileChangeDir("\\"&$adres&"\test\")
                        $search=FileFindFirstFile("*.xml")
                        While @error==0                               
                                $t=FileGetTime($file)
                                If $t[0]==$data[2] And $t[1]==$data[1] and $t[2]==$data[0] Then
                                        FileCopy($file,"C:\gathering\")
                                EndIf
                                                        $file=FileFindNextFile($search)
                        WEnd
                EndIf
        Next
Next


Moksar 21-02-2011 17:38 1618493

Спасибо!А можно что бы скрипт с txt файла брал ip адреса?

aasavelev 27-02-2011 09:41 1622806

Да можно.
Код:

$file = FileOpen("ip.txt", 0);
If $file <> -1 Then
While 1
    $adres = FileReadLine($file)
    If @error = -1 Then ExitLoop;выход при окончании строк
; сюда все операции для копирования файлов
Wend

EndIf
FileClose($file);

В каждой новой строке должен храниться ip.


Время: 18:42.

Время: 18:42.
© OSzone.net 2001-