copyskript zum Verteilen einer Datei im Netzwerk

Option Explicit

dim fso
dim network
dim pcs
dim pcname

set fso = createobject("Scripting.filesystemobject")  
set network = createobject("wscript.network")  
set pcs = fso.opentextfile("Rechner.txt")  

do while not pcs.atendofstream
	pcname = pcs.readline()
	
	network.mapnetworkdrive "P:", "\\" & pcname & "\c$\Zielpfad", false  
	
	set ordner = fso.getfolder("P:\")   
	
	kopieren(ordner)
	
	network.removenetworkdrive "P:", true, true  
loop

   function kopieren(ordner)
   fso.copyfile "Pfad\Datei.txt", ordner & "\"  
end function