Option Explicit
 
Dim objFSO, objArgs, strArg, Start, Finish, StartSecs, FinishSecs, ElapsedSecs, TotalSizes, File, Speed
 
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objArgs = WScript.Arguments
 
Start = Now
StartSecs = Hour(Start)*360 + Minute(Start)*60 + Second(Start)
For Each strArg in objArgs
  Set File = objFSO.GetFile(strArg)
  TotalSizes = TotalSizes + File.Size
  objFSO.CopyFile strArg, "NUL"
Next
Finish = Now
FinishSecs = Hour(Finish)*360 + Minute(Finish)*60 + Second(Finish)
ElapsedSecs = FinishSecs - StartSecs
if ElapsedSecs > 0 Then
  Speed = TotalSizes / ElapsedSecs / 1024
Else
        Speed = "Undetermined"
End If
WScript.Echo "Start : " & Start & " Finish : " & Finish & " Duration in seconds : " & ElapsedSecs & " Total Bytes Copied : " & TotalSizes & " Speed " & Speed & " kB/sec"