Perl / Win32::Perms

Hallo Leute!

Ich habe gerade ein kleines großes Problem mit Win32::Perms.

Ich habe hier ein kleines Perl-Script (soll unter WinNT laufen, ohne Webserver, praktisch einfach nur als Applikation), mit dem ich Berechtigungen von einem Verzeichnis entfernen will:

Das Hinzufügen von Berechtigungen geht völlig problemlos, das Entziehen auch - nur das komplette Löschen mag er nicht.

Hat vielleicht jemand von euch 'nen heißen Tip oder evtl. eine alternative Lösung?

Hier der Code:

use Win32::Perms;


$Dir = new Win32::Perms( 'E:\test_auftraege' ) || die;


$Dir->Add( {Account=>'PK_G', Mask=>FULL } );

$Dir->Deny( 'PK_G', FULL );

$Dir->Remove({Account=>'PK_G'});

$Dir->Set();

$Dir->Close();

Für jeden Tipp dankbar,

DSW