VBS（VBScript）によるファイルが読み取り専用かどうかを取得する方法を紹介
ファイルが読み取り専用かどうかを取得する方法
サンプルソース
（入力）
Dim fs
Dim fn
Dim n
Set fs = WScript.CreateObject("Scripting.FileSystemObject")
Set fn = fs.GetFile("e:\folder\test.txt")
n = (fn.Attributes And 1) <> 0
WScript.Echo " 読み取り専用：" & n
（出力）
読み取り専用：False