Что нового

[Сеть, интернет] Помогите автоматизировать запись фаилов на рабочий стол компьютеров в сети

Статус
Закрыто для дальнейших ответов.

ileo1717

Новичок
Сообщения
1
Репутация
0
подскажите как это реализовать на Autoit:
net view > net.txt
FOR /F " tokens=1 " %%i in (net.txt) do (
if exist "%%i\C$\ProgramData\" (
copy 1.txt "%%i\C$\ProgramData\Microsoft\Windows\Start Menu\Programs\Startup\"
) else (
copy 1.txt "%%i\c$\documents and settings\all users\start menu\programs\startup\"
)
)


Добавлено:
Сообщение автоматически объединено:

сам смог добиться только фаила со списком компьютеров, как потом название подставить в путь хз все перепробывал

#include <file.au3>
Global $NetView = "comp_list.txt"
RunWait(@ComSpec & " /c " & 'net view >'&$NetView, "", @SW_HIDE) ;выполнить команду CMD "net view" и поместить результат в текстовый файл
Dim $aRecords
_FileReadToArray($NetView,$aRecords);прочитать этот текстовый файл в массив
FileOpen($NetView, 2)
For $i=1 To $aRecords[0];убрать все лишнее, оставить только имана ПК
If StringInStr($aRecords[$i], "\\") Then
$aRecords[$i] = StringReplace($aRecords[$i], " ", "")
FileWriteLine($NetView, $aRecords[$i] & "" & @CRLF)
EndIf
Next
FileClose($NetView)
 

kaster

Мой Аватар, он лучший самый
Команда форума
Глобальный модератор
Сообщения
4,020
Репутация
624
ileo1717

Предупреждение За нарушение правил форума (пункт В.11):
Любые отрывки AutoIt кода необходимо заключать в тег [autoit]
autoit.gif
(подробнее), а обычный код соответственно в тег [code]
code.gif
(подробнее). Также большие выдержки текста помещайте под тег [spoiler]
spoiler.gif
(подробнее), там где это поддерживается естественно. Как в случае с названием темы, также короткое и эргономичное сообщение привлекает больше внимания, и шансы на получение конкретного ответа увеличиваются.


С уважением, ваш Глобальный модератор.
 
Статус
Закрыто для дальнейших ответов.
Верх