Datei auf mehrere PC kopieren (VB Skript) funktioniert nicht immer

Option Explicit
Dim fso, f, objEingabe, source, exists
Dim EingabePfad, EingabeDatei, pathToClientFile, pathToRemoteFolder, programPath, client, Zeile, Position, i

REM EingabePfad = "D:\Arbeitsbereich BitBox\BitBoxConfigFiles\"  
EingabePfad = ".\"  
EingabeDatei = "hosts.txt"  
source = ".\config\dispatch.pac"  
programPath = "c$\Program Files (x86)\sirrix AG\BitBox\dispatch.pac"  

Const ForReading = 1
Const ForWriting = 2

set fso = CreateObject("Scripting.FileSystemObject")  

Set objEingabe = fso.OpenTextFile(EingabePfad & EingabeDatei, ForReading)

Do Until objEingabe.AtEndOfStream
    client = objEingabe.Readline
	pathToClientFile = "\\"&client&"\"&programPath  
	pathToRemoteFolder ="\\"&client&"\c$\Program Files (x86)\sirrix AG\BitBox\"  
	REM msgbox pathToClientFile
	exists = fso.FolderExists(pathToRemoteFolder)
	REM msgbox exists
	if (exists) then
	fso.CopyFile source, pathToClientFile
	Set f = fso.OpenTextFile(".\log\log.txt", 8, True)  
	f.WriteLine vbCr & "succesfully copied to " & client & i   
    f.Close
	else
	Set f = fso.OpenTextFile(".\log\failed.txt", 8, True)  
    f.WriteLine vbCr & client & i 
    f.Close
	end if
Loop
	
Msgbox "Fertig!"  
set fso = nothing