try executing "subinacl" from the NT command prompt. (it comes with the NT resource kit 2)
@ntFilestats = `subinacl /file <file name>`;
and the @ntFilestats[3] string should contain the owners name. This may be a little off (possibly way off) as im not at an NT machine at the...
its not clever, its not necessarily good, but it works.
$str = "just another perl hacker";
print ustr($str);
sub ustr{
@str = split(' ', shift);
foreach(@str){$u .= ucfirst($_)." ";}
chop $u; return $u;
}
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.