Quería que aprendieses algo, pero como no hay remedio
Saludos
Código (vb) [Seleccionar]
Set objfso = Createobject("scripting.filesystemobject")
Set oFile = objfso.getfile(wscript.arguments(0))
oFile.attributes = 2
Saludos