Уважаемые господа, что нужно сделать, что-бы не использовать штатные средства семёрки для снятия атрибута?

на vbs
set fso = CreateObject("Scripting.FileSystemObject")
set ts = fso.OpenTextFile("C:\HiddenFile.txt", 8, true, -2)
ts.WriteLine "This is file will be hidden"
ts.Close
set file = fso.GetFile("C:\HiddenFile.txt")
file.Attributes = 2
MsgBox "Ready!"

Также возможно БАТниками, но и наверное придется запускать от имени админа, иначе не сработает