' Kod udostpnia wolumin w trybie tylko do odczytu (jeli jest to moliwe).
' ------ KONFIGURACJA SKRYPTU ------
strDrive = "<Napd>"  ' np. e:

' Zakada si, e narzdzie writeprot uwzgldniono w zmiennej rodowiskowej PATH.
' W przeciwnym razie naley poda pen ciek programu (np. c:\bin\writeprot.exe).
strCommand = "writeprot /vol " & strDrive & " /ro"
' ------ KONIEC KONFIGURACJI ---------
set objWshShell = WScript.CreateObject("WScript.Shell")
intRC = objWshShell.Run(strCommand, 0, TRUE)
if intRC <> 0 then
   WScript.Echo "Po wykonaniu polecenie zwrcio bd: " & intRC
   WScript.Echo "Prba wykonania polecenia: " & strCommand
else
   WScript.Echo "Dziaanie programu zostao zakoczone powodzeniem."
end if
