Break On
Dim $SO
$SO = SetOption('Explicit', 'On')
$SO = SetOption('NoMacrosInStrings', 'On')
Dim $strWks, $strFile, $colFiletoSend
Dim $strComps, $colComps, $objComp, $objFSO
Dim $intErr, $objFile, $strFileName, $strRemotePath
$strFile = "c:\temp\files.ini"
$strComps = "c:\temp\computers.ini"
$colComps = Split(ReadProfileString($strComps,"computers",""),chr(10))
For each $objComp in $colComps
If $objComp <> ""
$strWks = ReadProfileString(strComps,"computers",$objComp)
$colFiletoSend = Split(ReadProfileString($strFile,"Files",""),chr(10))
cd "c:\temp"
$strRemotePath = "\\" + $strWks + "\c$\temp"
$objFSO = CreateObject("Scripting.FileSystemObject)
For each $objFile in $colFiletoSend
If $objFile <> ""
$strFileName = ReadProfileString($strFile,"Files",$objFile)
$intErr = $objFSO.CopyFile($strFileName,$strRemotePath)
EndIF
Next
EndIf
Next