#!/usr/bin/perl
use strict;
use warnings;
use 5.010;

system 'cls';

require Win32::OLE;

my $ordner = 'D:/Arbeit/Unterverz';

# Quelle: https://docs.microsoft.com/de-de/windows/win32/cimwin32prov/compress-method-in-class-cim-directory
my %fehlernr = (
    2   => 'Der Zugriff wurde verweigert',
    8   => 'Nicht angegebener Fehler',
    9   => 'Ungültiges Objekt',
    10  => 'Das Objekt ist bereits vorhanden',
    11  => 'Dateisystem, nicht NTFS',
    12  => 'Plattform nicht Windows',
    13  => 'Laufwerk nicht identisch',
    14  => 'Verzeichnis ist nicht leer',
    15  => 'Freigabeverletzung',
    16  => 'Ungültige Startdatei',
    17  => 'Die Berechtigung wurde nicht gehalten',
    21  => 'Ungültiger Parameter',
);

if (my $obj_wmi = Win32::OLE->GetObject('winmgmts:\\\\.\\root\\cimv2')) {
    # Quelle: https://www.stephenjc.com/2009/12/09/windows-log-file-compression-in-perl
    if (my $obj_dir = $obj_wmi->Get("Cim_Directory='$ordner'")) {
        if ($obj_dir->Compressed != 1) {
            say "vorher : NICHT komprimiert";
            my $int_rc = $obj_dir->Compress;    # dieses Kommando liefert kein true oder false
            if ($int_rc != 0) {
                say "Fehler: '$int_rc / "
                    .(defined $fehlernr{$int_rc} ? $fehlernr{$int_rc} : 'Unbekannte Ursache')
                    ."'";
            }
            else {
                if (my $obj_dir_after = $obj_wmi->Get("Cim_Directory='$ordner'")) {
                    if ($obj_dir_after->Compressed == 1) {
                        say "Ordner ist jetzt komprimiert";
                    }
                    else { say "Ordner komprimieren hat nicht funktioniert"; }
                }
                else { say "Shit in ".__LINE__; }
            }
        }
        else { say "Ordner ist bereits komprimiert"; }
    }
    else { say "Shit in ".__LINE__; }
}
else { say "Shit in ".__LINE__; }