סקריפט...
Set oFSO = CreateObject("Scripting.FileSystemObject") Set oTS = oFSO.OpenTextFile("D:\Apps\CopyToNetwork\machines.txt") Do Until oTS.AtEndOfStream sComputer = oTS.ReadLine sSourceFolder = "Full_UNC_Path_Of_Folder" sDestFolderName= "Path_Of_Folder_On_Server" sDestFolder = "\\" & sComputer & "\C$\" & sDestFolderName oFSO.CopyFolder sSourceFolder, sDestFolder,true Loop oTS.Close WScript.Echo"Done" תיצור קובץ בשם machines.txt תרשום בתוכו את שמות המחשבים ותשנה למעלה את הנתיב שבו נמצא הקובץ.. בהצלחה
