Скрипт для копирования файлов по сети

        

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




Пример текстового файла со списком компьютеров:
--------------------------------------------------------------------
comp1
comp2
comp3
--------------------------------------------------------------------

Скрипт
--------------------------------------------------------------------
filename = "ПУТЬ К ФАЙЛУ СО СПИСКОМ ПК"

Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile(filename)

Do Until f.AtEndOfStream

On Error Resume Next

Dim wmio

Dim comp, nwo
Set nwo = CreateObject("WScript.Network")
comp = f.ReadLine

Const OverwriteExisting = True
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.CopyFile "ПУТЬ К ФАЙЛУ " , "\\" & comp & "ПРИМЕР ПУТИ НА УДАЛЕННОМ ПК \C$\temp", OverwriteExisting

Loop

MsgBox "ALL DONE"

f.Close
--------------------------------------------------------------------