Dim objWMIService As Object, colFiles As Object, objFile As Object
    Dim strComputer As String

    strComputer = "Comp1"
    Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\CIMV2")
    Set colFiles = objWMIService.ExecQuery("SELECT Name FROM CIM_DataFile " _
                                            & "WHERE name = 'c:\\temp\\1.bak'")
    For Each objFile In colFiles
        Debug.Print objFile.Name
        Debug.Print objFile.Copy("C:\Temp\1\readme.bak")        ' Копируем в локальный каталог
        Debug.Print objFile.Copy("\\Comp2\L$\Backup\1.bak")      ' Пытаемся скопировать на удаленный комп 
    Next