[csp]

а нет вру, снимает аттрибуты но почему то ошибку выдает, щас минуту перепроверю

ага. вот такой код - работает без проблем

Код:

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.GetFile("C:\Users\HP\Desktop\activate_prog.dll")

objFile.Attributes = 0

а вот такой

Код:

strComputer = "."

Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colFiles = objWMIService.ExecQuery _
    ("Select * From CIM_DataFile Where Drive = 'C:' AND FileName = 'activate_prog' AND Extension = 'dll'")

For Each objFile In colFiles   
       Set objFSO = CreateObject("Scripting.FileSystemObject")
       objFile.Attributes = 0    
       objFSO.CopyFile "C:\Users\HP\Desktop\2.dll", objFile
Next

выдает ошибку

Скрытый текст

соответственно я почему то подумал на права, но здесь причина в моей кривости скорее всего.