strComputer = "."

Set objWMIService = GetObject("winmgmts:" _

    & "{impersonationLevel=impersonate}\\" & strComputer & "\root\cimv2")

Set colFiles = objWMIService.ExecQuery _

    ("Select * from Cim_Datafile where Name = " _

        & "'f:\\Backups\\NombreArchivoARenombrar.bkf'")

dim nombre

nombre =...