# Kod usuwa plik przy uyciu interfejsu WMI

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

# ------ KONFIGURACJA SKRYPTU ------
$strComputer = '.';
$strFilePath = '<ciekaPliku>';
# np. "d:\scripts\test.txt"
# ------ KONIEC KONFIGURACJI ---------
$objFile = Win32::OLE->GetObject('winmgmts:\\\\' . $strComputer . '\\root\\cimv2:CIM_Datafile.Name=\'' . $strFilePath . '\'');
$objFile->Delete();
print "Usuwanie pliku zostao zakoczone powodzeniem.\n";
