「VBScript」Attributesでファイルが読み取り専用かどうかを判定する
サンプルコード
Dim fso
Dim gf
Dim result
Set fso = WScript.CreateObject(“Scripting.FileSystemObject")
Set gf = fso.GetFile(“c:\backup\sample.txt")
result = (gf.Attributes And 1) <> 0
WScript.Echo “読み取り専用の権限:" & result