' Kod ustawia lub usuwa dla pliku atrybut tylko do odczytu
' ------ KONFIGURACJA SKRYPTU ------
strFile = "<ciekaPliku>"  ' np. d:\mysecretscript.vbs
boolReadOnly = True     ' True = tylko do odczytu, False = moliwo zapisu
' ------ KONIEC KONFIGURACJI ---------
set objFSO = CreateObject("Scripting.FileSystemObject")

' Aby ukry/wywietli katalog, w miejsce GetFile naley wstawi GetFolder
set objFile = objFSO.GetFile(strFile)

if boolReadOnly = True then
   if objFile.Attributes AND 1 then
      WScript.Echo "Plik jest ju udostpniony tylko do odczytu." 
   else
      objFile.Attributes = objFile.Attributes + 1
      WScript.Echo "Plik zosta teraz udostpniony tylko do odczytu."
   end if 
else
   if objFile.Attributes AND 1 then
      objFile.Attributes = objFile.Attributes - 1
      WScript.Echo "Plik nie jest udostpniony tylko do odczytu."
   else
      WScript.Echo "Plik nie zosta jeszcze udostpniony tylko do odczytu." 
   end if 
end if
