vbsでポイントの最後のファイルのプロパティを非表示に変更する

コアコード:

rem              “  ”
@echo off
set DstFile=C:\test\batcher.
>"%temp%\FileProperty.vbs" echo Set objFSO = CreateObject("Scripting.FileSystemObject").GetFile("\\?\%DstFile%.\")
>>"%temp%\FileProperty.vbs" echo objFSO.Attributes=objFSO.Attributes+1+2
cscript /nologo "%temp%\FileProperty.vbs"