You can use the Win32::Perms Module by Dave Roth,
you can get it at http://www.roth.net/perl/perms/


example :
=======

use Win32::Perms;
use strict;

my $F = new Win32::Perms('c:\\toto.txt');
my $Owner = $F->Owner();
print $Owner;
$F->Close();


A+
David "Sniper" Rigaudiere
Paris Perl Mongueu(r|se)s => http://paris.pm.org


_______________________________________________
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users

Reply via email to