中国DOS联盟

[求助]如何用VBS实现把各个盘符下的setup.exe文件的隐藏属性去掉？
希望能得到各位高手的及时指点。
我的下面的不能实现？
set objfso=createobject("scripting.filesystemobject")
set coldrives=objfso.drives
for each objdrive in coldrives
letter=objdrive.driveletter
if objdrive.isready=true then
file=getfile(letter&":\setup.exe")
file.attributes = file.attributes - 2
end if
next