Win32::AdminMisc has LogonAsUser, which appears to be what I'm looking for. I was hoping for a platform independent function but I guess that's not possible.

Looking at the requirements for functions such as LogonAsUser, switching the anonymous user account under which the scriopt runs might be less trouble than asking system administrators to set priveleges such as "SeTcbPrivilege", "SeChangeNotify" and "SeAssignPrimaryToken".

I'll take a closer look. Thank you!

Richard

If you want it to be portable, abstract it one level, and then bring in whatever code you need based on the OS in your abstraction layer rather than the application layer. As you need support for new environments, you only adjust your abstraction layer.

Example:

# Application.pl

use IO::File::AsUser;       # Your abstraction layer
my $fh = IO::File::AsUser->open($file, $user);

# AsUser.pm

package IO::File::AsUser;

#blah blah
sub open {
    if ($Windows) {
        do_what_needs_to_be_done_on_windows();
    } elsif ($Unix} {
        do_what_needs_to_be_done_on_unix();
    }
}
[download]