# Kod ukrywa lub wywietla plik

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

# ------ KONFIGURACJA SKRYPTU ------
$strFile = '<ciekaPliku>'; # np. d:\mysecretscript.vbs
$boolHide = 1; # True - ukrywanie, False - wywietlanie 
# ------ KONIEC KONFIGURACJI ---------
$objFSO = Win32::OLE->new('Scripting.FileSystemObject');

# Aby ukry/wywietli katalog, w miejsce GetFile naley wstawi GetFolder
$objFile = $objFSO->GetFile($strFile);

if ($boolHide == 1) {
    if ($objFile->Attributes && 2) {
        print "Plik ju ukryto.\n";
    }
    else {
        $objFile->{Attributes} = $objFile->Attributes + 2;
        print "Plik jest teraz ukryty.\n";
    }
}
else {
    if ($objFile->Attributes && 2) {
        $objFile->{Attributes} = $objFile->Attributes - 2;
        print "Plik nie jest ukryty.\n";
    }
    else {
        print "Plik nie zosta jeszcze ukryty.\n";
    }
}
