set fs=createobject("scripting.filesystemobject").GetFolder("\\?\C:\test\aaa..\\") fs.attributes=fs.attributes+2