# Kod udostpnia wolumin w trybie tylko do odczytu (jeli jest to moliwe).

use Win32::OLE;
$Win32::OLE::Warn = 3;

# ------ 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 ---------
$objWshShell = Win32::OLE->new('WScript.Shell');
$intRC = $objWshShell->Run($strCommand, 0, 1);
if ($intRC != 0) {
    print 'Po wykonaniu polecenie zwrcio bd: ' . $intRC, "\n";
    print "Prba wykonania polecenia: $strCommand\n";
}
else {
    print "Dziaanie programu zostao zakoczone powodzeniem.\n";
}
