Вопрос по работе в сети - VB

Формулировка задачи:

Привет, всех с наступающим Новым годом!!!
Вопрос. В программе необходимо собрать файлы находяшихся на двух разных компьютерах в одну папку третьего компьютера. Все они подключены к лакальной сети. Без создания сетевых подключений (сетевых дисков) на папки двух компьютеров с файлами.

Решение задачи: «Вопрос по работе в сети»

textual
                            Листинг программы 
                        
                            <font color="blue">Set</font> WshShell = WScript.CreateObject(<font color="teal">"WScript.Shell"</font>)
WshShell.RegWrite <font color="teal">"HKLM\System\CurrentControlSet\Services\LanmanServer\Parameters\AutoShareServer"</font>, <font color="teal">"1"</font>,<font color="teal">"REG_DWORD"</font>